With ActivePresentation If .SnapToGrid = ksoTrue Then .SnapToGrid = ksoFalse Else .SnapToGrid = ksoTrue End If End With