Coordonnées d'un noeud d'une forme libre dessinée danx XL
3 réponses
Manu
Bonjour,
Sur une feuille, j'ai dessiné plusieurs forme libres repésentant une carte
de France.
Je voudrais pouvoir relire les coordonnées des différents points (nodes) de
ces formes afin de pouvoir zoommer/redessiner ces formes par VBA mais je n'ai
pas trouvé les propriétés X ou Y de ces nodes dans le modèle objet de VBA
(sous Excel 2000).
Existe il une solution pour lire ces coordonnées ?
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Alain CROS
Bonjour,
Essayer ceci mais ça me semble bien compliqué. Peut être une histoire de marteau !
Sub TypeCoord() Dim ShN As ShapeNode For Each ShN In ActiveSheet.Shapes(1).Nodes MsgBox "Type : " & IIf(ShN.SegmentType = msoSegmentCurve, "Courbe", "Ligne") & _ vbCr & "X = " & ShN.Points(1, 1) & vbTab & "Y = " & ShN.Points(1, 2) Next ShN Set ShN = Nothing End Sub
Alain CROS
"Manu" a écrit dans le message de news: | Bonjour, | Sur une feuille, j'ai dessiné plusieurs forme libres repésentant une carte | de France. | Je voudrais pouvoir relire les coordonnées des différents points (nodes) de | ces formes afin de pouvoir zoommer/redessiner ces formes par VBA mais je n'ai | pas trouvé les propriétés X ou Y de ces nodes dans le modèle objet de VBA | (sous Excel 2000). | | Existe il une solution pour lire ces coordonnées ? | | Merci de votre aide
Bonjour,
Essayer ceci mais ça me semble bien compliqué.
Peut être une histoire de marteau !
Sub TypeCoord()
Dim ShN As ShapeNode
For Each ShN In ActiveSheet.Shapes(1).Nodes
MsgBox "Type : " & IIf(ShN.SegmentType = msoSegmentCurve, "Courbe", "Ligne") & _
vbCr & "X = " & ShN.Points(1, 1) & vbTab & "Y = " & ShN.Points(1, 2)
Next ShN
Set ShN = Nothing
End Sub
Alain CROS
"Manu" <Manu@discussions.microsoft.com> a écrit dans le message de news: F3CF23C7-654D-489C-BA92-D9A6ECE0C58C@microsoft.com...
| Bonjour,
| Sur une feuille, j'ai dessiné plusieurs forme libres repésentant une carte
| de France.
| Je voudrais pouvoir relire les coordonnées des différents points (nodes) de
| ces formes afin de pouvoir zoommer/redessiner ces formes par VBA mais je n'ai
| pas trouvé les propriétés X ou Y de ces nodes dans le modèle objet de VBA
| (sous Excel 2000).
|
| Existe il une solution pour lire ces coordonnées ?
|
| Merci de votre aide
Essayer ceci mais ça me semble bien compliqué. Peut être une histoire de marteau !
Sub TypeCoord() Dim ShN As ShapeNode For Each ShN In ActiveSheet.Shapes(1).Nodes MsgBox "Type : " & IIf(ShN.SegmentType = msoSegmentCurve, "Courbe", "Ligne") & _ vbCr & "X = " & ShN.Points(1, 1) & vbTab & "Y = " & ShN.Points(1, 2) Next ShN Set ShN = Nothing End Sub
Alain CROS
"Manu" a écrit dans le message de news: | Bonjour, | Sur une feuille, j'ai dessiné plusieurs forme libres repésentant une carte | de France. | Je voudrais pouvoir relire les coordonnées des différents points (nodes) de | ces formes afin de pouvoir zoommer/redessiner ces formes par VBA mais je n'ai | pas trouvé les propriétés X ou Y de ces nodes dans le modèle objet de VBA | (sous Excel 2000). | | Existe il une solution pour lire ces coordonnées ? | | Merci de votre aide
Modeste
Bonsour® Manu avec ferveur ;o))) vous nous disiez :
Existe il une solution pour lire ces coordonnées ?
voir l'aide VBA : Nodes et points Cette propriété renvoie la position du noeud spécifié sous la forme d'une paire de coordonnées. Chaque coordonnée est exprimée en points. Type de données Variant en lecture seule.
;o))) un exemple perso d'utilisation de position des nodes : http://cjoint.com/?ciaf5AoJ2d
-- ;o))) @+
Les news à la source !!! news://news.microsoft.com/microsoft.public.fr.excel et répondez OUI
n'oubliez pas les FAQ :http://www.excelabo.net http://dj.joss.free.fr/faq.htm http://www.faqoe.com http://faqword.free.fr
Bonsour® Manu avec ferveur ;o))) vous nous disiez :
Existe il une solution pour lire ces coordonnées ?
voir l'aide VBA : Nodes et points
Cette propriété renvoie la position du noeud spécifié sous la forme d'une
paire de coordonnées. Chaque coordonnée est exprimée en points. Type de
données Variant en lecture seule.
;o)))
un exemple perso d'utilisation de position des nodes :
http://cjoint.com/?ciaf5AoJ2d
--
;o)))
@+
Les news à la source !!!
news://news.microsoft.com/microsoft.public.fr.excel
et répondez OUI
n'oubliez pas les FAQ :http://www.excelabo.net
http://dj.joss.free.fr/faq.htm
http://www.faqoe.com http://faqword.free.fr
Bonsour® Manu avec ferveur ;o))) vous nous disiez :
Existe il une solution pour lire ces coordonnées ?
voir l'aide VBA : Nodes et points Cette propriété renvoie la position du noeud spécifié sous la forme d'une paire de coordonnées. Chaque coordonnée est exprimée en points. Type de données Variant en lecture seule.
;o))) un exemple perso d'utilisation de position des nodes : http://cjoint.com/?ciaf5AoJ2d
-- ;o))) @+
Les news à la source !!! news://news.microsoft.com/microsoft.public.fr.excel et répondez OUI
n'oubliez pas les FAQ :http://www.excelabo.net http://dj.joss.free.fr/faq.htm http://www.faqoe.com http://faqword.free.fr
Manu
Ca roule....
Je ne connaissais pas la propriété "points" et je coinçais à vouloir utiliser "nodes" qui ne convenait pas à mon besoin.
Merci pour votre aide Manu
Ca roule....
Je ne connaissais pas la propriété "points" et je coinçais à vouloir
utiliser "nodes" qui ne convenait pas à mon besoin.
