VBA/파워포인트/사진정리 - 2.2.1. 사진 수 계산 함수

이 함수는 슬라이드에 있는 도형들 중에서 사진인 도형을 찾아서 해당 수를 반환하는 간단한 역할을 한다.

인수로 슬라이드에 있는 도형들(slideShapes)을 받는다.

1. numberOfPics = 0: 초기에 사진의 수를 0으로 설정합니다.
2. For Each shp In slideShapes ... Next shp: 슬라이드에 있는 각 도형에 대해 반복.
3. If shp.Type = msoPicture Then: 현재 도형이 사진인 경우를 확인. msoPicture는 PowerPoint에서 사진을 나타내는 상수.
4. numberOfPics = numberOfPics + 1: 사진인 도형을 발견하면 numberOfPics를 증가시킨다.
5. GetNumberOfPictures = numberOfPics: 최종적으로 사진의 수를 반환.

Function GetNumberOfPictures(ByRef slideShapes As Shapes) As Integer
    ' count number of pictures in Shapes
    Dim numberOfPics As Integer
    Dim shp As Shape
    numberOfPics = 0
    For Each shp In slideShapes
        If shp.Type = msoPicture Then
            numberOfPics = numberOfPics + 1
        End If
    Next shp
    
    GetNumberOfPictures = numberOfPics
End Function