VBA/파워포인트/사진정리 - 3. 기타 유틸리티

사진 정리 코드 작성을 위한 간단한 세 개의 유틸리티를 만들었다.

2024.01.10 - [코딩/vba] - VBA/파워포인트/사진정리 - 0. 개요

VBA/파워포인트/사진정리 - 0. 개요

사진 크기 확인

사진 크기를 픽셀 단위로 확인하기 위한 코드.

파워포인트에서 사진을 선택하고 실행한다. 선택된 개체가 사진이면 사이즈를 출력한다.

728x90

Sub GetPictureSize()
    Dim selectedShape As Shape
    
    ' 현재 선택된 슬라이드에서 선택된 모양(Shape) 가져오기
    Set selectedShape = ActiveWindow.Selection.ShapeRange(1)
    
    ' 선택된 모양이 이미지인지 확인
    If Not selectedShape Is Nothing Then
        If selectedShape.Type = msoPicture Then
            ' 이미지의 크기 출력
            Debug.Print selectedShape.Width & " x " & selectedShape.Height
        End If
    End If
End Sub

슬라이드 사이즈 확인

파워포인트에서는 픽셀 단위로 슬라이드 사이즈를 알 수가 없어 작성한 코드.

현재 슬라이드의 너비와 높이를 픽셀 단위로 출력한다.

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

배열 확인

배열을 화면으로 프린트해서 확인하기 위한 코드.

다차원용도 만들었는데 날려먹어서 1차원용만 있다.

Sub PrintArray(ByRef varArray As Variant)
    ' utility to print array
    Dim i As Integer
    For i = LBound(varArray) To UBound(varArray)
        Debug.Print varArray(i)
    Next i
End Sub