ich möchte gerne die verfügbaren Schriftarten in eine ComboBox einlesen.
Dabei soll die Schriftart in der cbo so wie im Original aussehen.
Danke!
Gruß
Sigi
https://www.herber.de/bbs/user/94455.xlsm
Private Sub CommandButton1_Click()
With TextBox1
.FontName = ComboBox1.Value
.Font.Size = ComboBox2.Value
End With
With TextBox2
.FontName = ComboBox1.Value
.Font.Size = ComboBox2.Value
End With
With Range("B1")
.Font.Name = ComboBox1
.Font.Size = ComboBox2
.Value = TextBox1
End With
With Range("B2")
.Font.Name = ComboBox1
.Font.Size = ComboBox2
.Value = TextBox2
End With
End Sub
Gruß Peter