VBS 스크립트입니다.
1 2 3 4 5 6 7 8 9 10 11 | 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에 폰트를 포함했는데, 읽기전용으로 사용은 힘들고, 폰트 설치하는 화면을 보여주기에는 상황이 여의치 않을때 사용하기에 좋습니다.
저런 상황에서는 이렇게 사용하시면 됩니다.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 | 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 파일은 같은 경로에 있어야 하구요.