Excel VBA教程: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 类型,必需。以磅为单位给出图表的高度。

Excel VBA教程:AddDiagram方法·示例

本示例向活动工作表添加棱锥图。


Sub CreatePyramidDiagram()
    Dim dgnNode As DiagramNode
    Dim shpDiagram As Shape
    Dim intCount As Integer
    'Add pyramid diagram to current document
    Set shpDiagram = ActiveSheet.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

上页:Excel VBA教程:AddDataField方法 下页:Excel VBA教程:AddFields方法

Excel VBA教程:AddDiagram方法

Excel VBA教程:AddFields方法 Excel VBA教程:AddFormControl方法
Excel VBA教程:AddItem方法 Excel VBA教程:AddLabel方法
Excel VBA教程:AddLine方法 Excel VBA教程:AddMemberPropertyField方法
Excel VBA教程:AddNode方法 Excel VBA教程:AddNodes方法
Excel VBA教程:AddOLEObject方法 Excel VBA教程:AddPageItem方法
Excel VBA教程:AddPicture方法 Excel VBA教程:AddPolyline方法
Excel VBA教程:AddReplacement方法 Excel VBA教程:AddSet方法
Excel VBA教程:AddShape方法 Excel VBA教程:AddTextbox方法
Excel VBA教程:AddTextEffect方法 Excel VBA教程:AddToFavorites方法
Excel VBA教程:AdvancedFilter方法 Excel VBA教程:Align方法
版权所有 © 中山市飞娥软件工作室 证书:粤ICP备09170368号