Graph : Positionnement et dimension par VBA

[SKOBLAR]

Bonjour à tous,

j'aimerai deplacer et redimensionner un graphique par macro mais les codes VBA que j'utilise ne donne rien, rien ne se passe lorsque je les lance...

Quelqu'un aurait la soluce à mon problème ??

mon code :

ActiveSheet.Shapes("Pie chart 2").IncrementLeft -228.75
ActiveSheet.Shapes("Pie chart 2").IncrementTop -144#

thanks, et allez les bleus !!

Skob

 

[sonskriverez]

Re : Graph : Positionnement et dimension par VBA

Bonjour,

moi j'utilise ceci :

Private Sub DeplaceGraph()
Dim ch As ChartObject
Dim Grap As String
Dim Hauteur As Long
Dim X As Long
X = 127 ' position bas du Graph
Y = 5 ' position gauche du Graph
For Each ch In ActiveSheet.ChartObjects
Grap = ch.Name
ActiveSheet.ChartObjects(Grap).Activate
ActiveSheet.Shapes(Grap).ScaleWidth 0.66, msoFalse, msoScaleFromTopLeft 'redéfinir dimensions
ActiveSheet.Shapes(Grap).ScaleHeight 0.75, msoFalse, msoScaleFromTopLeft 'redéfinir dimensions
Hauteur = ActiveSheet.Shapes(Grap).Height
X = X + Hauteur + 10
ActiveSheet.Shapes(Grap).Left = Y
ActiveSheet.Shapes(Grap).Top = X
Next ch
End Sub

 

[SKOBLAR]

Re : Graph : Positionnement et dimension par VBA

OK j'ai trouvé les amis,

tous simplement :


With ActiveChart.Parent
.Height = 325 ' resize
.Width = 3 ' resize
.Top = 100 ' reposition
.Left = 100 ' reposition
End With

et le tour est joué

bye

 

[GNOUT]

Re : Graph : Positionnement et dimension par VBA

Excellent skoblar merci beaucoup