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 SubPPT에 폰트를 포함했는데, 읽기전용으로 사용은 힘들고, 폰트 설치하는 화면을 보여주기에는 상황이 여의치 않을때 사용하기에 좋습니다.
저런 상황에서는 이렇게 사용하시면 됩니다.
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 파일은 같은 경로에 있어야 하구요.
humit