[vba] coordonnées POINT graphique bulles

Question

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

lermite222 · Answer

Bonjour,
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+

jaybee · Answer

merci de ta reponse rapide, masi ca ne marche pas voila mon code :

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...

lermite222 · Answer

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.

[vba] coordonnées POINT graphique bulles

3 réponses

Discussions similaires

Newsletters