Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
512to516
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
512to516
512to516
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Shape

Shape
06.11.2004 20: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
Anzeige
AW: Shape
06.11.2004 20: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

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige