Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
468to472
468to472
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Farbverlauf Zeichenobjekt / VBA

Forumthread: Farbverlauf Zeichenobjekt / VBA

Farbverlauf Zeichenobjekt / VBA
18.08.2004 13:11:31
Stefan
Hallo Excelfreunde,
Ich habe ein Frage / Bitte:
ist es möglich, z.B. ein Zeichenobjekt gefüllt mit der Farbe hellgrau in einem Abstand von wenigen Millisekunden stufenweise abzudunkeln bis es z.B. schwarz ist ? Müßte doch mit einer Schleife und einer Wartefunktion gehen.
Könnt Ihr mir dabei behilflich sein ?
Herzlichen Dank und Gruß
Stefan
Anzeige

8
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Farbverlauf Zeichenobjekt / VBA
Ulf 

Sub Farbverlauf()
Dim Sh As Shape, f As Integer
Set Sh = ActiveSheet.Shapes("Oval 1")
For f = 200 To 0 Step -1
With Sh
.Fill.ForeColor.RGB = RGB(f, f, f)
.Fill.Visible = -1
.Fill.Solid
End With
DoEvents
Next
End Sub

Ulf
AW: Farbverlauf Zeichenobjekt / VBA
18.08.2004 13:37:05
Stefan
Superkrass...
Danke Ulf. Sag mir doch bitte noch was ich ändern muß, wenn ich
einen Verlauf von blau nach weiß haben möchte. Und was bedeutet
das .fill visible = -1 und das solid ?
Vielen Dank
Gruß Stefan
Anzeige
AW: Farbverlauf Zeichenobjekt / VBA
udo(Stgt) 

Sub Farbverlauf()
Dim Sh As Shape, f As Integer
Set Sh = ActiveSheet.Shapes("Rectangle 1")
weis nach blau:
For f = 255 To 0 Step -1
With Sh
.Fill.ForeColor.RGB = RGB(f, f, 255)
.Fill.Visible = -1
.Fill.Solid
End With
DoEvents
Next
End Sub

blau nach weis:

Sub Farbverlauf()
Dim Sh As Shape, f As Integer
Set Sh = ActiveSheet.Shapes("Rectangle 1")
For f = 0 To 255 Step 1
With Sh
.Fill.ForeColor.RGB = RGB(f, f, 255)
.Fill.Visible = -1
.Fill.Solid
End With
DoEvents
Next
End Sub

Gruß udo
Anzeige
AW: Farbverlauf Zeichenobjekt / VBA
18.08.2004 14:28:32
Stefan
Klasse, herzlichen Dank.
Gruß Stefan
AW: Farbverlauf Zeichenobjekt / VBA
udo
... fill visible -1 , heisst im Endeffekt immer und den Wert -1 reduzieren von 200 ab bis 0 eben ....
und solid müsste Vollfarbig bedeuten , kannst ja auch transparent färben mit Prozentualer Angabe über die Transparenz ...
denke fast das du .fill.solid rauslassen kannst ?
kannst ja mal probieren ...
Die werte Hinter RGB( f, f, f ) sind die RGB werte / bzw. variablen
ertes f = Magenta ( rot ) = 255,0,0
zweites f = gelb = 0,255,0
drittes f = Cyan ( blau ) = 0,0,255
Weis wäre demzufolge = 255,255,255
und schwarz 0,0,0
kannst dir ja die werte nun so anpassen wies brauchst ,
Gruß udo
;-)
Anzeige
AW: Farbverlauf Zeichenobjekt / VBA
Ulf
-1 bedeutet Füllung sichtbar, Rest siehe andere Antworten.
Ulf
AW: Farbverlauf Zeichenobjekt / VBA
18.08.2004 15:30:30
Stefan
Danke für Deine Mühe.
Kann man eigentlich die Geschwindigkeit des Effektes beeinflußen.
Gruß Stefan
AW: Farbverlauf Zeichenobjekt / VBA
Ulf
Kann man, aber schneller gehts nicht.
Ulf
Anzeige
;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige