Change Fill color using VBA in PowerPoint

[Paul_Hossler]

1. Temporarily insert a sample of the shape that you want to change to

2. Select it

3. Run test2()

4. All AutoShapes on all slides will be changed to that (#1 above) shape (you can change to just Slide(1) )

5. The temp shape will be deleted


The original names and original sizes of the shapes don't change, so they're still called "Heptagon1" and the new shape fits into the old shape's box

Sub test2()
    Dim oPres As Presentation
    Dim oSlide As Slide
    Dim oShape As Shape, oNewShape As Shape
    
    
    Set oNewShape = Nothing
    On Error Resume Next
    Set oNewShape = ActiveWindow.Selection.ShapeRange(1)
    On Error GoTo 0
    
    If oNewShape Is Nothing Then
        Call MsgBox("You must select an AutoShape", vbCritical + vbOKOnly, "Change Shapes")
        Exit Sub
    End If
    
    If oNewShape.Type <> msoAutoShape Then
        Call MsgBox("The selected Shape must be an AutoShape", vbCritical + vbOKOnly, "Change Shapes")
        Exit Sub
    End If
    
    Set oPres = ActivePresentation
    
    For Each oSlide In oPres.Slides
        For Each oShape In oSlide.Shapes
            If oShape.Type = msoAutoShape Then oShape.AutoShapeType = oNewShape.AutoShapeType
        Next
    Next


    oNewShape.Delete
    


End Sub

[dibyendu2280]

Thanks Sir @Paul_Hossler
Working great. Sir i am asking too much question to you & you are giving all solution to my problem. now I implemented above code in my project & it changes all shapes(including all rectangle shape) to hexagon shape. So how to select particular shape(in my case heptagon) to change to hexagon shape.(do not want to change other shape like rectangle shape to hexagon shape).