Change Fill color using VBA in PowerPoint

[Paul_Hossler]

1. Don't put On Error Resume Next as the first thing. You need to see the error to correct them
Only use it in specific places where you KNOW it's OK to ignore an error

2. The shape's default name is "Hexagon<space>3", etc.
Unless you renamed them, no shape would match

3. If you just want to make all the hexagons blue, there's better, more robust ways to to it that doesn't require match names, etc.
See the second version

Option Explicit

Sub addColorhexagon()
    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)
    ' testing
    osld.Shapes("Hexagon 3").Fill.ForeColor.RGB = RGB(r, g, b) 
'    On Error Resume Next
'    For j = 1 To 10
'        Set hshp = osld.Shapes("hexagon" & j)
'        hshp.Fill.ForeColor.RGB = RGB(r, g, b)
'        hshp.Fill.Solid
'    Next j
'    On Error GoTo 0
End Sub

Sub addColorhexagon_1()
    Dim oPres As Presentation
    Dim oShape As Shape
    Dim oSlide 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 oPres = ActivePresentation        
    For Each oSlide In oPres.Slides
        For Each oShape In oSlide.Shapes
            If oShape.Type = msoAutoShape Then
                If oShape.AutoShapeType = msoShapeHexagon Then
                    oShape.Fill.ForeColor.RGB = RGB(r, g, b)
                End If
            End If
        Next
    Next
End Sub