VBA自动安装和删除字体的代码

时　间:2017-12-25 12:51:18
作　者:    ID：47512  城市：南京
摘　要:VBA自动安装和删除字体的代码
正　文:

Private Declare Function AddFontResource Lib "gdi32" Alias "AddFontResourceA" (ByVal lpFileName As String) As Long
Private Declare Function RemoveFontResource Lib "gdi32" Alias "RemoveFontResourceA" (ByVal lpFileName As String) As Long

Private Sub Command1_Click() '增加字体
Dim lResult As Long
lResult = AddFontResource("c:\myApp\myFont.ttf")
End Sub
Private Sub Command2_Click() '删除字体
Dim lResult As Long
lResult = RemoveFontResource("c:\myApp\myFont.ttf")
End Sub