Office: (Office 2007) Grafik mittels VBA drehen?

Hallo,

in ein Excel-Blatt ist über Einfügen -> Grafik ein PNG-Bild eingefügt worden. Über Format -> Drehen -> Weitere Drehungsoptionen kann das Bild nun in einem beliebigen Winkel gedreht werden.

Manuell geht das wunderbar. Ich möchte das ganz jedoch in VBA umsetzen, und hier ist mein Problem. Wenn ich für etwas den VBA-Code wissen wollte, habe ich immer ein Makro aufgezeichnet um die Syntax zu analysieren.

Das PROBLEM bei Excel 2007 ist aber: für Grafiken funktioniert die Aufzeichnung nicht richtig! Ich kann die Aufzeichnung starten, die Drehung ausführen und die Aufzeichnung beenden. Leider bleibt aber im VBA-Modul überhaupt gar kein Code hängen, der die Grafik betrifft! Wie kann es sein, dass es für das Handeln von Grafiken keine Aufzeichnungsoption gibt??

Muss ich eventuell noch einige Verweise unter Extras -> Verweise setzen?

MfG

:)

 

Hi ???

' **********************************************************************
' Modul: Modul1 Typ: Allgemeines Modul
' **********************************************************************

Option Explicit

Sub linksrum()
Dim objShp As Shape

Set objShp = Sheets("Tabelle1").Shapes("Grafik 1")

objShp.Rotation = objShp.Rotation - 45

Set objShp = Nothing
End Sub

Sub rechtsrum()
Dim objShp As Shape

Set objShp = Sheets("Tabelle1").Shapes("Grafik 1")

objShp.Rotation = objShp.Rotation + 45

Set objShp = Nothing
End Sub

 

Mit diesem Code bekomme ich folgende Fehlermeldung:

Die Form ist gesperrt und sie kann nicht gedreht werden

Wie kann ich diese denn entsperren, dass das funktioniert?

Wenn ich das Diagramm mit der rechten Taste anklicke und dann -> Diagrammbereich formatieren klicke -> Eigenschaften -> Gesperrt den Haken löse passiert auch nichts (so wie der Text es bei dem Haken auch vermuten lässt).

Nur wo ist dann der andere gesperrt Haken?

 

Hi Simon,

hast Du den Blattschutz aktiviert?
Schau mal, ob Du in "Überprüfen -> Blatt schützen" den Haken bei "Objekte bearbeiten" gesetzt hast...