PowerPoint Macro

Question

Hello, I'm looking for a PowerPoint macro that will identify the color of a shape (in this case a circle being used to indicate a project's status), and convert it to text ("Red", "Yellow", "Green" or "Blue").  The text will then get written to an excel file with other information from the PowerPoint slide. I have the macro to pull all the other text information from the slide but I am unable to figure out how to "get" the color from the shape and translate to a text string.  Thank you.

Answer 1

Assuming that you set the colors in advance to *specific* values, you can do something like this:

Function ColorToString(osh As Shape) As String

    With osh.Fill.ForeColor

        If .RGB = RGB(255, 0, 0) Then

            ColorToString = "RED"

        End If

        If .RGB = RGB(0, 255, 0) Then

            ColorToString = "GREEN"

        End If

        If .RGB = RGB(0, 0, 255) Then

            ColorToString = "BLUE"

        End If

    End With

End Function

Sub TestMe()

    Dim osh As Shape

    For Each osh In ActiveWindow.Selection.ShapeRange

        Debug.Print ColorToString(osh)

    Next

End Sub

Answer 2

Thank you.  I will give this a try.