PowerPoint 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 类型。图示画布的边界框的高度(以磅为单位)。

VBA示例

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


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

上页:PowerPoint VBA教程:AddCurve方法 下页:PowerPoint VBA教程:AddEffect方法

PowerPoint VBA教程:AddDiagram方法

PowerPoint VBA教程:AddEffect方法 PowerPoint VBA教程:AddLabel方法
PowerPoint VBA教程:AddLine方法 PowerPoint VBA教程:AddMediaObject方法
PowerPoint VBA教程:AddNode方法 PowerPoint VBA教程:AddNodes方法
PowerPoint VBA教程:AddOLEObject方法 PowerPoint VBA教程:AddPeriods方法
PowerPoint VBA教程:AddPicture方法 PowerPoint VBA教程:AddPlaceholder方法
PowerPoint VBA教程:AddPolyline方法 PowerPoint VBA教程:AddShape方法
PowerPoint VBA教程:AddTable方法 PowerPoint VBA教程:AddTextbox方法
PowerPoint VBA教程:AddTextEffect方法 PowerPoint VBA教程:AddTitle方法
PowerPoint VBA教程:AddTitleMaster方法 PowerPoint VBA教程:AddToFavorites方法
PowerPoint VBA教程:Align方法 PowerPoint VBA教程:Apply方法
版权所有 © 中山市飞娥软件工作室 证书:粤ICP备09170368号