Sub GuidesAdd()
Dim myCol As New Collection
Dim i As Long
With myCol
.Add ActiveWindow.Selection.SlideRange.Shapes.AddLine(23.76, 0, 23.76, 540), "x1"
.Add ActiveWindow.Selection.SlideRange.Shapes.AddLine(342, 0, 342, 540), "x2"
.Add ActiveWindow.Selection.SlideRange.Shapes.AddLine(360, 0, 360, 540), "x3"
.Add ActiveWindow.Selection.SlideRange.Shapes.AddLine(377.28, 0, 377.28, 540), "x4"
.Add ActiveWindow.Selection.SlideRange.Shapes.AddLine(696.24, 0, 696.24, 540), "x5"
.Add ActiveWindow.Selection.SlideRange.Shapes.AddLine(0, 48.24, 720, 48.24), "y1"
.Add ActiveWindow.Selection.SlideRange.Shapes.AddLine(0, 66.24, 720, 66.24), "y2"
.Add ActiveWindow.Selection.SlideRange.Shapes.AddLine(0, 102.24, 720, 102.24), "y3"
.Add ActiveWindow.Selection.SlideRange.Shapes.AddLine(0, 120.24, 720, 120.24), "y4"
.Add ActiveWindow.Selection.SlideRange.Shapes.AddLine(0, 300.24, 720, 300.24), "y5"
.Add ActiveWindow.Selection.SlideRange.Shapes.AddLine(0, 476.64, 720, 476.64), "y6"
End With
For i = myCol.Count To 1 Step -1
myCol(i).Line.Weight = 0.05
myCol(i).Line.ForeColor.RGB = RGB(255, 0, 0)
Next i
End Sub