Change Fill color using VBA in PowerPoint

[Paul_Hossler]

This is what you requested, but I'm not sure it's what you need

where I want to change Blue color to any custom color.

There were no blue shapes in your example, so I made them blue

Capture.JPG

Option Explicit

Sub test()
      Dim hshp As Shape
      Dim osld As Slide
      Dim j As Long
      Dim r As Long
      Dim g As Long
      Dim b As Long
      r = InputBox("Please enter Red number in: RGB(red,green,blue)", "Change Top Shape Color", "068")
      g = InputBox("Please enter Green number in: RGB(red,green,blue)", "Change Top Shape Color", "114")
      b = InputBox("Please enter Blue number in: RGB(red,green,blue)", "Change Top Shape Color", "196")
      Set osld = ActivePresentation.Slides(1)
      On Error Resume Next
      For j = 1 To 10
          Set hshp = osld.Shapes("Heptagon" & j)
          If hshp.Fill.ForeColor.RGB = RGB(0, 0, 255) Then
              hshp.Fill.ForeColor.RGB = RGB(r, g, b)
              hshp.Fill.Solid
          End If
    Next j
    On Error GoTo 0
End Sub