Word VBA教程:AddDiagram方法

返回一个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,则锁定标记位于锁定区域第一段的起始位置。如果忽略该参数,将自动选定锁定区域,而图表将相对于页面的上部和左侧边缘进行定位。

VBA示例

本示例在当前文档中添加棱锥图表。


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

Word VBA教程

Word VBA参考教程:目录1 Word VBA参考教程:目录2
Word VBA参考教程:目录3 Word VBA参考教程:目录4
Word VBA参考教程:目录5 Word VBA参考教程:目录6
Word VBA参考教程:目录7 Word VBA参考教程:目录8
Word VBA参考教程:目录9 Word VBA参考教程:目录10
版权所有 © 中山市飞娥软件工作室 证书:粤ICP备09170368号