title image


Smiley prüfen, ob Schriftart installiert ist
Hallo Popey,



folgendes Makro prüft, ob die gewünschte Schriftart verfügbar ist:



Sub Schriftprüfen()

Dim c As CommandBarControl

Dim x As Long

Dim gefunden As Boolean

Dim Schrift As String



Set c = Application.CommandBars.FindControl(Id:=1728)



Schrift = "Arial"



For x = 1 To c.ListCount

If c.List(x) = Schrift Then

gefunden = True

Exit For

End If

Next





If gefunden = True Then

MsgBox "Schriftart " & Schrift & " ist installiert"

Else

MsgBox "Schriftart " & Schrift & " ist nicht installiert"

End If

End Sub



Gruß

Jens



geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: