Sub MACRO2()
Rem draw 13 stripes (6 red 5 white)
For k = 0 To 12 Step 2
ActiveWindow.Selection.SlideRange.Shapes.AddShape(msoShapeRectangle, 0, k * 41.54, 720, 41.54).Select
With ActiveWindow.Selection.ShapeRange
.Fill.ForeColor.RGB = RGB(255, 0, 0)
.Line.ForeColor.RGB = RGB(255, 0, 0)
End With
Next k
For k = 1 To 11 Step 2
ActiveWindow.Selection.SlideRange.Shapes.AddShape(msoShapeRectangle, 0, k * 41.54, 720, 41.54).Select
With ActiveWindow.Selection.ShapeRange
.Fill.ForeColor.RGB = RGB(255, 255, 255)
.Line.ForeColor.RGB = RGB(255, 0, 0)
End With
Next k
Rem draw the blue block
ActiveWindow.Selection.SlideRange.Shapes.AddShape(msoShapeRectangle, 0, 0, 360, 7 * 41.54).Select
With ActiveWindow.Selection.ShapeRange
.Fill.ForeColor.RGB = RGB(0, 0, 255)
.Line.ForeColor.RGB = RGB(0, 0, 255)
End With
Rem draw 50 stars
For y = 4 To 254 Step 50
For x = 8 To 313 Step 61
ActiveWindow.Selection.SlideRange.Shapes.AddShape(msoShape5pointStar, x, y, 36, 36).Select
With ActiveWindow.Selection.ShapeRange
.Fill.ForeColor.RGB = RGB(255, 255, 255)
.Line.ForeColor.RGB = RGB(0, 0, 255)
End With
Next x
Next y
For y = 30 To 230 Step 50
For x = 40 To 284 Step 61
ActiveWindow.Selection.SlideRange.Shapes.AddShape(msoShape5pointStar, x, y, 36, 36).Select
With ActiveWindow.Selection.ShapeRange
.Fill.ForeColor.RGB = RGB(255, 255, 255)
.Line.ForeColor.RGB = RGB(0, 0, 255)
End With
Next x
Next y
End Sub