Grafik in einem Dokument drehen

SupportCommunity Automation and VBA Grafik in einem Dokument drehen

Ansicht von 3 Beiträgen - 1 bis 3 (von insgesamt 3)
  • Autor
    Beiträge
  • #12732

    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

    #8397

    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

    #9195
    Bernhard KantzBernhard Kantz
    Moderator

    You can only change the angle for text labels (fpShapeTypeTextLabel) but not for the other shape objects.

    IShape is the interface of the Shape object.

    For the DocObjectSelection-object there is the Rotate-method (90°. 180°, 270°).

    support@weisang.com

Ansicht von 3 Beiträgen - 1 bis 3 (von insgesamt 3)
  • Du musst angemeldet sein, um auf dieses Thema antworten zu können.