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

效果展示

先展示效果：

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 就行，使用方式：

1. 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 的示例代码：
添加水平参考线

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

复制代码

添加垂直参考线

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

复制代码

删除所有参考线

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

复制代码

获取参考线数量

1. Sub GetGuideCount()
2.     Dim guideCount As Integer
3.     guideCount = ActivePresentation.Guides.Count
4.     MsgBox "当前幻灯片中有 " & guideCount & " 条参考线。"
5. 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 的文档链接，并鼓励用户参考技能文档进行其他功能的开发。最后，文章声明了原创性，并提供了转载的出处链接。
   本账号所有文章均为原创，欢迎转载，请注明文章出处：