如何僅更改vba powerpoint中的線形顏色

Question

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

Answer 1

下面的代碼將改變在幻燈片2中的所有線條顏色爲紅色，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