易语言word对象调整插入图片的大小

jmao1234

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_启动窗口
变量名	类 型	数组	备 注
word	对象

子程序名	返回值类型	公开	备 注
__启动窗口_创建完毕

word.创建 (“word.application”, )
word.读对象型属性 (“documents”, ).对象型方法 (“open”, 取运行目录 () ＋ “\1.doc”)
word.写属性 (“visible”, 真)
word.读对象型属性 (“selection”, ).读对象型属性 (“inlineshapes”, ).方法 (“addpicture”, 取运行目录 () ＋ “\照片.jpg”)

子程序名	返回值类型	公开	备 注
__启动窗口_将被销毁

word.方法 (“quit”, )

.版本 2<br /> <br /> .程序集 窗口程序集_启动窗口<br /> .程序集变量 word, 对象<br /> <br /> .子程序 __启动窗口_创建完毕<br /> <br /> word.创建 (“word.application”, )<br /> word.读对象型属性 (“documents”, ).对象型方法 (“open”, 取运行目录 () ＋ “\1.doc”)<br /> word.写属性 (“visible”, 真)<br /> word.读对象型属性 (“selection”, ).读对象型属性 (“inlineshapes”, ).方法 (“addpicture”, 取运行目录 () ＋ “\照片.jpg”)<br /> <br /> .子程序 __启动窗口_将被销毁<br /> <br /> word.方法 (“quit”, )

代码如上，想调整插入的图片的大小，请问如何使用word对象去操作！！！图片随便都可以。

978069486

  

子程序名	返回值类型	公开	备 注
Word加图片			方法2,可以设置图片大小，但是位置不行
参数名	类 型	参考	可空	数组	备 注
Word文件	文本型				DOC
图片文件	文本型

变量名	类 型	静态	数组	备 注
objWord	对象			Word.Application
objDoc	对象			Word.Documents
objSelection	对象
objShape	对象			该对象可以修改图片样式等

objWord.创建 (“Word.Application”, )  ' 创建WORD程序对象
objWord.写属性 (“Visible”, 假)  ' 更改可视属性
objDoc ＝ objWord.读对象型属性 (“Documents”, )  ' 获取文档对象
objDoc ＝ objDoc.对象型方法 (“Open”, Word文件, , , , )  ' 打开文件
objSelection ＝ objWord.对象型方法 (“Selection”, )
' ↓插入图片
objShape ＝ objSelection.读对象型属性 (“InlineShapes”, ).对象型方法 (“AddPicture”, 图片文件)
objShape.写属性 (“Width”, 40)
objShape.写属性 (“Height”, 60)
' 插入图片后获得一个objShape对象，该对象可以修改图片样式等
objWord.方法 (“quit”, 真)  ' 保存并退出
objWord.清除 ()
信息框 (“修改完成”, 0, , )

.版本 2<br /> <br /> .子程序 Word加图片, , , 方法2,可以设置图片大小，但是位置不行<br /> .参数 Word文件, 文本型, , DOC<br /> .参数 图片文件, 文本型<br /> .局部变量 objWord, 对象, , , Word.Application<br /> .局部变量 objDoc, 对象, , , Word.Documents<br /> .局部变量 objSelection, 对象<br /> .局部变量 objShape, 对象, , , 该对象可以修改图片样式等<br /> <br /> objWord.创建 (“Word.Application”, )  ' 创建WORD程序对象<br /> objWord.写属性 (“Visible”, 假)  ' 更改可视属性<br /> objDoc ＝ objWord.读对象型属性 (“Documents”, )  ' 获取文档对象<br /> objDoc ＝ objDoc.对象型方法 (“Open”, Word文件, , , , )  ' 打开文件<br /> objSelection ＝ objWord.对象型方法 (“Selection”, )<br /> ' ↓插入图片<br /> objShape ＝ objSelection.读对象型属性 (“InlineShapes”, ).对象型方法 (“AddPicture”, 图片文件)<br /> objShape.写属性 (“Width”, 40)<br /> objShape.写属性 (“Height”, 60)<br /> ' 插入图片后获得一个objShape对象，该对象可以修改图片样式等<br /> objWord.方法 (“quit”, 真)  ' 保存并退出<br /> objWord.清除 ()<br /> 信息框 (“修改完成”, 0, , )

补充内容 (2020-3-1 17:06):
objShape.写属性 (“Width”, 40)
objShape.写属性 (“Height”, 60)
这两个是大小自己修改下