Question

全部显示

返回一个 Shape 对象，该对象代表文档中新创建的图表。

expression.AddDiagram(Type, Left, Top, Width, Height, Anchor)

expression 必需。该表达式返回一个 Shapes 对象。

TypeMsoDiagramType，必需 。

MsoDiagramType 可以是下列 MsoDiagramType 常量之一：

msoDiagramCycle 显示连续循环的过程。

msoDiagramMixed 不应用于该方法。

msoDiagramOrgChart 显示分级关系。

msoDiagramPyramid 显示基于基础的关系。

msoDiagramRadial 显示与核心元素的关系。

msoDiagramTarget 显示达到目标所需的步骤。

msoDiagramVenn 显示元素间重叠的区域。

LeftSingle 类型，必需。图表边框左侧边缘相对于锁定标记的位置，以磅为单位。

TopSingle 类型，必需。图表上部边缘相对于锁定标记的位置，以磅为单位。

WidthSingle 类型，必需。图表边框的宽度，以磅为单位。

HeightSingle 类型，必需。图表边框的高度，以磅为单位。

AnchorVariant 类型，可选。 代表图表绑定文字的 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