kann mir vielleicht wieder mal jemand behilflich sein?
Wie kann ich es erreichen, das ca. 30 Diagramme auf einem Tabellenblatt per VBA alle die gleiche Größe bekommen?
Bin bei meiner Recherche nicht auf die Lösung gekommen.
Gruß Manfred
Sub DiaGleich()
Dim objDia As Object
For Each objDia In ActiveWorkbook.ActiveSheet.ChartObjects
' MsgBox objDia.Name
objDia.Width = 200
objDia.Height = 100
Next objDia
End Sub
Gruß Heiko
PS: Rückmeldung wäre nett !