VBA (Português)
Coloque o seguinte código num módulo:
#If VBA7 Then
Private Declare PtrSafe Function AddFontResource Lib "gdi32.dll" Alias "AddFontResourceA" (ByVal lpFileName As String) As Long
#Else
Private Declare Function AddFontResource Lib "gdi32.dll" Alias "AddFontResourceA" (ByVal lpFileName As String) As Long
#End If
Sub VerificarTiposLetra()
' Verificar se o tipo de letra está instalado
Dim NewFont As StdFont, TipoLetra As String
'On Error Resume Next
TipoLetra = "TIPO DE LETRA" ' <-- altere
Set NewFont = New StdFont
With NewFont
.Name = TipoLetra
If StrComp(TipoLetra, .Name, vbTextCompare) <> 0 Then
' Tipo de letra não instalado, instalar
MsgBox AddFontResource("ARQUIVO DO TIPO DE LETRA") & " tipos de letra instalados. É recomendado reiniciar o PowerPoint após instalar o tipo de letra."
End If
End With
End Sub
Depois altere "TIPO DE LETRA" para o nome do tipo de letra e "ARQUIVO DO TIPO DE LETRA" para o caminho do tipo de letra (exemplo: "C:\Users\Usuario\Downloads\Tipo de letra.otf").
Em seguida basta executar a macro VerificarTiposLetra e ela verificará se a fonte existe no PC, se não existir ela instalará essa fonte.
É recomendado reiniciar o PowerPoint após instalar o tipo de letra.
Curtir