使用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再提升一个档次，并且不需要很复杂的逻辑，更不需要很复杂的代码。

欢迎在下面留言，完善本文内容，让更多的人学到更完美的知识。