Pfeil Rotation
28.06.2004 09:21:05
Thomas
das Thema Rotation mit Pfeilen wurde in diesem Forum schon mal behandelt.
Ich habe aber noch ein paar Fragen dazu.
Wenn ich ein minus im VBA Code schreibe und ich ein minus Wert in der Zelle
A1 bekomme dreht sich der Pfeil nicht in die angegebene Richtung.
Zum Beispiel: in A1 steht -2,2 dann soll sich der Pfeil nach unten auf 180 Grad drehen. Ich nehme an, das ich im VBA Code einen Fehler gemacht habe.
Meine 2. Frage ist: kann ich in diesem VBA Code auch >2,1 Schreiben?
Ich habe zum bessern Verständniss mal das Excelsheet als Datei mit angehangen.
https://www.herber.de/bbs/user/7799.xls
Ich bedanke mich schon mal für die Infos.
Mit freundlichen Grüßen
Thomas
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("A1")) Is Nothing Then Exit Sub
With ActiveSheet.Shapes("Autoform 1")
If Range("A1").Value > 4 Then
.Rotation = 0#
ElseIf Range("A1").Value > 2 Then
.Rotation = 45#
ElseIf Range("A1").Value < 2 Then
.Rotation = 90#
ElseIf Range("A1").Value > -2 Then
.Rotation = 180#
End If
End With
End Sub