파워포인트 VBA: 도형 위치 및 크기 변경하기

파워포인트 VBA: 도형 위치 및 크기 변경하기

파워포인트 VBA(Visual Basic for Applications)를 사용하면 도형의 위치와 크기를 변경하는 것도 가능합니다. 이를 통해 프레젠테이션 슬라이드를 보다 동적으로 만들고, 사용자의 요구에 맞게 도형을 조절할 수 있습니다.

도형 위치 변경하기

도형의 위치를 변경하기 위해서는 Left와 Top 속성을 사용할 수 있습니다. 이 속성들은 도형의 왼쪽 위 모서리를 기준으로 한 좌표를 설정하는데, 파워포인트 슬라이드는 왼쪽 상단 모서리를 (0, 0)으로 갖습니다. 따라서, 도형의 위치를 변경하려면 해당 도형의 Left와 Top 속성 값을 수정하면 됩니다.

다음은 도형의 위치를 (100, 200)으로 변경하는 예시 코드입니다.

Sub ChangeShapePosition()
    Dim shape As Shape
    Set shape = ActivePresentation.Slides(1).Shapes(1)
    
    shape.Left = 100
    shape.Top = 200
End Sub

위 코드에서 ActivePresentation.Slides(1).Shapes(1)은 첫 번째 슬라이드에 있는 첫 번째 도형을 가리키는 것을 의미합니다. 가져온 도형의 Left와 Top 속성을 수정하면 해당 도형의 위치가 변경됩니다.

도형 크기 변경하기

도형의 크기를 변경하기 위해서는 Width와 Height 속성을 사용할 수 있습니다. 이 속성은 도형의 가로 크기와 세로 크기를 설정하는데, 단위는 포인트입니다.

다음은 도형의 가로 크기를 200포인트, 세로 크기를 100포인트로 변경하는 예시 코드입니다.

Sub ChangeShapeSize()
    Dim shape As Shape
    Set shape = ActivePresentation.Slides(1).Shapes(1)
    
    shape.Width = 200
    shape.Height = 100
End Sub

도형의 크기를 변경하기 위해서도 Left, Top 속성과 마찬가지로 해당 도형의 Width와 Height 속성 값을 수정하면 됩니다.

도형 위치와 크기 변경하기

도형의 위치와 크기를 동시에 변경하기 위해서는 Left, Top, Width, Height 속성을 함께 사용하면 됩니다. 이를 통해 도형을 이동하면서 크기도 조절할 수 있습니다.

다음은 도형의 위치를 (100, 200)으로 변경하고, 가로 크기를 200포인트로, 세로 크기를 100포인트로 변경하는 예시 코드입니다.

Sub ChangeShapePositionAndSize()
    Dim shape As Shape
    Set shape = ActivePresentation.Slides(1).Shapes(1)
    
    shape.Left = 100
    shape.Top = 200
    shape.Width = 200
    shape.Height = 100
End Sub

위 코드에서 ActivePresentation.Slides(1).Shapes(1)은 첫 번째 슬라이드에 있는 첫 번째 도형을 가리키는 것을 의미합니다. 가져온 도형의 속성 값을 수정하여 도형의 위치와 크기를 변경할 수 있습니다.

 

파워포인트 VBA를 활용하여 도형의 위치와 크기를 동적으로 조절하면, 프레젠테이션 슬라이드의 디자인을 보다 다양하고 효과적으로 표현할 수 있습니다. 도형 위치 및 크기를 변경하는 VBA 스크립트를 활용하여 원하는 슬라이드를 만들어보세요.