Powerpoint VBA Button Hover Effect for shape within a group

[kenny_a]

I'm trying to set up a button hover effect using code from this article:
https://www.brightcarbon.com/blog/su...th-vba-part-2/


On the button shape I use this for the hover:

Public Sub GraphicHover(ByRef oGraphic As Shape)
    oGraphic.Fill.ForeColor.ObjectThemeColor = msoThemeColorAccent1
End Sub

And to reset it I use this on a shape covering the rest of the slide:

Public Sub ResetGraphicHover(ByRef oCover As Shape)
Dim oSld As Slide
Dim oShp As Shape
Set oSld = oCover.Parent
For Each oShp In oSld.Shapes
   With oShp.Fill.ForeColor
       If .ObjectThemeColor = msoThemeColorAccent1 Then .ObjectThemeColor = msoThemeColorDark1
   End With
Next
End Sub

I have it working, however I now want to group my button shape. When I group it the hover works, but not the reset.
Is there an easy way to adjust the code to work with grouped shapes?


Thanks