VBA Excel 2003 déplacer un graphiqe avec une macro

[Yunchi]

Bonjour,

J'ai vu qu'on pouvait déplacer un graphique avec la commande

ActiveSheet.Shapes("Graphique 1").IncrementLeft 357.75

En argument je pense que c'est le nom du graphique mais je ne suis pas sur

Donc j'ai essayé de prendre le nom du graphique et de le passer en argument mais ça ne marche pas

nom_graph = ActiveChart.Name
ActiveSheet.Shapes(nom_graph).IncrementLeft 357.75

Erreur : L'élément portant ce nom est introuvable ...

Donc apparement ce n'est pas le nom qui est en argument mais je ne sais pas ce que le "Graphique 1" représente Il n'y a pas de Id ou autre donc si quelqu'un connaissait cet argument ....

Merci

 

[phlaurent55]

Re : VBA Excel 2003 déplacer un graphiqe avec une macro

Bopnjour Yunchi

nom_graph = ActiveChart.Name
ActiveSheet.Shapes([COLOR="Blue"][SIZE="6"]"[/SIZE][/COLOR]nom_graph[COLOR="blue"][SIZE="6"]"[/SIZE][/COLOR]).IncrementLeft 357.75

Essaie en mettant les guillemets

 

[Yunchi]

Re : VBA Excel 2003 déplacer un graphiqe avec une macro

Nop j'avais essayé mais même erreur : /

 

[phlaurent55]

Re : VBA Excel 2003 déplacer un graphiqe avec une macro

Re Yunchi,

En argument je pense que c'est le nom du graphique mais je ne suis pas sur

je pense que tu utilises un nom de graphique erroné

pour t'en assurer,
Démarre l'enregistreur de macro
Déplace ton graphique
Arrête l'enregistreur de macro
Et va voir le code dans ton module........ tu y trouvera à coup sûr le nom du graphe

et reviens sur ce fil donner des nouvelles

 

[pierrejean]

Re : VBA Excel 2003 déplacer un graphiqe avec une macro

bonjour a tous

ActiveSheet.Shapes("Graphique 1").IncrementLeft 357.75

est un deplacement relatif
pour positionner utiliser:

ActiveSheet.Shapes("Graphique 1").Left= 100
ActiveSheet.Shapes("Graphique 1").Top= 50

valeurs 100 et 50 a adapter apres par exemple un deplacement manuel et avoir demandé

msgbox(ActiveSheet.Shapes("Graphique 1").Left & "     " & ActiveSheet.Shapes("Graphique 1").Top)

 

[Yunchi]

Re : VBA Excel 2003 déplacer un graphiqe avec une macro

-> phalaurent55 : oui pour avoir les bouts de codes j'ai bien utilisé l'enregistreur de macro et en fait comme nom j'ai "Graphique X" et X est variable et s'incrémente

-> pierrejean : merci pour l'astuce avec les .Left et .Top

Voilà donc mon grand souci est d'avoir le nom du graphique puisque ActiveChart.Name ne semble pas bon

 

[pierrejean]

Re : VBA Excel 2003 déplacer un graphiqe avec une macro

Re

pour avoir le nom du dernier graphique inseré

SonNom=ActiveSheet.Shapes(ActiveSheet.Shapes.Count).Name

 

[Yunchi]

Re : VBA Excel 2003 déplacer un graphiqe avec une macro

Merci beaucoup pierrejean 🙂

ta commande pour le nom marche parfaitement 🙂

et en suite pour bouger le graphe à la place de ("Graphique 1") en mettant (SonNom) et ça fonctionne !