返回一个 Shape 对象,该对象代表文档中新创建的图表。
expression.AddDiagram(Type, Left, Top, Width, Height, Anchor)
expression 必需。该表达式返回一个 Shapes 对象。
Type MsoDiagramType,必需 。
MsoDiagramType 可以是下列 MsoDiagramType 常量之一: |
msoDiagramCycle 显示连续循环的过程。 |
msoDiagramMixed 不应用于该方法。 |
msoDiagramOrgChart 显示分级关系。 |
msoDiagramPyramid 显示基于基础的关系。 |
msoDiagramRadial 显示与核心元素的关系。 |
msoDiagramTarget 显示达到目标所需的步骤。 |
msoDiagramVenn 显示元素间重叠的区域。 |
Left Single 类型,必需。图表边框左侧边缘相对于锁定标记的位置,以磅为单位。
Top Single 类型,必需。图表上部边缘相对于锁定标记的位置,以磅为单位。
Width Single 类型,必需。图表边框的宽度,以磅为单位。
Height Single 类型,必需。图表边框的高度,以磅为单位。
Anchor Variant 类型,可选。 代表图表绑定文字的 Range 对象。如果指定 Anchor,则锁定标记位于锁定区域第一段的起始位置。如果忽略该参数,将自动选定锁定区域,而图表将相对于页面的上部和左侧边缘进行定位。
本示例在当前文档中添加棱锥图表。
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