Sofort-Aktualisierung mit ScrollBox
13.01.2015 17:01:16
mkaselow
Desweiteren, gibt es einen eleganteren Weg eine Combobox zu füllen oder direkt jegliche oder zumindest die Excel Fonts auszulesen?
Private Sub UserForm2_Initialize()
OptionButton1.Value = True
With Me.ComboBox1
.AddItem "Chinyen"
.AddItem "Forte"
.AddItem "Gigi"
.AddItem "Haettenschweiler"
.AddItem "ZDingbats"
.ListIndex = "0"
End With
With ScrollBar1
.Min = 255
.Max = 0
.Value = 0
End With
With ScrollBar2
.Min = 255
.Max = 0
.Value = 0
End With
With ScrollBar3
.Min = 255
.Max = 0
.Value = 0
End With
End Sub
Private Sub Command1_Click()
'Farbauswahl
Selection.Interior.Color = RGB(ScrollBar1.Value, ScrollBar2.Value, ScrollBar3.Value)
'Text
Selection.Value = TextBox1.Value
'Font
Selection.Font.Name = ComboBox1.Value
'Rahmen
If CheckBox1.Value = True Then
With Selection.Borders
.LineStyle = xlLineStyleNone
.Weight = xlThick
End With
Else
With Selection.Borders
.LineStyle = xlNone
End With
End If
End Sub
Mit freundliche Grüßen