Excel VBA: How to programably turn on Snap-To-Grid

Question

How to turn on snap to grid in Excel using VBA ?

Answer 1

Try Application.CommandBars.FindControl(ID:=549).Execute (tested up to excel 2010)

Answer 2

More precisely, first checking whether Snap-grid is already enabled or not

 Sub Snap_to_grid()
    With Application.CommandBars.FindControl(ID:=549)
        If Not (.Enabled) Then: .Execute
    End With
 End Sub