Giúp em cách tạo list font chữ (1 người xem)

[eragon90]

các bác giúp em cách tạo một danh sách các font chữ với, dùng combobox nhé.thanks ạ.

 

[ndu96081631]

các bác giúp em cách tạo một danh sách các font chữ với, dùng combobox nhé.thanks ạ.

1> Code trong Module:

Function GetFontName()
  Dim cBar As CommandBarControl, tmpBar As CommandBar
  Dim i As Long
  Dim Arr()
  On Error Resume Next
  Set cBar = Application.CommandBars.FindControl(ID:=1728)
  If cBar Is Nothing Then
    Set tmpBar = Application.CommandBars.Add
    Set cBar = tmpBar.Controls.Add(ID:=1728)
  End If
  ReDim Arr(1 To cBar.ListCount)
  For i = 1 To cBar.ListCount
    Arr(i) = cBar.List(i)
  Next i
  GetFontName = Arr
  tmpBar.Delete
End Function

2> Code cho ComboBox trong UserForm

Private Sub ComboBox1_DropButtonClick()
  Dim Arr
  On Error Resume Next
  Arr = GetFontName
  Me.ComboBox1.List() = Arr
End Sub