공책

원본 ppt와 대상ppt를 실행합니다.대상ppt의 파일명을 target.pptx로 두던지 아래 소스에 targetName을 수정합니다.원본 ppt를 실행하여 아래 내용을 매크로에 기입하고 실행합니다. Sub slideCopy() Dim x As Integer Dim fileName As String fileName = ActivePresentation.Name Const targetName As String = "target.pptx" Application.DisplayAlerts = False For i = 1 To Presentations(targetName).Slides.Count Presentations(targetName).Slides(1).Delete Next Application.Displa..