IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

C++Builder Discussion :

dessiner une courbe avec OleExcel


Sujet :

C++Builder

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Rédacteur
    Avatar de blondelle
    Homme Profil pro
    Inscrit en
    Mars 2006
    Messages
    2 738
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France

    Informations forums :
    Inscription : Mars 2006
    Messages : 2 738
    Par défaut dessiner une courbe avec OleExcel
    Je cherche a tracer une courbe, les coordonnees sont dans un tableau, le resultat est un seul segment passant par tous les points.
    le code important est en rouge.
    Le code en VBE:
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    14
    15
    16
    17
    18
    19
    20
    21
    22
    23
    24
    25
    26
    27
    28
    29
    30
    31
    32
    Sub dessin_ligne()
            Sheets("COORDONNEES").Select
    a = 1
    fin_boucle = ActiveSheet.UsedRange.Rows.Count
    XX = (Cells(3, 1).Value) * a
    YY = (Cells(3, 2).Value) * a
        Sheets("CIRCUIT2").Select
    With ActiveSheet.Shapes.BuildFreeform(msoEditingAuto, XX, YY)
    For C = 4 To fin_boucle
    If C = fin_boucle Then
    X1 = X + 1
    Y1 = Y + 1
    Else
            Sheets("COORDONNEES").Select
    X = (Cells(C, 1).Value) * a
    Y = (Cells(C, 2).Value) * a
    X1 = (Cells(C + 1, 1).Value) * a
    Y1 = (Cells(C + 1, 2).Value) * a
    End If
        Sheets("CIRCUIT2").Select
            .AddNodes msoSegmentLine, msoEditingAuto, X, Y
            .AddNodes msoSegmentLine, msoEditingAuto, X1, Y1
    Next
            .ConvertToShape.Select
    End With
    Set myDocumenT = Worksheets("CIRCUIT2")
    myDocumenT.Shapes.SelectAll
        Selection.ShapeRange.Line.Weight = 8#
        Selection.ShapeRange.Line.Visible = msoTrue
        Selection.ShapeRange.Line.ForeColor.SchemeColor = 22
    End Sub
    je pense avoir reussi a programmer une partie des commandes mais je ne reussi pas a afficher le segment
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
     
    // essai d'utilisation des fonctions de dessin mono-traits multi-points
    Variant msoEditingAuto, msoSegmentLine, vLigne, Select;
            vWorksheet = vXLWorkbook.OlePropertyGet("Worksheets", 1);
            vLigne = vWorksheet.OlePropertyGet("Shapes").OleFunction("BuildFreeform", msoEditingAuto, 1, 1);
            vLigne.OleFunction("AddNodes", msoSegmentLine, msoEditingAuto, 1, 1);
            vLigne.OleFunction("AddNodes", msoSegmentLine, msoEditingAuto, 120, 210);
            vLigne.OleFunction("ConvertToShape").OleFunction("Select");
    //
    La derniere ligne me donne une erreur ".....provoque une exception"

  2. #2
    Rédacteur
    Avatar de blondelle
    Homme Profil pro
    Inscrit en
    Mars 2006
    Messages
    2 738
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France

    Informations forums :
    Inscription : Mars 2006
    Messages : 2 738
    Par défaut
    La je seche.
    La fonction d'origine en VBE s'ecrit.
    le code:
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
     
    With ActiveSheet.Shapes.BuildFreeform(msoEditingAuto, XX, YY)
     
            .AddNodes msoSegmentLine, msoEditingAuto, X, Y
            .AddNodes msoSegmentLine, msoEditingAuto, X1, Y1
     
            .ConvertToShape.Select
     
    End With
    Je ne parvient pas a utiliser une fonction pour " .ConvertToShape.Select " tous les essais que j'ai fait provoquent une erreur.

  3. #3
    Membre chevronné


    Profil pro
    Inscrit en
    Octobre 2003
    Messages
    7 855
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Octobre 2003
    Messages : 7 855
    Par défaut
    Juste une idée :

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    vLigne.OleFunction("ConvertToShape");
    vLigne.OleFunction("Select");

  4. #4
    Rédacteur
    Avatar de blondelle
    Homme Profil pro
    Inscrit en
    Mars 2006
    Messages
    2 738
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France

    Informations forums :
    Inscription : Mars 2006
    Messages : 2 738
    Par défaut
    Ricky81 a ecrit
    Juste une idée :

    Code :
    vLigne.OleFunction("ConvertToShape");
    vLigne.OleFunction("Select");
    Merci pour ta reponse Ricky81.
    La ligne " vLigne.OleFunction("ConvertToShape"); " provoque une execption, je l'avais deja essaye et la je ne vois pas comment faire a moins que mon code precedent contienne une erreur.
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
     
    ///////////
    // essai d'utilisation des fonctions de dessin mono-traits multi-points
    Variant msoEditingAuto, msoSegmentLine, vLigne, Select, vSheet;
            vWorksheet = vXLWorkbook.OlePropertyGet("Worksheets", 1);
            vLigne = vWorksheet.OlePropertyGet("Shapes").OleFunction("BuildFreeform", msoEditingAuto, 1, 1);
            vLigne.OleFunction("AddNodes", msoSegmentLine, msoEditingAuto, 1, 1);
            vLigne.OleFunction("AddNodes", msoSegmentLine, msoEditingAuto, 120, 210);
     
            vLigne.OleProcedure("ConvertToShape");
            vLigne.OleFunction("Select");

  5. #5
    Rédacteur
    Avatar de blondelle
    Homme Profil pro
    Inscrit en
    Mars 2006
    Messages
    2 738
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France

    Informations forums :
    Inscription : Mars 2006
    Messages : 2 738
    Par défaut
    Si j'ecrit le programme de cette maniere.
    le code:
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    //
    ///////////
    // essai d'utilisation des fonctions de dessin mono-traits multi-points
    Variant msoEditingAuto, msoSegmentLine, vLigne, Select, vSheet;
            vWorksheet = vXLWorkbook.OlePropertyGet("Worksheets", 1);
            vWorksheet.OleProcedure("Select"); // ligne ajoutee
            vLigne = vWorksheet.OlePropertyGet("Shapes").OleFunction("BuildFreeform", msoEditingAuto, 1, 1);
            vLigne.OleFunction("AddNodes", msoSegmentLine, msoEditingAuto, 1, 1);
            vLigne.OleFunction("AddNodes", msoSegmentLine, msoEditingAuto, 120, 210);
            vLigne.OlePropertyGet("ConvertToShape"); ligne modifiee
            vLigne.OleFunction("Select");
    J'ai une erreur " Eolsyserror Menbre introuvable "

  6. #6
    Rédacteur
    Avatar de blondelle
    Homme Profil pro
    Inscrit en
    Mars 2006
    Messages
    2 738
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France

    Informations forums :
    Inscription : Mars 2006
    Messages : 2 738
    Par défaut
    J'ai trouve quelque chose sur le NET et je vais essayer de l'adapter.
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
     
     
    WorkBook.WorkSheets[2].Shapes.BuildFreeform(1,60,200).AddNodes (0,0,260,300,262,302,264,304);
    WorkBook.WorkSheets[2].Shapes.BuildFreeform(1,60,200).AddNodes (0,0,60,200,62,202,64,204);
    WorkBook.WorkSheets[2].Shapes.BuildFreeform(1,60,200).ConvertToShape;

Discussions similaires

  1. [Artichow] Dessiner une courbe avec plusieurs couleurs
    Par m_jaz3 dans le forum Bibliothèques et frameworks
    Réponses: 13
    Dernier message: 03/11/2008, 16h26
  2. dessiner une courbe à partir d'un tableau de valeur
    Par bob75018 dans le forum C++Builder
    Réponses: 8
    Dernier message: 15/06/2007, 04h29
  3. dessiner une courbe composant chart
    Par tarekcom dans le forum Composants VCL
    Réponses: 7
    Dernier message: 09/05/2006, 22h01
  4. Tracer une courbe avec 2 tableau de points
    Par babarpapa dans le forum 2D
    Réponses: 3
    Dernier message: 19/04/2006, 15h24
  5. Dessiner une figure avec graphics.h
    Par Firas_tn dans le forum C
    Réponses: 2
    Dernier message: 29/03/2006, 20h33

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo