Yazı fontunu kontrol et

[meslek5]

Merhaba bilgisayarda herhangi bir yazı fontunun yüklü olup olmadığı makro ile kontrol edebilir miyiz? örneğin Arial yazı fontunun yüklü olup olmadığını kontrol etsin ve eğer yüklü değilse uyarı versin. Şimdiden teşekkür ederim.

 

[Emir Hüseyin Çoban]

.

Sub kod()
    
    yol = "C:\Windows\Fonts\Arial.TTF"
    
    If Dir(yol) = "" Then
        MsgBox "Dosya Yok", vbCritical
        Exit Sub
    Else
        MsgBox "Var"
    End If
    
End Sub

.