Graph : Positionnement et dimension par VBA

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

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

Re : Graph : Positionnement et dimension par VBA

Excellent skoblar merci beaucoup