Déplacer un graphique (macro)

[Adeus]

Bonjour le forum

Je cré un graphique avec une macro et j'aimerai pouvoir le déplacer.

J'ai essayé avec l'enregistrement de macro et il me marque les lignes suivantes:

 ActiveSheet.ChartObjects('Graphique 7').Activate
    ActiveChart.ChartArea.Select
    ActiveSheet.Shapes('Graphique 7').IncrementTop -12.7

Le problème est que le nom du graphique n'est pas le meme a chaque création ce qui est normal.Donc j'aimerai pouvoir activer le graphique sur l'onglet en question (1 seul graphique par page )pour pouvoir le déplacer et le mettre au bon endroit sur la page.


Merci de votre aide

 

[MichelXld]

bonjour

pour modifier l'emplacemnet du 1er graphique dans la feuille active ,tu peux tester une synthaxe de ce type

ActiveSheet.ChartObjects(1).Left = 50 'horizontal
ActiveSheet.ChartObjects(1).Top = 200 'vertical



bonne journée
MichelXld

 

[Adeus]

Merci beaucoup MichelXld

C'est exactement ce qu'il me fallait.

Ces lignes de codes fonctionnent parfaitement

ActiveSheet.ChartObjects(1).Left = 50 'horizontal
ActiveSheet.ChartObjects(1).Top = 200 'vertical

Adeus