Sub MACRO1()
Rem draw the red block
ActiveWindow.Selection.SlideRange.Shapes.AddShape(msoShapeRectangle, 0, 0, 720, 540).Select
With ActiveWindow.Selection.ShapeRange
.Fill.ForeColor.RGB = RGB(255, 0, 0)
.Line.ForeColor.RGB = RGB(255, 0, 0)
End With
Rem draw the blue block
ActiveWindow.Selection.SlideRange.Shapes.AddShape(msoShapeRectangle, 0, 0, 360, 270).Select
With ActiveWindow.Selection.ShapeRange
.Fill.ForeColor.RGB = RGB(0, 0, 255)
.Line.ForeColor.RGB = RGB(0, 0, 255)
End With
Rem draw the 12 rays
ActiveWindow.Selection.SlideRange.Shapes.AddShape(msoShape12pointStar, 55, 10, 250, 250).Select
With ActiveWindow.Selection.ShapeRange
.Fill.ForeColor.RGB = RGB(255, 255, 255)
.Line.ForeColor.RGB = RGB(0, 0, 255)
.Adjustments.Item(1) = 0.25
End With
Rem draw the circle
ActiveWindow.Selection.SlideRange.Shapes.AddShape(msoShapeOval, 118.8, 75.6, 120, 120).Select
With ActiveWindow.Selection.ShapeRange
.Fill.ForeColor.RGB = RGB(255, 255, 255)
.Line.ForeColor.RGB = RGB(0, 0, 255)
.Line.Weight = 5
.Line.DashStyle = msoLineSolid
End With
End Sub