本示例显示网格线,然后指定网格线之间的距离并且启用对齐网格的设置。

Application.DisplayGridLines = ksoTrue
With ActivePresentation
    .GridDistance = 18
    .SnapToGrid = ksoTrue
End With