Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.09.2025 10:29:46
Wert aus einer Zelle bei jeder Eingabe in neue Zelle
26.09.2025 08:51:00
Teilinhalt einer Zelle vergleichen
25.09.2025 23:04:12
Einen von drei möglichen Einträgen in einer Zeile suchen
25.09.2025 19:59:48
Lebenserleichternde Datei, im Bezug auf die Essensauswahl
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
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
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige