14、Microsoft PowerPoint Visual Basic 实用方法与代码示例

最新推荐文章于 2025-11-26 16:48:07 发布

y4z5a6b7

最新推荐文章于 2025-11-26 16:48:07 发布

阅读量12

点赞数

CC 4.0 BY-SA版权

分类专栏： PowerPoint VBA编程精要文章标签： PowerPoint Visual Basic VBA

本文链接：https://blog.youkuaiyun.com/y4z5a6b7/article/details/155386769

PowerPoint VBA编程精要专栏收录该内容

45 篇文章 ¥499.90

订阅专栏¥69.90

会员秒杀 ¥9.9 重磅福利

超级会员免费看

Microsoft PowerPoint Visual Basic 实用方法与代码示例

1. MsoRelativeNodePosition 相关

1.1 MsoRelativeNodePosition 常量

MsoRelativeNodePosition 可以是以下常量之一：
- msoAfterLastSibling
- msoAfterNode（默认）
- msoBeforeFirstSibling
- msoBeforeNode

1.2 克隆节点示例

以下代码示例创建一个图表并克隆最新创建的节点：

Sub CloneANode()
    Dim dgnNode As DiagramNode
    Dim TdgnNode As DiagramNode
    Dim shpDiagram As Shape
    Dim intNodes As Integer
    '添加循环图和第一个子节点
    Set shpDiagram = ActivePresentation.Slides(1).Shapes.AddDiagram _
        (Type:=msoDiagramCycle, Left:=10, Top:=15, _
        Width:=400, Height:=475)
    Set dgnNode = shpDiagram.DiagramNode.Children.AddNode
    Set TdgnNode = new DiagramNode
    '向图表中添加三个额外的节点