Sub MACRO_PRC()
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 5 stars
ActiveWindow.Selection.SlideRange.Shapes.AddShape(msoShape5pointStar, 45, 45, 150, 150).Select
With ActiveWindow.Selection.ShapeRange
.Fill.ForeColor.RGB = RGB(255, 255, 0)
.Line.ForeColor.RGB = RGB(255, 255, 0)
End With
ActiveWindow.Selection.SlideRange.Shapes.AddShape(msoShape5pointStar, 220, 30, 45, 45).Select
With ActiveWindow.Selection.ShapeRange
.Fill.ForeColor.RGB = RGB(255, 255, 0)
.Line.ForeColor.RGB = RGB(255, 255, 0)
.Rotation = -45
End With
ActiveWindow.Selection.SlideRange.Shapes.AddShape(msoShape5pointStar, 270, 80, 45, 45).Select
With ActiveWindow.Selection.ShapeRange
.Fill.ForeColor.RGB = RGB(255, 255, 0)
.Line.ForeColor.RGB = RGB(255, 255, 0)
.Rotation = 45
End With
ActiveWindow.Selection.SlideRange.Shapes.AddShape(msoShape5pointStar, 270, 140, 45, 45).Select
With ActiveWindow.Selection.ShapeRange
.Fill.ForeColor.RGB = RGB(255, 255, 0)
.Line.ForeColor.RGB = RGB(255, 255, 0)
End With
ActiveWindow.Selection.SlideRange.Shapes.AddShape(msoShape5pointStar, 220, 190, 45, 45).Select
With ActiveWindow.Selection.ShapeRange
.Fill.ForeColor.RGB = RGB(255, 255, 0)
.Line.ForeColor.RGB = RGB(255, 255, 0)
.Rotation = -45
End With
End Sub