probleme pour tracer une ligne avec OleExcel

J'ai reussi a tracer une ligne avec les commandes OleExcel qui utilise les outils de dessin Excel, mais je n'arrive pas a parametrer l'epaisseur de la ligne, ni la couleur de celle ci.
le code:

Code:

---

1 2 3 4 5 6 7

// on selectionne la feuille vWorksheet = vXLWorkbook.OlePropertyGet("Worksheets", 1); // on appel la fonction de tracage de ligne vWorksheet.OlePropertyGet("Shapes").OleFunction("AddLine", 1, 1, 100,100); // on appel la fonction parametrant l'epaisseur de la ligne vWorksheet.OlePropertyGet("Line").OleProcedure("Weight", 8);

---

J'ai une erreur sur la derniere ligne.

Es-tu certain du OleProcedure ? Ne serait-ce pas un OlePropertySet ?

Ricky81 a ecrit:

Citation:

---

Es-tu certain du OleProcedure ? Ne serait-ce pas un OlePropertySet ?

---

Merci pour ta reponse Ricky81.
J'ai fait l'essai l'erreur est nom inconnu.
Je pense que c'est la facon d'assembler la ligne de commande qui n'est pas bonne pour l'instant je n'ai rien trouve.
Je met en VBE la fonction que je voudrais reproduire

Code:

---

1 2 3 4 5

ActiveSheet.Shapes.AddLine(X, Y, X1, Y1).Select Selection.ShapeRange.Line.Weight = 8# Selection.ShapeRange.Line.Visible = msoTrue Selection.ShapeRange.Line.Forecolor.SchemeColor = 22

---

la premiere ligne est celle qui dessine le trait et qui fonctionne.
La troisieme ligne est facultative mais si je peut la programmer ce sera un plus.
Ce code est en fait dans une boucle qui lit un tableau de coordonnees X et Y et qui trace un circuit sur la feuille

J'ai resolu le probleme de l'epaisseur de la ligne.
Il fallais ecrire:

Code:

---

1 2 3 4 5

Variant vLine; vWorksheet = vXLWorkbook.OlePropertyGet("Worksheets", 1); vLine = vWorksheet.OlePropertyGet("Shapes").OleFunction("AddLine", 1, 1, 200,100); vLine.OlePropertyGet("Line").OlePropertySet("Weight", 8);

---

Il me reste maintenant le probleme de la couleur j'ai essaye

Code:

---

1 2 3 4 5 6

vLine.OlePropertyGet("Line").OlePropertySet("SchemeColor", 22); ou vLine.OlePropertyGet("Line").OlePropertySet("ForeColor", 22); ou vLine.OlePropertyGet("Line").OlePropertySet("Color", 22);

---

Chaque fois j'ai une erreur.

Je viens de trouver comment changer la couleur, et cerise sur le gateau comment rendre visible ou invisible la ligne.
le code:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

// on selectionne la feuille Variant vLine; vWorksheet = vXLWorkbook.OlePropertyGet("Worksheets", 1); // pour les donnees (1, 1, 100, 100) il faut lire X, Y, X1, Y1 // X, Y point de depart de la ligne X1, Y1 point d'arrivee de la ligne vLine = vWorksheet.OlePropertyGet("Shapes").OleFunction("AddLine", 1, 1, 200,100); vLine.OlePropertyGet("Line").OlePropertySet("Weight", 8); // epaisseur de la ligne vLine.OlePropertyGet("Line").OlePropertyGet("ForeColor").OlePropertySet("SchemeColor", 22); // couleur de la ligne vLine.OlePropertyGet("Line").OlePropertySet("Visible", false); vLine.OlePropertyGet("Line").OlePropertySet("Visible", true); //

---

La je me suis trouve exellent.

Si je me fie à

Code:

---

Selection.ShapeRange.Line.Forecolor.SchemeColor = 22

---

ce serait peut-être plutôt

Code:

---

vLine.OlePropertyGet("Line").OlePropertyGet("Forecolor").OlePropertySet("SchemeColor", 22);

---

(Forecolor ou ForeColor) ?

[Edit]Ah ben tu as trouvé entre temps, félicitations :P

Ricky81 a ecrit:

Citation:

---

Ah ben tu as trouvé entre temps, félicitations

---

Merci pour ton aide Ricky81.
Je commence a comprendre comment est articule la programmation OleExcel, en la comparent a VBE il y a des similitudes.
J'ai encore quelques essais a faire sur les objets de dessin, j'ai un logiciel que j'ai developpe, et qui fonctionne au boulot en VBE, je vais essayer de le readapter.
Il y a des formes que l'on peut appeler, il y a des boutons d'appel de dessin qui se substituent a la barre d'outils, et le rajout de menus deroulants, des postes en perspective.