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).
Syntax
expression.Shape
expression A variable that represents an Effect object.
Return Value
Shape
Example
This example creates a 3x3 table in a new presentation and inserts a four-pointed star into the first cell of the table.
| Visual Basic for Applications
|
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.
| Visual Basic for Applications
|
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
|
See also: