2013-06-24 1 views
0

VBScript를 사용하여 PowerPoint 프레젠테이션을 열면 열린 PowerPoint에서 각 슬라이드에 사용 된 템플릿 이름을 자동으로 찾을 수 있습니까? 슬라이드의 속성을 찾을 수 있습니까?슬라이드 속성 찾기

+0

프리젠 테이션은 템플릿을 기반으로합니다. 프레젠테이션의 모든 슬라이드는 동일한 템플릿을 기반으로하며 Ansgar의 .TemplateName 속성 (프레젠테이션, 메모 및 특정 슬라이드가 아님)이 첫 번째 질문에 대답을 제공합니다. 슬라이드의 특정 속성은 무엇입니까? –

답변

1

이런 식으로 시작하는 표준 방법은 VBA에서 매크로로 기록한 다음 해당 매크로를 VBScript로 "변환"하는 것입니다. 번역에서 관찰 할 사항은 here입니다. 이 같은 사건 뭔가에

는 할 수 있습니다 각 슬라이드의

Set pp = CreateObject("PowerPoint.Application") 
pp.Visible = True 

Set presentation = pp.Presentations.Open("C:\path\to\your.ppt") 
WScript.Echo presentation.TemplateName 
slide.Close 

레이아웃은 다음과 같이 검색 할 수 있습니다 :이 레이아웃의 수를 반환 것

For Each slide In presentation.Slides 
    WScript.Echo slide.Layout 
Next 

참고. 이름을 원할 경우 layout names에 숫자를 매핑하는 dictionary을 만들어야합니다.

+0

내가 여기서 말하고자하는 것은 슬라이드 1에 "제목 및 내용 테마"가 포함 된 프레젠테이션이 있고 슬라이드 2에 "캡션 테마가있는 콘텐츠"가 포함되어있는 경우입니다. 프레젠테이션은 각 슬라이드에 대해 서로 다른 테마로되어 있습니다. VBScript – surendra

+0

업데이트 된 답변보기를 사용하여 각 슬라이드의 테마를 프로그래밍 방식으로 찾고 싶습니다. –

+0

감사합니다. ansgar, 한 번 더 질문 할 수 없습니까? 나는 ppt가 screeen에 열리고 싶지 않다. 나는 주석으로 설명하고 옵션을 false로 지정하려고 시도했지만 "잘못된 요청입니다. 응용 프로그램 창을 숨기는 것은 허용되지 않습니다." – surendra

0

내가이 VBS에 있지만 VBA에서 어떻게 작동하는지 모르겠어요 수행 할 수 있습니다

Presentations.Open는 일반적으로 새 보이는 창에서 프레젠테이션을 엽니 다
Set pp = CreateObject("PowerPoint.Application") 
'pp.Visible = True 

Set presentation = pp.Presentations.Open("C:\path\to\your.ppt", False, False, False) 

; 이렇게하려면 응용 프로그램을 볼 수 있어야합니다 (그렇지 않으면 오류가 발생합니다). 그래서 PPT를 보이게해야했습니다. 프리젠 테이션 창을 열지 않으면 (위의 마지막 False parm) 앱을 볼 필요가 없습니다.