PowerPoint VBA教程:CloneNode方法

复制图示节点。

expression.CloneNode(CopyChildren, TargetNode, Pos)

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

CopyChildren 必选。Boolean 类型。如果参数为 True,则包含图示子节点。

TargetNode 可选。DiagramNode对象。该表达式返回一个 DiagramNode对象,它将作为已复制的图示节点的源节点。

Pos 可选。MsoRelativeNodePosition 类型。如果已指定 TargetNode,则指定的值表示新添加的节点相对于 TargetNode 的位置。

MsoRelativeNodePosition 可以是下列 MsoRelativeNodePosition 常数之一。
msoAfterLastSibling
msoAfterNode 默认值
msoBeforeFirstSibling
msoBeforeNode

VBA示例

以下示例创建一个图示并复制一个最新创建的节点。


Sub CloneANode()
    Dim dgnNode As DiagramNode
    Dim shpDiagram As Shape
    Dim intNodes As Integer
    'Adds cycle 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 nodes to diagram
    For intNodes = 1 To 3
        dgnNode.AddNode
    Next intNodes
    'Automatically formats the diagram
    dgnNode.Diagram.AutoFormat = msoTrue
    'Clones the first child node without cloning associated child nodes
    dgnNode.CloneNode CopyChildren:=False
End Sub

上页:PowerPoint VBA教程:Clone方法 下页:PowerPoint VBA教程:Close方法

PowerPoint VBA教程:CloneNode方法

PowerPoint VBA教程:Close方法 PowerPoint VBA教程:Colors方法
PowerPoint VBA教程:Convert方法 PowerPoint VBA教程:ConvertToAfterEffect方法
PowerPoint VBA教程:ConvertToAnimateBackground方法 PowerPoint VBA教程:ConvertToAnimateInReverse方法
PowerPoint VBA教程:ConvertToBuildLevel方法 PowerPoint VBA教程:ConvertToShape方法
PowerPoint VBA教程:ConvertToTextUnitEffect方法 PowerPoint VBA教程:Copy方法
PowerPoint VBA教程:CreateNewDocument方法 PowerPoint VBA教程:CustomDrop方法
PowerPoint VBA教程:CustomLength方法 PowerPoint VBA教程:Cut方法
PowerPoint VBA教程:Delete方法 PowerPoint VBA教程:DeleteText方法
PowerPoint VBA教程:DiscardConflict Method PowerPoint VBA教程:Distribute方法
PowerPoint VBA教程:DoVerb方法 PowerPoint VBA教程:DrawLine方法
版权所有 © 中山市飞娥软件工作室 证书:粤ICP备09170368号