빈 슬라이드 일괄 추가하는 코드

 

 

양면인쇄나 모아찍기를 위해서 일정한 위치마다 빈 슬라이드를 추가하고 싶을 때 쓰는 코드입니다.

 

예를 들어 매 4페이지 마다 빈 슬라이드 2개씩 삽입해야 하는 경우 슬라이드가 몇백장이라면 수작업 하는 것이 번거롭습니다. 이때 아래 코드로 빈 슬라이드를 삽입해줍니다. 특히 양면 인쇄를 하는 경우 다음 슬라이드와 구분이 필요할 때 빈 슬라이드가 꼭 필요 합니다. 2장씩 모아찍기를 한다면 빈 슬라이드를 2개 이상 넣어야할 수도 있습니다.

 

 

아래 코드는 일정 페이지마다 빈 페이지를 여러장 넣을 수 있습니다.

 

stp 는 몇페이지마다 삽입할지이고

cnt 는 빈 페이지를 몇개씩 삽입할지입니다.

 

파워포인트에서 Alt+F11 창을 켜고

삽입 > 모듈을 하나 추가한 다음 아래 코드를 붙여넣고

녹색 플레이 버튼이나 F5로 실행합니다.

stp, cnt는 미리 수정하고 실행해야 합니다.

 

Sub 빈슬라이드추가()
 
    Dim i&, j&, total&, stp&, cnt&
    
    stp = 10  '몇페이지마다 삽입할지
    cnt = 2   '빈페이지를 몇개 삽입할지
    
    With ActivePresentation
        total = .Slides.Count
        '10페이지마다 2개씩이면. i=11,12, 23,24, 35,36....
        For i = 1 To Int(total / stp)
            For j = 0 To cnt - 1
                .Slides.Add i * stp + (i - 1) * cnt + j + 1, ppLayoutBlank
                'Debug.Print i; "/"; Int(total / stp), i * stp + (i - 1) * cnt + j + 1, total
            Next j
        Next i
    End With
    
End Sub