OVH Cloud OVH Cloud

Déplacer un graphique

4 réponses
Avatar
Gyom
J'ai réussi à créer des graphiques sur une feuille, mais ils sont tous
superposés (ie ils sont créés au même endroit).
Comment peut-on les déplacer en VBA?

4 réponses

Avatar
Gyom
Je tiens à préciser que la méthode proposée par François récemment ne me
convient pas car j'ai d'autres objets graphiques sur ma feuille (boutons,
etc.)


J'ai réussi à créer des graphiques sur une feuille, mais ils sont tous
superposés (ie ils sont créés au même endroit).
Comment peut-on les déplacer en VBA?


Avatar
Gilbert.ROINEL
bonjour

jouer avec

ActiveSheet.Shapes(1).IncrementLeft 100
ActiveSheet.Shapes(1).IncrementTop 100

salutations

RGI

"Gyom" a écrit dans le message de news:

J'ai réussi à créer des graphiques sur une feuille, mais ils sont tous
superposés (ie ils sont créés au même endroit).
Comment peut-on les déplacer en VBA?


Avatar
isabelle
bonjour Gyom,

With ActiveSheet.Shapes("Graphique 1")
.IncrementLeft -200
.IncrementTop -40
End With

isabelle


J'ai réussi à créer des graphiques sur une feuille, mais ils sont tous
superposés (ie ils sont créés au même endroit).
Comment peut-on les déplacer en VBA?


Avatar
isabelle
ou autre exemple,

With Worksheets("Sheet1")
For i = 1 To 4
.ChartObjects(i).Top = .Rows(i * 10).Top
End With
Next

isabelle


J'ai réussi à créer des graphiques sur une feuille, mais ils sont tous
superposés (ie ils sont créés au même endroit).
Comment peut-on les déplacer en VBA?