[求助]如何在EXCEL建立图样?

vken7az2p

[求助]如何在EXCEL建立图样?
参考 vlxls-functions
http://www.atablex.com/htmls/vlxls-functions.htm

开启 EXCEL
(setq xlapp (vlax-get-or-create-object "excel.application"))
(setq sheet (vlax-get-property xlapp  "ActiveSheet"))
(setq shapes (vlax-get-property sheet "shapes"))

建立LINE,正常
ActiveSheet.Shapes.AddLine(0.0, 0.0, 100.75, 100.75)
(vlax-invoke-method shapes 'AddLine 0.0 0.0 100.75 100.75 )
     
建立Rectangle,错误
ActiveSheet.Shapes.AddShape(msoShapeRectangle, 121.5, 147.75, 99.5, 114.75)
(vlax-invoke-method shapes 'AddShape ShapeRectangle 121.5 147.75 99.5 114.75 )

请问该怎样带入 msoShapeRectangle 这常数值呢?
烦请各位高手可以解答一下
谢谢~