本示例在当前演示文稿中切换形状相对于网格线的对齐。

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