word中插图图片问题

dubiny

按子程序1，打开word文档后插入图片，图片会锁定纵横比按子程序2，获取已打开的word文档，再插入图片，图片全都是不锁定纵横比的状态


需求是获取已打开的word文档，插入图片，图片仍然锁定纵横比，用支持库或者模块也行，自带支持库和模块都不知道怎么获取已打开的word文档再操作。

  

子程序名	返回值类型	公开	备 注
Word加图片1

变量名	类 型	静态	数组	备 注
Word	对象
Doc	对象
Shape	对象

Word.创建 (“Word.Application”, )
Word.写属性 (“Visible”, 真)
Doc ＝ Word.读对象型属性 (“Documents”, )
Doc ＝ Doc.对象型方法 (“Open”, 取运行目录 () ＋ “\01.doc”, , , , )
Shape ＝ Word.对象型方法 (“Selection”, ).读对象型属性 (“InlineShapes”, ).对象型方法 (“AddPicture”, 取运行目录 () ＋ “\01.jpg”)

.版本 2<br /> <br /> .子程序 Word加图片1<br /> .局部变量 Word, 对象<br /> .局部变量 Doc, 对象<br /> .局部变量 Shape, 对象<br /> <br /> Word.创建 (“Word.Application”, )<br /> Word.写属性 (“Visible”, 真)<br /> Doc ＝ Word.读对象型属性 (“Documents”, )<br /> Doc ＝ Doc.对象型方法 (“Open”, 取运行目录 () ＋ “\01.doc”, , , , )<br /> Shape ＝ Word.对象型方法 (“Selection”, ).读对象型属性 (“InlineShapes”, ).对象型方法 (“AddPicture”, 取运行目录 () ＋ “\01.jpg”)

  

子程序名	返回值类型	公开	备 注
Word加图片2

变量名	类 型	静态	数组	备 注
Word	对象
Doc	对象
Shape	对象

Word.获取 (“Word.Application”)
Shape ＝ Word.对象型方法 (“Selection”, ).读对象型属性 (“InlineShapes”, ).对象型方法 (“AddPicture”, 取运行目录 () ＋ “\01.jpg”)

.版本 2<br /> <br /> .子程序 Word加图片2<br /> .局部变量 Word, 对象<br /> .局部变量 Doc, 对象<br /> .局部变量 Shape, 对象<br /> <br /> Word.获取 (“Word.Application”)<br /> Shape ＝ Word.对象型方法 (“Selection”, ).读对象型属性 (“InlineShapes”, ).对象型方法 (“AddPicture”, 取运行目录 () ＋ “\01.jpg”)

dubiny

按子程序1，打开word文档后插入图片，图片会锁定纵横比按子程序2，获取已打开的word文档，再插入图片，图片全都是不锁定纵横比的状态   需求是获取已打开的word文档，插入图片，图片仍然锁定纵横比，用支持库或者模块也行，自带支持库和模块都不知道怎么获取已打开的word文档再操作。

wsysyb

沙发6666666