Welche Farbe hat mein Textfeld

Forumthread: Welche Farbe hat mein Textfeld
6 Beiträge zu diesem Forumthread
Anzeige

Forumthread: Welche Farbe hat mein Textfeld

27.12.2024 14:02:39

wolfgang

Guten Tag,
ich hoffe ihr hatte Alle ein schönes Weihnachtsfest.
Ich möchte gern Wissen welche Farbe mein Textfeld5 hat.
Gibt es dafür ein Makro ?

mfg wolfgang

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Welche Farbe hat mein Textfeld

27.12.2024 14:20:35

{Boris}
AW: Welche Farbe hat mein Textfeld

27.12.2024 14:27:38

JoWE
AW: Welche Farbe hat mein Textfeld in RGB Farbe

27.12.2024 16:46:26

wolfgang
AW: Welche Farbe hat mein Textfeld in RGB Farbe

27.12.2024 16:54:21

JoWE
AW: Welche Farbe hat mein Textfeld in RGB Farbe

27.12.2024 17:10:32

volti
Danke an ALLE ! -)

27.12.2024 18:22:10

wolfgang

AW: Welche Farbe hat mein Textfeld

27.12.2024 14:20:35

{Boris}

Hi,

MsgBox Tabelle1.Shapes("TextBox 1").Fill.ForeColor

VG, Boris

AW: Welche Farbe hat mein Textfeld

27.12.2024 14:27:38

JoWE

Hallo,
zum Beispiel Im VBA-Direktfenster abzufragen mit:
? activesheet.shapes("textbox 1").Fill.forecolor
oder
? activesheet.shapes("textbox 1").Fill.backcolor
Gruß
Jochen

AW: Welche Farbe hat mein Textfeld in RGB Farbe

27.12.2024 16:46:26

wolfgang

Hallo zusammen,
danke !
Wie sieht das in RGB Farbe aus ?

mfg wolfgang

AW: Welche Farbe hat mein Textfeld in RGB Farbe

27.12.2024 16:54:21

JoWE

Du könntest natürlich auch selbst mal googeln. Aber ich will mal nicht so sein:
https://learn.microsoft.com/en-us/office/vba/api/excel.shape.fill

AW: Welche Farbe hat mein Textfeld in RGB Farbe

27.12.2024 17:10:32

volti

Hallo Wolfgang,

willst Du die Farbkomponenten aus einer Farbe ermitteln?

Hier eine Möglichkeit:

Code:


Sub Test()
  Dim iFarbe As Long
  Dim iRot As Long, iBlau As Long, iGruen As Long
  
' iFarbe=activesheet.shapes("textbox 1").Fill.forecolor
  iFarbe = RGB(0, 20, 25)
  
' RGB-Werte aus Farbwert ermitteln
  iRot = iFarbe Mod 256:   iFarbe = (iFarbe - iRot) / 256
  iGruen = iFarbe Mod 256: iFarbe = (iFarbe - iGruen) / 256
  iBlau = iFarbe Mod 256
  
  Debug.Print iRot, iGruen, iBlau
 
End Sub