vba to snap to grid

Hi
is it possible to turn the picture tools 'snap to grid' property on and off with VBA?
or if not, at least to have it default to 'on' when opening a workbook?

It's an old post, but anyway, it's
Application.CommandBars.FindControl(ID:=549).Execute
Cheers