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