我需要一个vba代码来显示powerpoint中所选形状的rgb颜色

Question

在使用单词记录宏

之前，我是ppt vba的新手

我需要帮助，通过vba代码

获得powerpoint 2013中所选形状的rgb颜色

Answer 1

这将帮助您入门：

Dim oSh As Shape
For Each oSh In ActiveWindow.Selection.ShapeRange
    With oSh.Fill
        Debug.Print .ForeColor.RGB
    End With
Next

这里有一段代码片段，用于将上面.RGB返回的Long转换为R，G，B组件：

http://www.vbcode.com/asp/showsn.asp?theID=311