픽셀(px)사이즈에 맞게 슬라이드 사이즈 변경하기

아래 그림처럼, 사이즈를 원하는 픽셀 사이즈에 맞게 사용하고 싶은 때가 있다. 여담이지만, 정말 파워포인트VBA는 레퍼런스를 찾기가 참 힘들다. ChatGPT가 그나마 희망이기는 하다.

myimg



지난번 글에도 적은 것처럼 썸네일같이 단순한 이미지를 생성할때, 요긴하게 사용할 수도 있다.

myimg



사용한 코드는 아래와 같다. 최적화된 코드라기보다는 기능의 구현에 초점을 맞춘 코드이다.

Sub slide_resizes()

    Dim pptPres As Object    
    Set pptPres = ActivePresentation

    customWidth = InputBox("Input Width Value (Double)")
    customHeight = InputBox("Input Height Value (Double)")
    customWidth = ConvertCmToPoint(ConvertPxToCm(customWidth))
    customHeight = ConvertCmToPoint(ConvertPxToCm(customHeight))

    pptPres.PageSetup.SlideWidth = customWidth
    pptPres.PageSetup.SlideHeight = customHeight

    Set pptPres = Nothing
End Sub

Function ConvertCmToPoint(ByVal cm As Double) As Double
    ConvertCmToPoint = cm * 28.34646
End Function

Function ConvertPxToCm(ByVal px As Double) As Double
    ConvertPxToCm = px * 0.0264583333
End Function

Function ConvertPointToCm(ByVal pnt As Double) As Double
    ConvertPointToCm = pnt * 0.03527778
End Function


끝.