dessiner une courbe avec OleExcel

Version imprimable

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:

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:

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"

La je seche.
La fonction d'origine en VBE s'ecrit.
le code:
Code:

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.

Juste une idée :

Code:

1
2
vLigne.OleFunction("ConvertToShape");
vLigne.OleFunction("Select");

Ricky81 a ecrit

Citation:

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:

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");

Si j'ecrit le programme de cette maniere.
le code:

Code:

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 "

J'ai trouve quelque chose sur le NET et je vais essayer de l'adapter.

Code:

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;

21/08/2006, 17h31
blondelle

J'ai trouve un lien sur internet.

Citation:

http://msdn.microsoft.com/library/de...ertToShape.asp

Je vais voir ce que je peut en faire.

Je suis parvenu a faire un trait l'eereur venait de mon code
il faut declarer " msoEditingAuto = 0 , msoSegmentLine = 0" je les ai donc remplaces dans le programme par leur valeur et la ca fonctionne.
le code:
Code:

1 2 3 4 5 6 7 8 9 10 11 /////////// // essai d'utilisation des fonctions de dessin mono-traits multi-points // msoEditingAuto = 0, msoSegmentLine = 0 Variant vLigne; vWorksheet = vXLWorkbook.OlePropertyGet("Worksheets", 1); vLigne = vWorksheet.OlePropertyGet("Shapes").OleFunction("BuildFreeform", 0, 1, 1); vLigne.OleProcedure("AddNodes", 0, 0, 10, 10); vLigne.OleProcedure("AddNodes", 0, 0, 120, 210); vLigne.OleFunction("ConvertToShape"); //
Je n'ai pas encore reussi a changer l'epaisseur de la ligne et la couleur.

27/08/2006, 20h17
blondelle

Je ne suis pas parvenu a changer l'epaisseur et la couleur du trait par manque de temps je cherche toujours.

Je suis parvenu a tracer une courbe unique qui passe par plusieurs points, on peut changer l'epaisseur du trait, la couleur, rendre le trait visible ou invisible.
le code:

Code:

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
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
 
//---------------------------------------------------------------------------
 
#include <vcl.h>
#pragma hdrstop
 
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
// Variants declares en public
Variant vMSExcel, vXLWorkbooks, vXLWorkbook, vWorksheet, vLigne;
Variant vFileName, vUsedRange, vLines, vShapeRange, vSelection;
Variant vCell, XX, YY, X, Y, X1, Y1, fin_boucle;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
vMSExcel = Variant::CreateObject("Excel.Application");
vMSExcel.OlePropertySet("Visible", true);
// si on n'ouvre pas de fichier utiliser les deux lignes suivantes
//vXLWorkbooks = vMSExcel.OlePropertyGet("Workbooks");
//vXLWorkbook = vXLWorkbooks.OleFunction("Add");
 
// si on ouvre un fichier on utilise les trois lignes suivantes
vFileName = "C:\\Documents and Settings\\blondelle\\Mes documents\\plan_gps\\PLAN_GPS\\dessin_releve_GPS_essai.xls";
vXLWorkbooks = vMSExcel.OlePropertyGet("Workbooks");
vXLWorkbook = vXLWorkbooks.OleFunction("Open", vFileName);
 
///////////
// essai d'utilisation des fonctions de dessin mono-traits multi-points
// msoEditingAuto = 0, msoSegmentLine = 0
 
// on selectionne la Feuille coordonnees
vWorksheet = vXLWorkbook.OlePropertyGet("Worksheets", "COORDONNEES");
 
// on calcul le nombre de lignes utilisees de la Feuille coordonnees
       vUsedRange = vWorksheet.OlePropertyGet("UsedRange");
       vLines =  vUsedRange.OlePropertyGet("Rows");
       int ii =  vLines.OlePropertyGet("Count");
 
// on recupere les valeurs de depart
vCell = vWorksheet.OlePropertyGet("Cells", 3, 1);
        XX = vCell.OlePropertyGet("Value");
vCell = vWorksheet.OlePropertyGet("Cells", 3, 2);
        YY = vCell.OlePropertyGet("Value");
 
// on selectionne la Feuille circuit2
vWorksheet = vXLWorkbook.OlePropertyGet("Worksheets", "CIRCUIT2");
// hors boucle d'affichage on donne les coordonnees de depart
vLigne = vWorksheet.OlePropertyGet("Shapes").OleFunction("BuildFreeform", 0, XX, YY);
 
// on passe par boucle les coordonnees de la courbe
for (int i = 4; i <= (ii - 1); i++)
{ // debut for i
 
vWorksheet = vXLWorkbook.OlePropertyGet("Worksheets", "COORDONNEES");
vCell = vWorksheet.OlePropertyGet("Cells", i, 1);
        X = vCell.OlePropertyGet("Value");
vCell = vWorksheet.OlePropertyGet("Cells", i, 2);
        Y = vCell.OlePropertyGet("Value");
vCell = vWorksheet.OlePropertyGet("Cells", i + 1, 1);
        X1 = vCell.OlePropertyGet("Value");
vCell = vWorksheet.OlePropertyGet("Cells", i + 1, 2);
        Y1 = vCell.OlePropertyGet("Value");
 
// dans la boucle on donne le cordonnees des segments que l'on va tracer
        vLigne.OleProcedure("AddNodes", 0, 0, X, Y);
        vLigne.OleProcedure("AddNodes", 0, 0, X1, Y1);
 
// apres avoir ferme la boucle on trace la ligne
} // fin for i
        vLigne.OleFunction("ConvertToShape");
// on selectionne la feuille circuit2
vWorksheet = vXLWorkbook.OlePropertyGet("Worksheets", "CIRCUIT2");
vWorksheet.OleProcedure("Select");
// on selectionne le trace
vWorksheet.OlePropertyGet("Shapes").OleFunction("SelectAll");
// on change l'epaisseur
vMSExcel.OlePropertyGet("Selection").OlePropertyGet("ShapeRange").OlePropertyGet("Line").OlePropertySet("Weight", 8);
// on change la couleur
vMSExcel.OlePropertyGet("Selection").OlePropertyGet("ShapeRange").OlePropertyGet("Line").OlePropertyGet("ForeColor").OlePropertySet("SchemeColor", 22);
// on le rend visible ou invisible
vMSExcel.OlePropertyGet("Selection").OlePropertyGet("ShapeRange").OlePropertyGet("Line").OlePropertySet("Visible", false);
vMSExcel.OlePropertyGet("Selection").OlePropertyGet("ShapeRange").OlePropertyGet("Line").OlePropertySet("Visible", true);
 
}
//---------------------------------------------------------------------------