一、旋转图片

模糊布尔型

如果选择。类型=wdSelectionInlineShape然后

blnIsInlineShape=真

选择。内嵌形状(1)。ConvertToShape

如果…就会结束

变暗为整数

intTurn=InputBox('请输入图形要旋转的角度值vbCrLf正数表示顺时针，负数表示逆时针。', '图形旋转', 30)

选择。形状范围。增量旋转角度

末端接头

二、将文档中的每张图片的版式转换为嵌入式图形

对于每个文档('我的文档')。形状

如果类型=主题那么

南转换连接线形状

如果…就会结束

下一个s

三、设置图片的高度宽度

Mywidth=10'10为图片宽度（厘米)

Myheigth=10 ' 10为图片高度（厘米)

对于活动文档中的每个文件。内嵌形状

iShape .高度=28.345 *我的身高

iShape .宽度=28.345 *我的宽度

下一个iShape

四、得到图片的像素

潜水艇获取嵌入型图片的像素()

出错时继续下一步

选择。范围，找到。清除格式。替换。清除格式。执行findtext:='^g'，匹配通配符：=假，Wrap:=wdFindStop

" MsgBox "该图片的像素为：'选择。内嵌形状(1)。宽度_

*"选择。内嵌形状(1)。高度

以…结尾

末端接头

五、复制图片到单词文档中

将objwordpapp调成单词.应用

将对象单词作为单词变暗。文件

范围（单元格(3,2),单元格(11,11))。挑选

选择。复制图片

设置objwordpapp=CreateObject(' Word .应用程序)

设置objWord=objWordApp .文档。添加

objWord .应用程序。可见=真

objWord .应用。选择。粘贴

设置对象字=无

设置objWordApp=无