大众计算机学习网

专门提供各种电脑教程

VBA之AddDiagram 方法

Admin | 2015-2-24 10:46:56 | 被阅次数 | 3227

  AddDiagram 方法

  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