PowerPoint VBA教程:DiagramNode属性

返回代表图示中某个节点的DiagramNode对象。

expression.DiagramNode

expression  必选。该表达式返回“应用于”列表中的对象之一。

VBA示例

本示例向当前演示文稿的第一张幻灯片中添加一个棱锥图。


Sub CreatePyramidDiagram()
    Dim dgnNode As DiagramNode
    Dim shpDiagram As Shape
    Dim intCount As Integer
    'Add pyramid diagram to current document
    Set shpDiagram = ActivePresentation.Slides(1).Shapes _
        .AddDiagram(Type:=msoDiagramPyramid, Left:=10, _
        Top:=15, Width:=400, Height:=475)
    'Add first diagram node child
    Set dgnNode = shpDiagram.DiagramNode.Children.AddNode
    'Add three more diagram child nodes
    For intCount = 1 To 3
        dgnNode.AddNode
    Next intCount
End Sub

上页:PowerPoint VBA教程:Diagram属性 下页:PowerPoint VBA教程:Dim属性

PowerPoint VBA教程:DiagramNode属性

PowerPoint VBA教程:Dim属性 PowerPoint VBA教程:DimColor属性
PowerPoint VBA教程:Direction属性 PowerPoint VBA教程:DisplayAlerts属性
PowerPoint VBA教程:DisplayAutoCorrectOptions属性 PowerPoint VBA教程:DisplayAutoLayoutOptions属性
PowerPoint VBA教程:DisplayComments属性 PowerPoint VBA教程:DisplayGridLines属性
PowerPoint VBA教程:DisplayMasterShapes属性 PowerPoint VBA教程:DisplayName属性
PowerPoint VBA教程:DisplayOnTitleSlide属性 PowerPoint VBA教程:DisplayPasteOptions属性
PowerPoint VBA教程:DisplaySlideMiniature属性 PowerPoint VBA教程:Drop属性
PowerPoint VBA教程:DropType属性 PowerPoint VBA教程:Duration属性
PowerPoint VBA教程:EditingType属性 PowerPoint VBA教程:EffectInformation属性
PowerPoint VBA教程:EffectParameters属性 PowerPoint VBA教程:EffectType属性
版权所有 © 中山市飞娥软件工作室 证书:粤ICP备09170368号