PowerPoint VBA教程:HasChildShapeRange属性

如果所选的形状中包含子形状,则此属性值为 True。只读。Boolean 类型。

expression.HasChildShapeRange

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

VBA示例

本示例使用绘图画布新建幻灯片,再向画布中添加形状,然后选择添加到画布上的形状。在确认选定的形状为子形状后,使用图案填充该子形状。


Sub ChildShapes()
    Dim sldNew As Slide
    Dim shpCanvas As Shape
    'Create a new slide with a drawing canvas and shapes
    Set sldNew = Presentations(1).Slides _
        .Add(Index:=1, Layout:=ppLayoutBlank)
    Set shpCanvas = sldNew.Shapes.AddCanvas( _
        Left:=100, Top:=100, Width:=200, Height:=200)
    With shpCanvas.CanvasItems
        .AddShape msoShapeRectangle, Left:=0, Top:=0, _
            Width:=100, Height:=100
        .AddShape msoShapeOval, Left:=0, Top:=50, _
            Width:=100, Height:=100
        .AddShape msoShapeDiamond, Left:=0, Top:=100, _
            Width:=100, Height:=100
    End With
    'Select all shapes in the canvas
    shpCanvas.CanvasItems.SelectAll
    'Fill canvas child shapes with a pattern
    With ActiveWindow.Selection
        If .HasChildShapeRange = True Then
            .ChildShapeRange.Fill.Patterned Pattern:=msoPatternDivot
        Else
            MsgBox "This is not a range of child shapes."
        End If
    End With
End Sub

上页:PowerPoint VBA教程:HangingPunctuation属性 下页:PowerPoint VBA教程:HasDiagram属性

PowerPoint VBA教程:HasChildShapeRange属性

PowerPoint VBA教程:HasDiagram属性 PowerPoint VBA教程:HasDiagramNode属性
PowerPoint VBA教程:HasRevisionInfo属性 PowerPoint VBA教程:HasTable属性
PowerPoint VBA教程:HasText属性 PowerPoint VBA教程:HasTextFrame属性
PowerPoint VBA教程:HasTitle属性 PowerPoint VBA教程:HasTitleMaster属性
PowerPoint VBA教程:Header属性 PowerPoint VBA教程:HeadersFooters属性
PowerPoint VBA教程:Height属性 PowerPoint VBA教程:Hidden属性
PowerPoint VBA教程:HideWhileNotPlaying属性 PowerPoint VBA教程:HorizontalAnchor属性
PowerPoint VBA教程:HorizontalFlip属性 PowerPoint VBA教程:HTMLProject属性
PowerPoint VBA教程:HTMLVersion属性 PowerPoint VBA教程:Hyperlink属性
PowerPoint VBA教程:Hyperlinks属性 PowerPoint VBA教程:Id属性
版权所有 © 中山市飞娥软件工作室 证书:粤ICP备09170368号