文章目录
- 效果展示
- 使用方式
- 技术原理
- 更多原理
- ActivePresentation.Guides 概述
- 主要属性和方法
- 使用示例
- 添加水平参考线
- 添加垂直参考线
- 删除所有参考线
- 获取参考线数量
- 注意事项
- 致谢
效果展示
先展示效果：
Quicker 动作：VBA 添加参考线 - Quicker 动作
使用方式
-
下载 Quicker，注册码可以填我的：970091-5834，这样如果你有一天想充专业版，我们俩都能多 90 天的专业版天数。
-
添加我的动作：VBA 添加参考线 - Quicker 动作
-
打开 PPT 开发工具，不会的可以看下图（文件-选项进入下图页面）：
-
设置信任宏，不会的可以看下图（开发工具-宏安全性进入以下页面）：
-
点击动作并触发。
支持自定义默认的参考线的位置，上下左右都可以，居中也可以。
右键就可以设置了。
默认是：
竖直居中
水平居中
左,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。百度和各类采集站皆不可信，搜索请谨慎鉴别。技术类文章一般都有时效性，本人习惯不定期对自己的博文进行修正和更新，因此请访问出处以查看本文的最新版本。
