Redimensionner graphique sans utiliser ScaleWidth

[mimilll]

Bonjour le forum,

je cherche dimensionner des graphiques que je pilote de A à Z par macro.
J'ai trouvé la méthode suivante: (MichelXld )
ActiveSheet.Shapes(Grap).ScaleWidth 0.66, msoFalse, msoScaleFromTopLeft

Ce qui me deplait avec cette methode c'est le "ScaleWidth 0,66". Si j'ai bien compris, il agit comme un multiplicateur.
C'est à dire que si j'execute plusieurs fois le code (comme le fichier zippé de MichelXld ), le graph diminue à chaque fois !!! 😱😡😡

Ca serait chouette d'avoir une methode ou je precise la taille (en pixel, cm, pouce, ou meme en schtroumpf, je m'en moque!) et un point c'est tout!

Il y a bien entendu la methode ou on superpose a une plage de donnees, mais, si ca m'empeche de redimensionner mes colonnes par la suite!!! Je ne veux pas me priver de telles libertes!

Flute, zute, et re-zute,
VIVE LA LIBERTE ! houla... je m'emporte...
bref, un petit "merci" mais avec une grand respect...

 

[mimilll]

Re : Redimensionner graphique sans utiliser ScaleWidth

ouille ouille ouille

je vais me faire taper sur les doigts!

Michel a proposé une réponse (qui ne figure par dans les graaaaandes pages wikii tralala):

bonsoir Lucas

tu peux tester


With activeSheet.chartObjects(1)
'.Left = 50
'.Top = 100
.Width = 300
.Height = 250
End With


bonne soirée
MichelXld

vous n'avez rien vu,
vous ne vous souvenez de rien,
vos paupières sont louuurdes, très louuurdes.....
vous prenez votre souris et fermez cette fenetre discretement...

 

[tototiti2008]

Re : Redimensionner graphique sans utiliser ScaleWidth

Bonjour emilien,

solution 1 : lors de sa création :

Dim Graph As ChartObject
   Set Graph = ActiveSheet.ChartObjects.Add(Left:=5, Top:=12, Height:=317, Width:=374)

solution 2 : après...

Dim Graph As Shape
Set Graph = ActiveSheet.Shapes("Graphique 2")
Graph.Height = 317
Graph.Width = 374