如何在VBA Powerpoint中僅更改線條形狀顏色

Question

我有任務在Powerpoint VBA中進行顏色填充。 當我選擇線和框時，我只想更改線並保留框的顏色。 有沒有辦法只更改私人形狀？

Answer 1

下面的代碼會將幻燈片2中的所有線條顏色在Powerpoint 2007中更改為紅色：

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