Show/Hide Grouped Rows/Columns

I'm using an Active X Toggle Button to show/Hide Grouped Columns with the following code:

Private Sub ToggleButton1_Click()
     
    On Error GoTo ErrToggle
    
    ActiveSheet.Range("E:E").Columns.ShowDetail = Not ToggleButton1.Value
    ToggleButton1.Caption = IIf(ActiveSheet.ToggleButton1.Value, "Show", "Hide")
ErrToggle:
    Exit Sub
    
End Sub

However, I would like to use a 'Shape' instead of a 'Toggle Button'. How would I adapt the code to achieve this?