使用VBA在PPT上调色
标签：VBA，PowerPoint编程
一小段VBA代码，就能实现在PPT上选择并涂色的功能，如下图1所示。
图1
实现上述效果的VBA代码如下：
Dim RGB As Variant
Sub ChooseColor(oSh As Shape)
RGB = oSh.Fill.ForeColor.RGB
ActivePresentation.SlideShowWindow.View.Slide.Shapes("brush").Fill.ForeColor.RGB = RGB
End Sub
Sub PaintColor(oSh As Shape)
oSh.Fill.ForeColor.RGB = RGB
End Sub是不是很简单！
这又是VBA应用的一个经典例子。不需要太多的代码，仅仅几句VBA就能实现幻灯片放映过程中与用户交互的功能，太方便了。
本文的示例来源于pptvba.com，有兴趣的朋友可以到该网站上下载相应的ppt文档模板。也可以在完美Excel公众号中发送消息：
涂色板ppt
获取本文示例文档的下载链接。
或者，直接到知识星球app完美Excel社群下载本文示例文档。
说明：这段时间有空就在研究PowerPoint编程，进一步拓展VBA使用空间。在学习过程中，确有不少收获。VBA能够让PPT再提升一个档次，并且不需要很复杂的逻辑，更不需要很复杂的代码。
欢迎在下面留言，完善本文内容，让更多的人学到更完美的知识。
本文参与?腾讯云自媒体分享计划，分享自微信公众号。
原始发表：2023-08-28，如有侵权请联系?cloudcommunity@tencent.com 删除
评论
登录后参与评论
推荐阅读