Rechercher : dans
Par :

[vba] coordonnées POINT graphique bulles

Dernière réponse le 1 aoû 2008 à 11:33:41 jaybee, le 31 jui 2008 à 14:43:52 
 Signaler ce message aux modérateurs

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

Configuration: Windows XP
Internet Explorer 6.0

1

lermite222, le 31 jui 2008 à 15:19:08

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+ L'expérience instruit plus sûrement que le conseil. (André G­ide)  

Répondre à lermite222

2

jaybee, le 31 jui 2008 à 15:30:56

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...

Répondre à jaybee

3

 lermite222, le 1 aoû 2008 à 11:33:41

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.

L'expérience instruit plus sûrement que le conseil. (André G­ide)  

Répondre à lermite222
Collection CommentÇaMarche.net