Position d'un graphique

[Douby]

Bonjour,
J'ai un souci avec le positionnement d'un graphique :
- je crée un graphique à partir d'une macro VBA.
- je déplace ce graphique sur la page à l'aide d'une
instruction du type :
ActiveSheet.Shapes("Graphique 2").IncrementLeft -250
ActiveSheet.Shapes("Graphique 2").IncrementTop 280

Mon problème est le suivant : le déplacement n'est pas le
même selon que l'application Excel est en "plein écran"
(taille maximale) ou que la fenêtre est une peu réduite.
Ce déplacement varie donc d'un utilisateur à l'autre (les
tailles des écrans sont différentes, donc la fenêtre Excel
aussi, donc...) => les graphiques chevauchent les tableaux...

Avez-vous une solution pour que le déplacement ne dépende
pas de la taille de la fenêtre. L'idéal serait d'aligner
le graphique sur une cellule déterminée, mais je ne sais
pas faire.

Merci de votre aide
Douby

 

[Jon]

bonjour

une fois que tu arrives à manipuler les propriétés top, left, etc de ton graphique, tu peux l'aligner sur une cellule

With ActiveSheet.ChartObjects(1)
.Top = Range("G16").Top
.Left = Range("G16").Left
End With


pour ce qui est de la manipulation du graphe, regarde dans les anciens messages d'autres conversations, tu en trouveras une initiée par elve


voilà ci-dessous comment l'ajuster sur la cellule topleftcell qui l'héberge
(il existe aussi la bottomrightcell)