返回介绍

AddDiagram 方法

发布于 2019-09-29 09:52:55 字数 1933 浏览 1087 评论 0 收藏 0

全部显示

返回一个 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

如果你对这篇内容有疑问,欢迎到本站社区发帖提问 参与讨论,获取更多帮助,或者扫码二维码加入 Web 技术交流群。

扫码二维码加入Web技术交流群

发布评论

需要 登录 才能够评论, 你可以免费 注册 一个本站的账号。
列表为空,暂无数据
    我们使用 Cookies 和其他技术来定制您的体验包括您的登录状态等。通过阅读我们的 隐私政策 了解更多相关信息。 单击 接受 或继续使用网站,即表示您同意使用 Cookies 和您的相关数据。
    原文