lisp控制word插入图片问题

283528149

如何改变插入JPG的高度？

283528149

http://bbs.mjtd.com/forum.php?mo ... &fromuid=238436

caddog

1. 

   复制代码
   
   
2. (setq v-selection (mswp-get-Selection msw))
   
3. (setq v-insertPic (mswp-get-InlineShapes v-selection))
   
4. (setq inlineShapeObj (mswm-AddPicture  v-insertPic $fn-pic1 :vlax-false :vlax-true));_插入图片
   
5. (mswp-put-height inlineShapeObj 594.95);_图片高
   
6. (mswp-put-Width inlineShapeObj 841.6);_图片宽
   
7. ;;;以下设置图片的 版式
   
8. (setq inlineShapeObj (mswm-ConvertToShape inlineShapeObj))
   
9. (setq inlineShapeObj-format (mswp-get-WrapFormat inlineShapeObj))
   
10. (mswp-put-type inlineShapeObj-format 0)
    

</ol></div><em onclick="copycode($('code_o2T'));">复制代码</em></div><br /> (setq v-selection (mswp-get-Selection msw))<br /> (setq v-insertPic (mswp-get-InlineShapes v-selection))<br /> (setq inlineShapeObj (mswm-AddPicture  v-insertPic $fn-pic1 :vlax-false :vlax-true));_插入图片<br /> (mswp-put-height inlineShapeObj 594.95);_图片高<br /> (mswp-put-Width inlineShapeObj 841.6);_图片宽<br /> ;;;以下设置图片的 版式<br /> (setq inlineShapeObj (mswm-ConvertToShape inlineShapeObj))<br /> (setq inlineShapeObj-format (mswp-get-WrapFormat inlineShapeObj))<br /> (mswp-put-type inlineShapeObj-format 0)<br />