PowerPoint VBA教程:ParentGroup属性

返回 Shape对象,该对象代表子形状或子形状范围共同的父形状。

expression.ParentGroup

expression  必选。该表达式返回“应用于”列表中的对象之一。

VBA示例

本示例在当前演示文稿的第一张幻灯片中创建两个形状并且组合这两个形状;然后使用该组中的一个形状访问父组并用同一种填充颜色填充该父组中的所有形状。本示例假设当前演示文稿的第一张幻灯片中当前不包含任何形状。如果它包含形状,则会产生错误。


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

上页:PowerPoint VBA教程:Parent属性 下页:PowerPoint VBA教程:Password属性

PowerPoint VBA教程:ParentGroup属性

PowerPoint VBA教程:Password属性 PowerPoint VBA教程:PasswordEncryptionAlgorithm属性
PowerPoint VBA教程:PasswordEncryptionFileProperties属性 PowerPoint VBA教程:PasswordEncryptionKeyLength属性
PowerPoint VBA教程:PasswordEncryptionProvider属性 PowerPoint VBA教程:Path属性
PowerPoint VBA教程:Pattern属性 PowerPoint VBA教程:PauseAnimation属性
PowerPoint VBA教程:Perspective属性 PowerPoint VBA教程:PictureFormat属性
PowerPoint VBA教程:PlaceholderFormat属性 PowerPoint VBA教程:Placeholders属性
PowerPoint VBA教程:PlayOnEntry属性 PowerPoint VBA教程:PlaySettings属性
PowerPoint VBA教程:PointerColor属性 PowerPoint VBA教程:PointerType属性
PowerPoint VBA教程:Points属性 PowerPoint VBA教程:Position属性
PowerPoint VBA教程:Presentation属性 PowerPoint VBA教程:PresentationElapsedTime属性
版权所有 © 中山市飞娥软件工作室 证书:粤ICP备09170368号