Coordonnées d'une forme Fermé

Question

Bonjour,
Je cherche a récupérer les coordonnées d'un noeud d'une forme sur xls.
J'ai cherché dans l'aide et il semblerait que l'utilisation de "shape.vertices" puisse répondre à ma question mais je n'ai pas réussi à l'utiliser.
Quelqu'un aurait-il une solution ?

Merci d'avance

lermite222 · Answer

Bonjour,
noeud d'une forme sur xls  ?
? y a pas de noeux sur une forme ?
? utilisation de "shape.vertices"  ?
Explique mieux stp.
A+

lermite222 · Answer

Bonjour,
Inutile de poster plusieurs fois pour un même sujet
Réponse à ta question =>> Impossible
A+

olivlechti · Answer

Ce n'est pas la même question que celle que j'ai posté sur la poignée d'un connecteur ! La je cherche a identifier les coordonnées des points de début et de fin du connecteur (.BeginConnect et .EndConnect) ... Réellement impossible ?

lermite222 · Answer

(.BeginConnect et .EndConnect)  
C'est quel langage ?

olivlechti · Answer

C'est du VBA.
Ok, je donne du détail

1- Je crée un connecteur entre les "repères" n°5 (=points d'attache bas d'une forme) de 2 formes Shapes(1) et Shapes (2)
ActiveSheet.Shapes.AddConnector(msoConnectorCurve, 1, 1, 2,0 20).SelectSelection.ShapeRange.Line.EndArrowheadStyle = msoArrowheadOpenSelection.ShapeRange.ConnectorFormat.BeginConnect ActiveSheet.Shapes(1), 5Selection.ShapeRange.ConnectorFormat.EndConnect ActiveSheet.Shapes(2), 5

2- Je souhaite récupérer les coordonnées de ces points d'attache :
  - soit directement les coordonnées de début et de fin du connecteur
  - soit les coordonnées des "repères" des Shapes


J'ai essayé de regarder ce que la propriété Shape.Vertices peut m'apporter, et je sens que c'est exactement ce qu'il me faut. Voici le code que j'ai testé (fortement inspiré de ce qu'on trouve sur l'aide VBA) ... mais ça ne fonctionne pas (il bloque sur la ligne x1 = vertArray(1,1) ...):
Sub Coordonnées()Dim vertArray As VariantDim x1 As Single, y1 As Single    vertArray = Feuil1.Shapes(1).Vertices    x1 = vertArray(1, 1)    y1 = vertArray(1, 2)    MsgBox "First vertex coordinates: " & x1 & ", " & y1End Sub


--> Sais tu comment utiliser Shape.Vertices ?
--> Aurais tu une autre idée ?

Merci

lermite222 · Answer

J'ai jamais eu l'occasion de voir ce sujet 
Toutefois, ta variable semble être un tableau et nécessite une assignation...
essaye avec,
    Set vertArray = Feuil1.Shapes(1).Vertices

lermite222 · Answer

Quel version d'Excel ? J'ai essayer sur le 2007 mais ça plante.

lermite222 · Answer

c'est disponible aussi sur le 2007 
Il semble qu'il faut initialiser Vertices quelque part mais comment ?
Pour la ligne Set vertArray = Feuil1.Shapes(1).Vertices
Il faudra vraisemblablement Set  mais Vertices est Empty c'est à dire non initialiser (contraire de vide)
En parcourant l'aide
Cet exemple montre comment créer une courbe dont la description géométrique est la même que la forme 1 dans myDocument. La forme 1 doit contenir 3n+1 sommets pour que l'exemple fonctionne.

Visual Basic pour Applications Set myDocument = Worksheets(1)With myDocument.Shapes    .AddCurve .Item(1).VerticesEnd With 

Je trouve pas de solution pour le moment et n'ai plus le temps maintenant.
J'y reviendrais.
A+

Coordonnées d'une forme

8 réponses

Discussions similaires