Shape

Forumthread: Shape

Shape

06.11.2004 21:42:43

Gregor

hallo
Ich übe an einer If-Abfrage für Shapes
Wenn das markierte Shape gleich gelb, dann soll es die Farbe orange erhalten, sonst unverändert. Lieder kriege ich es nicht hin. Wie heisst die If Then Prozedur?
Gregor

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Shape

06.11.2004 21:52:56

Josef
AW: Shape

Gregor

AW: Shape

06.11.2004 21:52:56

Josef

Hallo Gregor!
Entweder so


Sub Orange()
If Selection.ShapeRange.Fill.ForeColor.SchemeColor = 13 Then
Selection.ShapeRange.Fill.ForeColor.SchemeColor = 53
End If
End Sub

oder so.


Sub OrangeRGB()
If Selection.ShapeRange.Fill.ForeColor.RGB = RGB(255, 255, 0) Then
Selection.ShapeRange.Fill.ForeColor.RGB = RGB(255, 102, 0)
End If
End Sub

Gruß Sepp

AW: Shape

Gregor

Hallo Josef
Vielen Dank für deine Hilfe (trotz Samstagabend). Es klappt wie gewünscht.
Gruss Gregor

Forumthread: Shape

2 Beiträge zum Forumthread Beiträge zu diesem Forumthread

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread