Multipage Farbe auf Userform ändern

Tina · 20. September 2022, 06:19

Hallo, ich habe in einem Userform ein MUltipage Objekt mit mehreren Seiten. Wie kann ich die Hintergrundfarbe der Multipage ändern? In den Eigenschaften finde ich dazu nichts.

Danke

INOPIAE · 20. September 2022, 08:32

Hi,

man kann die Multiseiten nicht einfärben. Alternativ kann man ein Hintergrundbild (Picture) in der gewünschten Farbe einfügen.

mumpel · 20. September 2022, 22:22

Eine Multipage-Seite kann man wie folgt einfärben.

1. Eine beliebige Zelle mit der gewünschten Farbe einfärben
2. Die Zelle markieren und Strg+c drücken
3. Multipage auswählen
4. Seite der Multipage auswählen
5. Eigenschaft Picture auswählen und Strg+v drücken
6. Eigenschaft PicturSizeMode auf 1 - frmSizeModeStretch setzen

Die Farbe wird automatisch als Bitmap in der Userform gespeichert. Damit wird jedoch nur die Seite eingefärbt, nicht die Registerlasche. Die kann man aber ausblenden und per Code anwählen. Ein kleiner Teil bleibt jedoch ungefärbt. Diesen kann man mit Labels füllen, die entsprechend in der Größe angepasst und mit der entsprechenden Farbe eingefärbt werden (den Farbcode der Zelle kann man berechnen, siehe Code unten), Label-Caption lässt man einfach leer.

Visual Basic-Quellcode

Public Function ZellfarbeInHexUmwandeln(Zelle As String) As String
ZellfarbeInHexUmwandeln= "&H" & Right("00000000" & Hex$(Range(Zelle).Interior.Color), 8) & "&"
End Function
Public Sub CommandButton1_Click()
ActiveCell.Value = ZellfarbeInHexUmwandeln(ActiveCell.Address)
End Sub

Tina · 22. September 2022, 06:12

Super das funktioniert, auf die Idee mit dem Hintergrund Bild mit einer Farbe füllen muss man erstmal kommen:-)

Danke

Multipage Farbe auf Userform ändern

Multipage Farbe auf Userform ändern

Visual Basic-Quellcode

Benutzer online 1

Ähnliche Themen

3 Benutzer haben hier geschrieben