VBA 파워 포인트에서 선 모양 만 변경하는 방법

Question

Powerpoint VBA에서 색상을 채우는 작업이 있습니다. 선과 상자를 선택할 때 선만 바꾸고 상자 색상을 그대로 두려고합니다. 개인 도형 만 변경할 수있는 방법이 있습니까?

Answer 1

아래의 코드는 파워 포인트 2007 년에 빨간색으로 슬라이드 2의 모든 라인의 색상을 변경합니다 :

Public Sub ChangeLineColours() 

Dim shp As Shape 

For Each shp In ActivePresentation.Slides(2).Shapes '<~~ Change '2' to whichever slide you want to loop through 
    If shp.Type = msoLine Then 
     shp.Line.ForeColor.RGB = RGB(255, 0, 0) 
    End If 
Next shp 

End Sub