Excel VBA, 310 Bytes

Anonymous VBE Immediates Window function that outputs a Mario to the Activesheet object at cells A1:L16

o=&H259DE3:Cells.ColumnWidth=2:a "A1:L16",&HFF8C6B:a "C4:K5,D3:I7,J7,L5,A11:L13",o:a "C3:E3,H3:H4,B4:B6,C6,D4:D5,E5,I5,H6:K6,C8:H8,B9:K10,A10:L10,C11,J11,B15:D16,A16,I15:K16,L16",&H46B6A:a"D1:H1,C2:K2,E8:E10,F10:H10,H9,D11:I13,C13:E14,H13:J14",&H2534B1:a "E11,H11",o

Helper Function b

Sub a(r,c):Range(r).Interior.Color=c:End Sub

Ungolfed Version

Sub b()
    o = &H259DE3
    Cells.ColumnWidth = 2
    a "A1:L16", &HFF8C6B
    a "C4:K5,D3:I7,J7,L5,A11:L13", o
    a "C3:E3,H3:H4,B4:B6,C6,D4:D5,E5,I5,H6:K6,C8:H8,B9:K10,A10:L10,C11,J11,B15:D16,A16,I15:K16,L16", &H46B6A
    a "D1:H1,C2:K2,E8:E10,F10:H10,H9,D11:I13,C13:E14,H13:J14", &H2534B1
    a "E11,H11", o
End Sub

Sub a(r, c)
    Range(r).Interior.Color = c
End Sub

##Output