我的任务是在Powerpoint VBA中进行颜色填充。当我选择线条和方框时,我只想改变线条,并保留方框的颜色。有没有办法只改变私有形状?
发布于 2014-03-24 20:18:39
以下代码将在Powerpoint 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
https://stackoverflow.com/questions/22608556
复制相似问题