Shape 属性

返回 Shape 对象，该对象代表表格单元格中的形状（Cell 对象）、图示中的图示节点（DiagramNode 对象）或具有动画效果的形状（Effect 对象）。

expression  必选。该表达式返回上述对象之一。

示例

本示例在新演示文稿中创建一个 3x3 表格，并向表格的第一个单元格中插入一个十字星。

With Presentations.Add
    With .Slides.Add(1, ppLayoutBlank)
        .Shapes.AddTable(3, 3).Select
        .Shapes(1).Table.Cell(1, 1).Shape _
            .AutoShapeType = msoShape4pointStar
    End With
End With

以下示例创建一个图示并且向根节点添加子节点。在每个子节点添加完毕后，根节点将显示它所拥有的子节点数。

Sub CountChildNodes()

    Dim dgnNode As DiagramNode
    Dim shpDiagram As Shape
    Dim intNodes As Integer

    Set shpDiagram = ActivePresentation.Slides(1).Shapes.AddDiagram _
        (Type:=msoDiagramRadial, Left:=10, Top:=15, _
        Width:=400, Height:=475)
    shpDiagram.DiagramNode.Children.AddNode

    Set dgnNode = shpDiagram.DiagramNode.Root

    For intNodes = 1 To 3
        dgnNode.Children.AddNode
        dgnNode.Shape.TextFrame.TextRange.Text = intNodes
    Next intNodes

End Sub