Cek Font Terinstall

Seringkali dalam membuat Aplikasi berbasis Excel, saya menggunakan Font khusus agar tampilan lebih elegan. Sayangnya jika aplikasi tersebut digunakan dikomputer yang berbeda dan belum terinstall font yang dimaksud maka tampikannya akan sedikit berantakan.

Bagaimana caranya jika ingin mengecek apakah Font tertentu sudah terinstall di komputer tersebut atau belum.

Kamu bisa menggunakan script dibawah ini untuk mengecek Font dengan VBA

'-----------------------------------------
' Sctipt VBA    : Check Font
' Author        : https://vba.co.id
'                 Situs belajar VBA No.1 di Indonesia
'-----------------------------------------

Sub CheckFont()
Dim myFont As String, i As Long
Dim FontList As CommandBarControl
 
myFont = "NamaFont"    'tuliskan nama fontnya

Set FontList = Application.CommandBars.FindControl(ID:=1728)

For i = 1 To FontList.ListCount
    If myFont = FontList.List(i) Then
        Exit Sub
    End If
Next i
MsgBox "Hubungi IT support karena Font ''" & myFont & "'' tidak terinstall.", , "Font Missing"
End Sub

Leave a Reply

Your email address will not be published. Required fields are marked *