Hallo,
diesmal habe ich folgendes Problem:
Ich habe mehrere Grafiken, die auf eine einzelne Seite in einem Dokument erscheinen sollen. Soweit habe ich es auch schon hinbekommen.
Jetzt müssten einige dieser Grafiken um verschiedene Winkel gedreht werden. Probiert habe ich es über die ‘Angle’ Eigenschaft. Hier mal der entsprechende VBA-Code:
Dim dieGrafik As Shape
Set dieGrafik = .Pages(iPages).AddDocObject(fpObjectType3DDiagram, _
koordinatenLinks, koordinatenOben, _
koordinatenRechts, koordinatenUnten, _
grafikName)
If Not TypeOf dieGrafik Is Shape Then Debug.Print “Komisch”
If Flaeche = “GL” Then dieGrafik.Angle = 270#
Soweit ich die Hilfe verstanden habe, sollte es so klappen.
Aber so einfach scheint es nicht zu sein, daher möchte ich Sie um Hilfe bitten.
Weiterhin habe ich zwei Fragen zur Fehlermeldung, die die letzte Zeile dieses Codes bei mir erzeugt:
“Die Methode ‘Angle’ für das Objekt ‘IShape’ ist fehlgeschlagen.”
1. Was ist das Objekt ‘IShape’? In der Hilfe habe ich dazu nichts gefunden.
2. Wieso wird ‘Angle’ als Methode erkannt, wo es doch laut Hilfe eine Eigenschaft mit Schreibzugriff darstellt?
Mit freundlichen Grüßen,
Thorsten Wolterink
aktualisiert.