PowerPoint VBA教程:Diagram属性

返回图示节点所属的 Diagram对象。

expression.Diagram

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

VBA示例

以下示例在幻灯片中添加图示。


Sub AddADiagram()
    Dim dgnNode As DiagramNode
    Dim shpDiagram As Shape
    Dim intNodes As Integer
    'Adds diagram and first child node
    Set shpDiagram = ActivePresentation.Slides(1).Shapes.AddDiagram _
        (Type:=msoDiagramCycle, Left:=10, Top:=15, _
        Width:=400, Height:=475)
    Set dgnNode = shpDiagram.DiagramNode.Children.AddNode
    'Adds three additional child nodes
    For intNodes = 1 To 3
        dgnNode.AddNode
    Next intNodes
    'Automatically formats the diagram
    dgnNode.Diagram.AutoFormat = msoTrue
End Sub

上页:PowerPoint VBA教程:Designs属性 下页:PowerPoint VBA教程:DiagramNode属性

PowerPoint VBA教程:Diagram属性

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属性
版权所有 © 中山市飞娥软件工作室 证书:粤ICP备09170368号