【工具】Quicker/VBA｜PPT 在指定位置添加有颜色的参考线

文章目录

• • 效果展示
  • 使用方式
  • 技术原理
  • 更多原理
  • • [ActivePresentation.Guides 概述](#ActivePresentation.Guides 概述)
    • 主要属性和方法
    • 使用示例
    • • 添加水平参考线
      • 添加垂直参考线
      • 删除所有参考线
      • 获取参考线数量
    • 注意事项
  • 致谢

效果展示

先展示效果：

Quicker 动作：VBA 添加参考线 - Quicker 动作

使用方式

1. 下载 Quicker，注册码可以填我的：970091-5834，这样如果你有一天想充专业版，我们俩都能多 90 天的专业版天数。

2. 添加我的动作：VBA 添加参考线 - Quicker 动作

3. 打开 PPT 开发工具，不会的可以看下图（文件-选项进入下图页面）：
   

4. 设置信任宏，不会的可以看下图（开发工具-宏安全性进入以下页面）：
   

5. 点击动作并触发。

支持自定义默认的参考线的位置，上下左右都可以，居中也可以。

右键就可以设置了。

默认是：

竖直居中

水平居中

左,100,rgb(0,0,0)

右,100,rgb(屏幕取色)

上,10%

下,10%

PPT的画布的像素值默认是960*540，取像素的时候要按照这个比例给定。

也可以直接设置为百分比，如果你懒得算像素值具体是多少的话。。

技术原理

微软文档，这个 API 的定义：learn-vba-Guides.Add 方法 (PowerPoint)

其实就是找到这个 API 就行，使用方式：

ActivePresentation.Guides.Add ppHorizontalGuide, 100

API 介绍文档：

以后写其他的也是可以直接找技术文档的 API，因为 PPT 没有录制宏这一个功能，只能调试的时候看接口或者文档里找。

颜色设置就不过多介绍了，调试就能找到。

更多原理

ActivePresentation.Guides 概述

ActivePresentation.Guides 是 VBA（Visual Basic for Applications）中用于操作 PowerPoint 演示文稿中的参考线的 API。参考线是 PowerPoint 中的辅助工具，用于帮助用户对齐和定位幻灯片中的对象。通过 ActivePresentation.Guides，可以在 VBA 中动态添加、删除或修改这些参考线。

主要属性和方法

ActivePresentation.Guides 提供了以下主要属性和方法：

• Add(Position, Orientation) : 添加一条新的参考线。Position 参数指定参考线的位置，Orientation 参数指定参考线的方向（水平或垂直）。

• Count: 返回当前幻灯片中参考线的数量。

• Item(Index): 通过索引获取特定的参考线对象。

• Delete(): 删除指定的参考线。

使用示例

以下是一些使用 ActivePresentation.Guides 的示例代码：

添加水平参考线

Sub AddHorizontalGuide()
    Dim guide As Guide
    Set guide = ActivePresentation.Guides.Add(Position:=100, Orientation:=ppHorizontalGuide)
End Sub

添加垂直参考线

Sub AddVerticalGuide()
    Dim guide As Guide
    Set guide = ActivePresentation.Guides.Add(Position:=200, Orientation:=ppVerticalGuide)
End Sub

删除所有参考线

Sub DeleteAllGuides()
    Dim i As Integer
    For i = ActivePresentation.Guides.Count To 1 Step -1
        ActivePresentation.Guides.Item(i).Delete
    Next i
End Sub

获取参考线数量

Sub GetGuideCount()
    Dim guideCount As Integer
    guideCount = ActivePresentation.Guides.Count
    MsgBox "当前幻灯片中有 " & guideCount & " 条参考线。"
End Sub

注意事项

• ActivePresentation.Guides 仅适用于当前活动的演示文稿。
• 参考线的位置是以磅（points）为单位的，1 磅等于 1/72 英寸。
• 参考线的方向可以是 ppHorizontalGuide（水平）或 ppVerticalGuide（垂直）。

通过 ActivePresentation.Guides，可以在 VBA 中灵活地管理和使用 PowerPoint 中的参考线，从而提高幻灯片设计的效率和精确度。

致谢

这个 API 我没找到，是 Quicker 群友木薯找到的，我只是顺手做了个动作。

本文介绍了如何使用 Quicker 工具在 PPT 中添加参考线。首先，用户需要下载并注册 Quicker，接着添加特定的 VBA 动作。然后，通过 PPT 的开发工具设置信任宏，并触发动作以添加参考线。技术原理基于微软的 VBA API，通过调用 ActivePresentation.Guides.Add 方法实现。文章还提供了相关 API 的文档链接，并鼓励用户参考技术文档进行其他功能的开发。最后，文章声明了原创性，并提供了转载的出处链接。

本账号所有文章均为原创，欢迎转载，请注明文章出处：https://shandianchengzi.blog.csdn.net/article/details/148147118。百度和各类采集站皆不可信，搜索请谨慎鉴别。技术类文章一般都有时效性，本人习惯不定期对自己的博文进行修正和更新，因此请访问出处以查看本文的最新版本。