Positioner un graphique avec une macro

[mrobin]

Bonjour,
J'ai une macro qui me sort un nombre de graphiques (un par page) variable en fonction d'un paramètre d'entrée. Pour être plus précis, je demande à l'utilisateur de rentrer un nombre d'années, ensuite à l'aide d'autres valeurs, la macro crée une page par par année et y place le graphique correspondant.
Petit problème: je n'arrive pas à positionner ces graphiques sur un endroit précis de chaque page. C'est possible de le faire pour un graphique connu, avec par exemple:
ActiveSheet.Shapes("Graphique 2").IncrementTop -0.75
Cependant le numéro attribué au graphique ne dépend de rien (par exemple mon 1er graphique s'appelle "Graphique2", mon 2e "Graphique2", mon 3e "graphique2", mon 4e "graphique3", etc...). Donc impossible logiquement de créer une macro pour me positionner chaque graphique à un endroit donné.
Avez-vous une solution??
Par avance merci!
Maxime

 

[CB60]

Re : Positioner un graphique avec une macro

Bonjour
A la création de ton graphique il te faut le nommer et ensuite tu pourras le déplacer avec ce nom, je n'ai pas la macro à l'usine, mais si personne ne te donne la solution, je te l'envoi ce soir

Edit regarde ce lien, des outils pour nommer et positionner un graphique
https://www.excel-downloads.com/threads/outils-graphique.71900/

 

[Guest]

Re : Positioner un graphique avec une macro

Bonjour Robin,

Une collection ChartObjects (qui contient les graphiques)d'une feuille de calcul se parcoure comme ceci :

Dim oChart As ChartObject
For Each oChart In ActiveSheet.ChartObjects
   with oChart
           .Left = LaGauche
           .Top= LeHaut  
   end with    
Next

Où LaGauche et LeHaut sont des valeurs dont je te laisse le calcul.

A+

 

[mrobin]

Re : Positioner un graphique avec une macro

Merci beaucoup c'est parfait ca faisait longtemps que je me prennais la tête avec ça!!!!!
Longue vie à Excel Downoloads!!!
@+
Max