VBA/PowerPoint/슬라이드 사이즈 픽셀 단위로 구하기

파워포인트에서는 cm로 사진이나 도형의 크기를 지정한다.

물론 크기를 지정할 때 px 단위로 입력은 가능하다. 하지만 이것이 대량의 자료를 자동으로 처리하려고 할 때 꽤 귀찮다.

그래서 픽셀단위로 자동화를 하려고 할 때 슬라이드 사이즈를 먼저 알아야 다음 자동화를 할 수 있다. 그래서 현재 슬라이드의 크기를 알 수 있는 코드를 작성한다.

Sub GetSlideSize()
    Dim currentSlide As slide
    Dim slideWidth As Integer
    Dim slideHeight As Integer

    ' 현재 활성 슬라이드 가져오기
    Set currentSlide = ActiveWindow.View.slide

    ' 슬라이드의 픽셀 단위 크기 가져오기
    slideWidth = currentSlide.Master.Width
    slideHeight = currentSlide.Master.Height

    ' 결과 출력
    Debug.Print "Current Slide Size: " & slideWidth & "x" & slideHeight & " pixels"
End Sub

728x90

파워포인트 16:9 크기 슬라이드의 픽셀 사이즈는 아래와 같다.

 

그런데 놀랍다.

맥의 키노트는 16:9 사이즈 슬라이드 크기는 1920x1080이다. 그런데 파워포인트는 960x540. 딱 절반크기다. 파워포인트의 화질이 더 낮은걸까?

그래서 PP의 슬라이드 크기를 수동으로 1920x1080으로 바꾸니 크기가 더 줄어든다. 이건 뭐지? 기본 크기는 960 픽셀에 33.867cm인데 1920px로 지정하면 25.397 cm로 줄어든다.

이것은 다음에 다시 연구해봐야할 숙제가 됐다.

 

그나저나 MS는 VBA 업그레이드 계획없나? 날이 갈수록 VBA 쓰는게 너무 노가다 같다...