返回 Shape 对象,该对象代表子形状或子形状范围共同的父形状。
expression.ParentGroup
expression 必选。该表达式返回“应用于”列表中的对象之一。
本示例在当前演示文稿的第一张幻灯片中创建两个形状并且组合这两个形状;然后使用该组中的一个形状访问父组并用同一种填充颜色填充该父组中的所有形状。本示例假设当前演示文稿的第一张幻灯片中当前不包含任何形状。如果它包含形状,则会产生错误。
Sub ParentGroup()
Dim sldNewSlide As Slide
Dim shpParentGroup As Shape
'Add two shapes to active document and group
Set sldNewSlide = ActivePresentation.Slides _
.Add(Index:=1, Layout:=ppLayoutBlank)
With sldNewSlide.Shapes
.AddShape Type:=msoShapeBalloon, Left:=72, _
Top:=72, Width:=100, Height:=100
.AddShape Type:=msoShapeOval, Left:=110, _
Top:=120, Width:=100, Height:=100
.Range(Array(1, 2)).Group
End With
Set shpParentGroup = ActivePresentation.Slides(1).Shapes(1) _
.GroupItems(1).ParentGroup
shpParentGroup.Fill.ForeColor.RGB = RGB _
(Red:=151, Green:=51, Blue:=250)
End Sub