Objekt (Shapes) drehen

01/02/2009 - 14:05 von Dominik Kohout | Report spam
Hallo!

Ich möchte gerne in einem EXCEL-Sheet ein Objekt (Shape?) einfügen und auf
Befehl drehen lassen.
Kann mir da vielleicht jemand einen kurzen Beispielcode hier posten?

Danke im Voraus.

Grüße
Dominik
 

Lesen sie die antworten

#1 stefan onken
02/02/2009 - 12:25 | Warnen spam
On 1 Feb., 14:05, "Dominik Kohout" wrote:
Hallo!

Ich möchte gerne in einem EXCEL-Sheet ein Objekt (Shape?) einfügen und auf
Befehl drehen lassen.
Kann mir da vielleicht jemand einen kurzen Beispielcode hier posten?

Danke im Voraus.

Grüße
Dominik



hallo Dominik,
der folgende Code setzt ein bereits auf der Tabelle vorhandenes Shape
(aus der Zeichen-Symbolleiste) voraus.
Dieses shape wird alle 1 Sekunde um 10° gedreht.
Das Einfügen eines Shapes iat aber auch per Code realisierbar.

Dim shpName, bRotieren As Boolean
Sub rotierenAn()
shpName = ActiveSheet.Shapes(1).Name
bRotieren = True
rotieren
End Sub

Function rotieren()
If bRotieren = True Then
ActiveSheet.Shapes(shpName). _
IncrementRotation 10
Application.OnTime Now + _
TimeValue("00:00:01"), "rotieren"
End If
End Function

Sub rotierenAus()
bRotieren = False
End Sub

Gruß
stefan

Ähnliche fragen