expression.AddDiagram(Type, Left, Top, Width, Height, Anchor)
expression Required. An expression that returns a Shapes object.
Type Required MsoDiagramType.
MsoDiagramType can be one of these MsoDiagramType constants. |
msoDiagramCycle Shows a process with a continuous cycle. |
msoDiagramMixed Not used with this method. |
msoDiagramOrgChart Shows hierarchical relationships. |
msoDiagramPyramid Shows foundation-based relationships. |
msoDiagramRadial Shows relationships of a core element. |
msoDiagramTarget Shows steps toward a goal. |
msoDiagramVenn Shows areas of overlap between elements. |
Left Required Single. The position, measured in points, of the left edge of the diagram's bounding box relative to the anchor.
Top Required Single. The position, measured in points, of the top edge of the diagram's bounding box relative to the anchor.
Width Required Single. The width, measured in points, of the diagram's bounding box.
Height Required Single. The height, measured in points, of the diagram's bounding box.
Anchor Optional Variant. A Range object that represents the text to which the diagram is bound. If Anchor is specified, the anchor is positioned at the beginning of the first paragraph in the anchoring range. If this argument is omitted, the anchoring range is selected automatically and the diagram is positioned relative to the top and left edges of the page.
Example
This example adds a pyramid chart to the current document.
Sub CreatePyramidDiagram()
Dim dgnNode As DiagramNode
Dim shpDiagram As Shape
Dim intCount As Integer
'Add pyramid diagram to current document
Set shpDiagram = ThisDocument.Shapes.AddDiagram _
(Type:=msoDiagramPyramid, Left:=10, _
Top:=15, Width:=400, Height:=475)
'Add first diagram node child to pyramid diagram
Set dgnNode = shpDiagram.DiagramNode.Children.AddNode
'Add three more diagram node children to the pyramid diagram
For intCount = 1 To 3
dgnNode.AddNode
Next intCount
End Sub