Positionner une AddTextbox dans un graphique

[zephir94]

Bonsoir à tous,

Je voudrais ajouter une zone de texte dans un graphique.
J'utilise la méthode suivante :

   ActiveChart.Shapes.AddTextbox(msoTextOrientationHorizontal, 1, 1, 89.25, 21.75).Select
     Selection.Characters.Text = Feuil9.Range("C" & ii).Value & " " & " Article(s)"

Jusque la pas de soucis, mon problème est que cette zone de texte est située en haut gauche et que je voudrais la positionner en bas à gauche !
J'ai essayé avant de vous déranger de la sélectionner dans le graphique et de voir avec l'enregistreur de macro en la déplaçant, mais cela ne génère aucun code !

Merci par avance pour vos aides et idées pour la déplacer

Amicalement

Zephir

 

[zephir94]

Bonsoir à tous j'ai trouvé donc je poste une réponse à ma question.

   ActiveChart.Shapes.AddTextbox(msoTextOrientationHorizontal, 1, 1, 89.25, 21.75).Select
     Selection.Characters.Text = Feuil9.Range("C" & ii).Value & " " & " Article(s)"

Génère une zone de texte ( dans mon cas je n'en ai qu'une ) donc elle porte le nom de ZoneTexte 1

ActiveChart.Shapes("ZoneTexte 1").Top = 200
ActiveChart.Shapes("ZoneTexte 1").Left = 90

on peut du coup positionner à souhait dans la Shape.

Bonne soirée à tous[/code]