VBA 매크로를 사용하여 PowerPoint 프레젠테이션에 슬라이드 추가를 복사하는 방법은 무엇입니까?

최종 업데이트: 2020년 6월

적용 대상: Office 2019 이상. 윈도우 전용.

다음은 독자의 질문입니다.

경영진에 대한 분기별 보고서 프레젠테이션의 일부로 종종 다른 프레젠테이션에서 여러 일반 정보 슬라이드를 복사해야 합니다. 큰 문제는 아니지만 이 연습을 자동화할 수 있다면 상당한 절약이 될 것입니다. 이를 달성하는 데 도움이 되는 모든 VBA 매크로에 감사드립니다!

방금 언급한 것처럼 Visual Basic for Applications를 사용하여 PowerPoint에서 슬라이드 복사 및 붙여넣기를 자동화할 수 있습니다. 매달 여러 개의 프레젠테이션을 만들어야 하는 경우 이 슬라이드 복사/가져오기 자동화를 사용하면 시간을 크게 절약할 수 있습니다!

슬라이드 추가를 위한 PowerPoint VBA

이 간단한 운동을 시작해 봅시다.

먼저 개발 탭이 활성화되고 표시되는지 확인하십시오. 방법은 다음과 같습니다 .

매크로 사용 프레젠테이션(파일 형식은 .pptm)을 이미 만들고 소스 프레젠테이션(source.pptm이라고 함)과 동일한 디렉터리에 배치했다고 가정하겠습니다. VBA를 사용하여 PowerPoint 프레젠테이션을 만드는 방법은 다음과 같습니다 .

먼저 해당 프레젠테이션을 백업해 보겠습니다(간단한 복사 및 저장).

그런 다음 대상 프레젠테이션의 새 VBA 모듈에 다음 매크로를 삽입해 보겠습니다. 이를 수행하는 방법에 대한 모든 세부 정보는 PowerPoint VBA 자습서 에서 찾을 수 있습니다 .

다음은 슬라이드를 자동으로 복사하여 붙여넣는 데 필요한 VBA 코드입니다.

내가 만든 몇 가지 가정:

  • 소스 프레젠테이션의 이름은 source.pptm입니다.
  •  소스 프레젠테이션에서 슬라이드 2-4를 붙여넣습니다.
  • 복사한 슬라이드를 슬라이드 5부터 배치합니다.

Sub InsertFromOtherPres()

' This short VBA macro copies slides from one presentation and inserts them into another

ActivePresentation.Slides.InsertFromFile FileName:="source.pptm", Index:=1, SlideStart:=2, 
SlideEnd:=4

End Sub

분명히, 코드에서 슬라이드 번호 인덱싱을 자유롭게 변경하여 요구 사항에 맞도록 하십시오.

여러 프레젠테이션을 반복하고 각 프레젠테이션의 특정 슬라이드를 관리 보고서에 삽입할 수 있습니다.

슬라이드 복제를 위한 PowerPoint VBA

슬라이드를 다른 프레젠테이션으로 복사하는 대신 프레젠테이션에서 하나 이상의 슬라이드를 복제할 수 있습니다.

Sub CopySlides()

' Short snippet to duplicate the third slide in a presentation, change the index/es accrodingly

ActivePresentation.Slides(3).Duplicate

End Sub

이는 PowerPoint 자동화의 몇 가지 간단한 예일 뿐입니다. 특정 질문을 찾는 독자는 연락처 페이지를 통해 자유롭게 문의하십시오.

도움이 되길 바랍니다 🙂

슬라이드 복사 시 서식 유지

이전 예의 문제점은 원본 프레젠테이션 테마 형식이 복사되지 않았다는 것입니다. 두 시트의 형식이 다르다고 가정하면 다음과 같은 일이 발생합니다.

실시예 1

 

Sub main()

Dim objPresentation As Presentation

Dim i As Integer

'open the target presentation

Set objPresentation = Presentations.Open("C:\2.pptx")

For i = 1 To objPresentation.Slides.Count

    objPresentation.Slides.Item(i).Copy

    Presentations.Item(1).Slides.Paste

Next i

objPresentation.Close

End Sub

코드를 실행하기 전에
이것은 복사하려는 슬라이드가 포함된 프레젠테이션입니다. 결과: 이 문제를 극복하려면 아래 코드를 사용할 수 있습니다.
복사할 슬라이드

결과

 

Sub Example2()

Dim objPresentation As Presentation

Dim i As Integer

'open the target presentation

Set objPresentation = Presentations.Open("C:\2.pptx")

For i = 1 To objPresentation.Slides.Count

    objPresentation.Slides.Item(i).Copy

    Presentations.Item(1).Slides.Paste

    Presentations.Item(1).Slides.Item(Presentations.Item(1).Slides.Count).Design = _

        objPresentation.Slides.Item(i).Design

Next i

objPresentation.Close

End Sub

슬라이드를 복사하는 것 외에도 위의 코드는 디자인을 복사합니다. 이 작업을 수동으로 수행하려면 슬라이드마스터를 새 프리젠테이션에 복사하면 됩니다. VBA를 사용하여 슬라이드마스터를 복사할 수는 없지만 대신 슬라이드의 디자인 속성을 설정할 수 있습니다.

Leave a Comment

Escape from Tarkov의 서버 연결 끊김에 대한 9가지 수정 사항

Escape from Tarkov의 서버 연결 끊김에 대한 9가지 수정 사항

Escape from Tarkov에서 서버 연결 끊김 문제를 해결하기 위한 9가지 테스트 솔루션을 즉시 수행하세요.

수정: 응용 프로그램이 그래픽 하드웨어에 액세스하지 못하도록 차단됨

수정: 응용 프로그램이 그래픽 하드웨어에 액세스하지 못하도록 차단됨

이 문서를 읽고 해결 방법에 따라 Windows 10 PC에서 응용 프로그램이 그래픽 하드웨어 오류에 액세스하지 못하도록 차단되었습니다.

Bootrec/Fixboot 액세스가 거부된 Windows 10 오류를 수정하는 방법?

Bootrec/Fixboot 액세스가 거부된 Windows 10 오류를 수정하는 방법?

이 기사는 bootrec/fixboot 액세스 거부 오류를 수정하는 유용한 솔루션을 제공합니다. CHKDSK 실행, 부트로더 복구, 시작 복구 및 더 많은 방법을 알아보세요.

[수정됨] Valheim이 계속 충돌, 정지, 검은색 화면, 문제를 시작하지 않음

[수정됨] Valheim이 계속 충돌, 정지, 검은색 화면, 문제를 시작하지 않음

Valheim이 계속 충돌/멈춤, 검은 화면, 실행되지 않음 또는 기타 문제가 있습니까? Valheim 문제를 해결하려면 다음 솔루션을 따르십시오.

수정됨: Steam 친구 네트워크에 연결할 수 없는 오류 [5가지 빠른 수정]

수정됨: Steam 친구 네트워크에 연결할 수 없는 오류 [5가지 빠른 수정]

Steam 친구 네트워크에 연결할 수 없음 오류를 수정하는 방법을 배우고 친구의 네트워크에 연결할 수 없는 Steam 오류를 해결하는 5가지 테스트된 솔루션을 따르십시오.

[수정됨] 레지던트 이블 7 바이오하자드 게임 충돌, 오류 등!

[수정됨] 레지던트 이블 7 바이오하자드 게임 충돌, 오류 등!

레지던트 이블 7 게임을 스트리밍할 수 없습니다. 단계별 안내에 따라 게임 오류를 해결하고 중단 없이 게임을 플레이하십시오.

Corsair 유틸리티 엔진 업데이트 오류를 ​​수정하는 방법

Corsair 유틸리티 엔진 업데이트 오류를 ​​수정하는 방법

corsair 유틸리티 엔진 업데이트 오류를 ​​해결하고 이 도구의 새로운 기능에 액세스하기 위한 문제 해결 솔루션을 알아보십시오.

PS5 컨트롤러가 연결되지 않거나 동기화되지 않는 문제를 해결하는 방법은 무엇입니까?

PS5 컨트롤러가 연결되지 않거나 동기화되지 않는 문제를 해결하는 방법은 무엇입니까?

PS5 컨트롤러가 연결되지 않거나 동기화되지 않으면 이러한 PS5 컨트롤러 연결 문제를 해결하기 위해 시도되고 테스트된 솔루션을 시도하십시오.

PC에서 젤다의 전설: 야생의 숨결을 플레이하는 방법?

PC에서 젤다의 전설: 야생의 숨결을 플레이하는 방법?

PC에서 젤다의 전설: 야생의 숨결을 플레이하고 싶으신가요? 여기에서 Windows PC에서 Legend Of Zelda BOTW를 플레이할 수 있는 모든 방법을 확인하십시오.

Windows 10 업데이트 오류 코드 0x800706D9를 수정하는 5가지 솔루션

Windows 10 업데이트 오류 코드 0x800706D9를 수정하는 5가지 솔루션

Windows 10 업데이트 오류 0x800706D9 문제를 해결하고 사용 가능한 업데이트를 설치한 다음 주어진 솔루션에 따라 Windows를 오류 없이 만들고 싶습니다.