[vba] coordonnées POINT graphique bulles
jaybee
-
lermite222 Messages postés 8724 Date d'inscription Statut Contributeur Dernière intervention -
lermite222 Messages postés 8724 Date d'inscription Statut Contributeur Dernière intervention -
Bonjour a tous
j'ai un graphique a bulle avec plusieurs bulles et j'aimerai récupérer les coordonnées X et Y de chaque bulles.
Toutes mes bulles se trouvent dans la SerieCollection(1)
j'ai bien fait ma boucle sur toutes les bulles
ActiveChart.SeriesCollection(1).Points.Count
mais j'ai alors pensé à utiliser la méthode Value pour récupérer la valeur mais ca ne marche pas : ActiveChart.SeriesCollection(1).Points(i).Value
j'ai beau chercher je ne trouve pas.
merci d'avance
j'ai un graphique a bulle avec plusieurs bulles et j'aimerai récupérer les coordonnées X et Y de chaque bulles.
Toutes mes bulles se trouvent dans la SerieCollection(1)
j'ai bien fait ma boucle sur toutes les bulles
ActiveChart.SeriesCollection(1).Points.Count
mais j'ai alors pensé à utiliser la méthode Value pour récupérer la valeur mais ca ne marche pas : ActiveChart.SeriesCollection(1).Points(i).Value
j'ai beau chercher je ne trouve pas.
merci d'avance
A voir également:
- [vba] coordonnées POINT graphique bulles
- Coordonnées gps - Guide
- Changer carte graphique - Guide
- Point de suite word - Guide
- Point de restauration - Guide
- Graphique sparkline - Guide
3 réponses
Bonjour,
La cordonée Point est à 2 dimentions
essaye (j'ai jamais fait en VBA)
Dans le haut du module...
et dans la macro...
Sans garantie, je ne sait si cette fonction est enl ecture seule ou pas.
A+
La cordonée Point est à 2 dimentions
essaye (j'ai jamais fait en VBA)
Dans le haut du module...
Private Type POINTAPI X As Long Y As Long End Type
et dans la macro...
Dim P as POINTAPI e = ActiveChart.SeriesCollection(1).Points(P) X = P.X Y = P.Y
Sans garantie, je ne sait si cette fonction est enl ecture seule ou pas.
A+
merci de ta reponse rapide, masi ca ne marche pas voila mon code :
je suis aussi debutant en vba...
Private Type POINTAPI
X As Long
Y As Long
End Type
Sub baby()
Dim a As Integer
'Dim b As Integer
Dim c As Long
Dim P As POINTAPI
'
ActiveChart.ChartArea.Select
ActiveChart.PlotArea.Select
a = ActiveChart.SeriesCollection(1).Points.Count
For P = 1 To a
ActiveChart.SeriesCollection(1).Points (P)
X = P.X
Y = P.Y
MsgBox (X)
Next P
End Sub
je suis aussi debutant en vba...
J'ai un peu regarder pour ton point, j'ai confondu Point VBA et Point dans graph à bulles.
Mais que cherche-tu à savoir ? Tu parle de valeur ? et de coordonnées X,Y ?
point c'est pour adapté les propriétés de la bulle (ou les connaître) et aucun cas il n'a une valeur.
Si c'est sa valeur faut plutôt rechercher dans la plage de la série.
Mais que cherche-tu à savoir ? Tu parle de valeur ? et de coordonnées X,Y ?
point c'est pour adapté les propriétés de la bulle (ou les connaître) et aucun cas il n'a une valeur.
Si c'est sa valeur faut plutôt rechercher dans la plage de la série.