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
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen