Hallo Zusammen,
mit dem nachfolgenden Code möchte ich die Höhe des Diagramms anpassen.
Leider wird dabei immer wieder der Fehler:
Die Methode Height für das Objekt Shape ist fehlgeschlagen.
Ich habe vorher schon einen select eingebaut, leider ebenfalls ohne Erfolgt
Woran kann dies liegen?
Dim ch As ChartObject
For Each ch In WS.ChartObjects
'Diagramm/Zeichnungsform anpassen bei Monatswerten
If ch.Name Like "M*Dia*" Then
'Höhe festlegen (Zeichnungselement)
If cxls_vers("xl2007") = False Then WS.Shapes(ch.Name).Select
WS.Shapes(ch.Name).Height = 500
End If
Next ch
Seltsam ist noch, dass es unter Excel 2010 funktioniert.
Danke Euch
VG Steffen