note
jsprat
Perl knows not what msoShapeRectangle is. You need to import the constants from the Office type library or supply them yourself.
<p />
Try something like this
<p /><code>use Win32::OLE;
use Win32::OLE::Const 'Microsoft Office';
print msoShapeRectangle . ":" . msoShapeOval;
__END__
results:
1:9</code><p />
301862
301862