소스 공유

|  나만의 소스나 나만 알고 있는 좋은 소스를 서로 공유하는 자리입니다.

코드
2018.07.16 07:21

폰트를 자동 설치하는 코드

조회 수 133 추천 수 0 댓글 0
?

단축키

Prev이전 문서

Next다음 문서

크게 작게 위로 아래로 댓글로 가기 인쇄
?

단축키

Prev이전 문서

Next다음 문서

크게 작게 위로 아래로 댓글로 가기 인쇄
Extra Form
라이선스 GPL v2

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 파일은 같은 경로에 있어야 하구요.






Who's 네모

profile

메인 카카오톡 ID : kanae98 (네모)

히키코모리 블로그 : https://ndevel.net

상품판매 사이트 : https://ndevel.com


서브컬쳐 카카오톡 ID : cyemo (세모)

아니메월드 : https://open.kakao.com/o/gA8MIx1


27시간 심심하므로 채팅은 언제나 환영! '25시부터 26시 사이에 채팅 상시 대기' 랜덤 추첨 진행중 - 당첨확률 50-10!%


소스 공유

나만의 소스나 나만 알고 있는 좋은 소스를 서로 공유하는 자리입니다.

List of Articles
번호 분류 제목 글쓴이 날짜 조회 수
53 코드 [아미나] 출석 여부를 나타내는 메인화면 위젯 4 file 이니스프리 2018.12.15 80
52 코드 [PHP] 간단한 캐싱 클래스 3 title: 황금 서버 (30일)humit 2018.12.06 59
51 코드 [Python] 텔레그램을 이용한 게시판 새 글 알림봇 7 이니스프리 2018.12.02 71
50 코드 [아미나] 게시글을 작성하면 ID와 IP로 필터링하여 자동으로 랜덤 댓글을 남기기 (+랜덤 포인트) 7 file 이니스프리 2018.11.18 122
49 코드 [PHP] 그누보드 자동 게시글 작성 - 일본기상협회의 우리나라 날씨를 크롤링한 후 파파고로 번역하여 글 작성 4 file 이니스프리 2018.11.15 77
48 코드 [PHP] 기상청 RSS 시간별 예보 위젯 - cache 적용(?) 9 file 이니스프리 2018.10.28 90
47 코드 [오토핫키] 브라우저를 열어 지난번과 동일한 폴더에 MZK를 다운받고 압축을 네이티브로 해제하는 스크립트 file 이니스프리 2018.10.20 74
46 코드 [PHP] 기상청 중기예보를 캐러셀로 보여주는 위젯 (매우 허접합니다 ㅠㅠ) 10 file 이니스프리 2018.09.28 140
45 코드 [오토핫키] 구글 드라이브의 공유링크를 이미지 호스팅을 위한 다이렉트 링크로 바꿔주는 스크립트 10 file 이니스프리 2018.09.25 286
44 코드 [오토핫키] 특정 사이트에 대한 ping 테스트 결과를 실행시간과 함께 로그 파일로 저장하는 스크립트 2 이니스프리 2018.09.22 100
43 코드 [Python] 모 정부기관 사이트 파싱 후 PC 통신처럼 열람하고 싶은 게시글 번호를 입력하면 내용을 보여주는 소스 (허접) 4 이니스프리 2018.09.14 160
42 코드 파이선 셸에서 실행하면...? 3 title: 애프터 이펙트제르엘 2018.07.22 218
41 코드 C언어 삼중자를 이용한 코드 title: 황금 서버 (30일)humit 2018.07.22 110
» 코드 폰트를 자동 설치하는 코드 네모 2018.07.16 133
39 코드 잘못 쓰면 컴퓨터가 날아가는 코드 16 title: 애프터 이펙트제르엘 2018.07.08 233
38 코드 매우 특이한 버그 9 title: qr 코드gimmepoint 2018.06.05 220
37 내가 만든 merge sort 3 title: qr 코드gimmepoint 2018.05.17 182
36 코드 내가 만든 함수 모음집 2 title: qr 코드gimmepoint 2018.05.12 128
35 코드 내가 만든 사칙연산 계산기 title: qr 코드gimmepoint 2018.05.11 163
34 코드 내가 만든 함수 모음집 4 title: qr 코드gimmepoint 2018.05.08 107
목록
Board Pagination Prev 1 2 3 Next
/ 3
서버에 요청 중입니다. 잠시만 기다려 주십시오...