Thankyou. I've got the shape added but now I'm stumped on how to set the fill color. Based on a ppt macro that does the same thing I think the perl code should be something like:

$colorBox->Fill->{ForeColor} = ({Red=>255, Green=>255, Blue=>153});
[download]

but this results in the error:

Win32::OLE(0.1601) error 0x80020005: "Type mismatch"
    in PROPERTYPUT "ForeColor" at build_ql.prl line 121
[download]

Any suggestions ?