Sub AddRectangle()
    Dim myShape As Shape
    
    Set myShape = _
        ActivePresentation.SlideShowWindow.View.Slide.Shapes. _
        AddShape(Type:=msoShapeRectangle, Left:=100, Top:=100, _
        Width:=200, Height:=200)
    myShape.Fill.ForeColor.RGB = vbRed
    myShape.TextFrame.TextRange.Text = "Hello"
End Sub