形状 Shape.Shapes
属性：Shapes As Shapes
描述
Shape 的成员
Shapes 属性返回一个 Shapes 集合。
此属性仅对组形状有效。返回的集合包含该组中的所有形状。
Shapes 属性返回一个只读值。
🐠 VBA 示例 以下代码将所有均匀填充颜色转换为灰度。
Sub Test()
ConvertFills ActivePage.Shapes
End Sub
Private Sub ConvertFills(ss As Shapes)
Dim s As Shape
For Each s In ss
If s.Type = cdrGroupShape Then
ConvertFills s.Shapes
Else
If s.Fill.Type = cdrUniformFill Then
s.Fill.UniformColor.ConvertToGray
End If
End If
Next s
End Sub
