폰트를 자동 설치하는 코드

VBS 스크립트입니다.

Call InstallFont("C:\폰트.ttf")
Sub InstallFont(FontPath) 
    Dim WshShell 
    Set WshShell = WScript.CreateObject("WScript.Shell") 

    Const FONTS = &H14& 
    Set objShell = CreateObject("Shell.Application") 
    Set objFolder = objShell.Namespace(FONTS) 

    objFolder.CopyHere FontPath
End Sub

PPT에 폰트를 포함했는데, 읽기전용으로 사용은 힘들고, 폰트 설치하는 화면을 보여주기에는 상황이 여의치 않을때 사용하기에 좋습니다.

저런 상황에서는 이렇게 사용하시면 됩니다.

Call InstallFont("파워포인트\폰트.ttf")

Dim objShell
Set objShell = WScript.CreateObject("WScript.Shell")
objShell.Run("explorer 파워포인트\파워포인트.pptx")

WScript.Quit 

Sub InstallFont(FontPath) 
    Dim WshShell 
    Set WshShell = WScript.CreateObject("WScript.Shell") 

    Const FONTS = &H14& 
    Set objShell = CreateObject("Shell.Application") 
    Set objFolder = objShell.Namespace(FONTS) 

    objFolder.CopyHere WshShell.CurrentDirectory & "\" & FontPath
End Sub

이렇게 실행.vbs 같은 이름으로 저장하고, 파워포인트라는 폴더를 생성해 그 안에 폰트파일과 PPT 파일을 저장하면 됩니다.

물론 생성한 폴더와 VBS 파일은 같은 경로에 있어야 하구요.