This documentation is archived and is not being maintained.

Shape Property

Office 2003

Returns a Shape object that represents a shape in a table cell (for the Cell object), a diagram node in a diagram (for the DiagramNode object), or an animated shape (for the Effect object).


expression    Required. An expression that returns one of the above objects.


This example creates a 3x3 table in a new presentation and inserts a four-pointed star into the first cell of the table.

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


The following example creates a diagram and adds child nodes to the root mode. As each child is added, the root node displays the number of child nodes it has.

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)

    Set dgnNode = shpDiagram.DiagramNode.Root

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

End Sub