픽셀(px)사이즈에 맞게 슬라이드 사이즈 변경하기
과거 pixel 을 cm로 변경하는 글을 적은 바 있다.
[파워포인트] pixel을 cm로 바꾸기, 4:3 / 16:9 화면 비율 맞추기
파워포인트 슬라이드 크기 설정파워포인트 사용시 대부분 preset을 사용하지만, 가끔 웹에서 사용하기 위해 슬라이드 크기를 조정하려고 하면, 너비와 높이를 cm 단위로 설정해야 함을 알 수 있다
sunnybong.tistory.com
아래 그림처럼, 사이즈를 원하는 픽셀 사이즈에 맞게 사용하고 싶은 때가 있다. 여담이지만, 정말 파워포인트VBA는 레퍼런스를 찾기가 참 힘들다. ChatGPT가 그나마 희망이기는 하다.
지난번 글에도 적은 것처럼 썸네일같이 단순한 이미지를 생성할때, 요긴하게 사용할 수도 있다.
사용한 코드는 아래와 같다. 최적화된 코드라기보다는 기능의 구현에 초점을 맞춘 코드이다.
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
끝.
