VBA 파워포인트에서 도형 색상 바꾸기

만약, 도형이미지를 여러 개의 슬라이드에 있는 것들을 모두 바꾸고 싶을 때

아래의 코드를 이용하여 바꾼다.

​

Sub ChangeShapeColor()

    Dim oSh As Shape
    Dim oSl As Slide

    ' 파워포인트의 슬라이드를 반복
    For Each oSl In ActivePresentation.Slides

        ' 슬라이드쇼 안에 도형 개체를 찾아 반복
        For Each oSh In oSl.Shapes

            ' 만약 지금 컬러가 비교할 컬러라면
            If oSh.Fill.ForeColor.RGB = RGB(169, 209, 142) Then

                ' 다른 색상으로 변경 한다.
                oSh.Fill.ForeColor.RGB = RGB(91, 155, 213)

            End If

        Next oSh

    Next oSl

End Sub