다수의 파워 포인트에 마스터 슬라이드를 적용하십시오.

Question

저는 이것을 아주 신났습니다. 마스터 슬라이드를 적용하고 싶은 파워 포인트 발표가 많이 있습니다. 모든 파워 포인트는 한 폴더의 하위 폴더 안에 있습니다 (이해가된다면)

누군가 코드를 도울 수 있다면 크게 도움이 될 것입니다. 코드합니다 :

1. 열기의 FileDialog는 그래서 폴더를 선택할 수있는 폴더에있는 모든 PPT를위한 파워 포인트에 대한

   Sub ShowFileDialog() 
   
   Dim dlgOpen As FileDialog 
   
   Set dlgOpen = Application.FileDialog(Type:=msoFileDialogOpen) 
   
   With dlgOpen 
   
       .AllowMultiSelect = True 
   
       .Show 
   
   End With 
   
   End Sub 
   

2. 스캔 (아래 코드 되 잖아) :

   • 현재 마스터 템플릿 삭제 (링크 삭제 포함)

   • 새 템플릿 적용 마스터 템플릿 의미가

   가까운 & 저장

희망. 현재 마스터 템플릿은 "slidemaster"라는 파일로 저장됩니다. 내가 '링크를 제거 "하지만 다른 템플릿을 적용하여 무슨 뜻인지 2010 년

Answer 1

확실하지 MS의 파워 포인트를 사용하고, 그런 다음, 프레젠테이션을 열 것 :

ActivePresentation.ApplyTemplate sTemplate 

어디 sTemplate = 전체를 템플릿이 들어있는 POTX 파일의 경로. 내 PPTFAQ 사이트에서

이 페이지는 파일 스펙과 일치하는 폴더의 모든 파일에 무언가를하는 방법에 대해 설명합니다

배치 : 폴더이 경우 http://www.pptfaq.com/FAQ00536_Batch-_Do_something_to_every_file_in_a_folder.htm

의 모든 파일에 무언가를, "something"은 위의 코드 행을 실행 한 다음 파일을 저장하는 것입니다.