모든 슬라이드의 도형의 위치를 일치시키기

 

일정한 틀로 슬라이드를 여러장 만들려면 먼저 슬라이드 마스터 레이아웃을 만들고

각 슬라이드는 그 틀을 이용해서 만들어야 개체의 위치가 일정하게 유지됩니다.

​

이미 만들어진 슬라이드인 경우 아래 VBA를 이용해보세요.

​

먼저 기준이 되는 1슬라이드의 도형의 위치를 정확히 맞추시고

조건은 모든 슬라이드에서 정렬할 도형들이 1슬라이드의 도형 이름과 일치해야 합니다.

​

Alt+F11 창에서 삽입 > 모듈을 추가한 후에 아래 코드를 붙여넣으세요.

Option Explicit

Sub 매크로1()
    
    Dim prs As Presentation
    Dim sld As Slide, sld1 As Slide
    Dim shp As Shape, shp1 As Shape, tshp As Shape
    
    Set prs = ActivePresentation
    Set sld1 = prs.Slides(1)    '첫번째 기준 슬라이드
    
    For Each sld In prs.Slides
        If Not sld Is sld1 Then
            For Each shp In sld.Shapes
                Set tshp = findSameShape(sld1, shp.Name)
                If Not tshp Is Nothing Then
                    shp.Left = tshp.Left
                    shp.Top = tshp.Top
                End If
            Next shp
        End If
    Next sld
    
End Sub

Function findSameShape(osld As Slide, sName As String) As Shape

    Dim oshp As Shape
    For Each oshp In osld.Shapes
        If oshp.Name Like sName Then
            Set findSameShape = oshp
            Exit For
        End If
    Next oshp
    
End Function

 

 

그리고 F5키로 실행하시면

1슬라이드를 기준으로

모든 슬라이드에서 1슬라이드의 도형이름과 일치하는 도형은

위치를 1슬라이드와 동일하게 수정해줍니다.

​

도형이 이름이 바뀌었다면 다른 방법을 강구해야 합니다.

https://kin.naver.com/qna/detail.naver?d1id=1&dirId=102020103&docId=414120962

PPT 매크로 질문드립니다

 

 

 

샘플파일 첨부합니다.

`

AlignAll1.pptm

0.25MB

 

 

 

관련: 지식인