AddDiagram 方法

返回一个 Shape 对象，该对象代表添加到幻灯片、幻灯片母版或幻灯片范围中的一个图示。

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

expression 必选。该表达式返回“应用于”列表中的对象之一。

Type 必选。MsoDiagramType 类型。图示的类型。

MsoDiagramType 可以是下列 MsoDiagramType 类型常数之一。

msoDiagramCycle 显示持续循环的过程。

msoDiagramMixed 不用于此方法。

msoDiagramOrgChart 显示层次关系。

msoDiagramPyramid 显示基于基础的关系。

msoDiagramRadial 显示核心元素的关系。

msoDiagramTarget 显示实现目标的步骤。

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

Left 必选。Single 类型。图示画布边界框左边缘相对于页面左边缘的位置（以磅为单位）。

Top 必选。Single 类型。图示画布边界框上边缘相对于页面上边缘的位置（以磅为单位）。

Width 必选。Single 类型。图示画布的边界框的宽度（以磅为单位）。

Height 必选。Single 类型。图示画布的边界框的高度（以磅为单位）。

示例

以下示例将一个带四个节点的棱锥图添加到当前演示文稿的第一张幻灯片中。

Sub CreatePyramidDiagram()

    Dim dgnNode As DiagramNode
    Dim shpDiagram As Shape
    Dim intNodes As Integer

    'Adds pyramid diagram and first child node
    Set shpDiagram = ActivePresentation.Slides(1).Shapes _
        .AddDiagram(Type:=msoDiagramPyramid, Left:=10, _
        Top:=15, Width:=400, Height:=475)
    Set dgnNode = shpDiagram.DiagramNode.Children.AddNode

    'Adds three more child nodes to pyramid diagram
    For intNodes = 1 To 3
        dgnNode.AddNode
    Next intNodes

End Sub