批量处理和单个处理word图片大小和比例的宏
Word采用宏命令批量调整照片大小方法
Word采用宏命令批量调整照片大小方法
Word采用宏命令批量调整照片大小方法
1.点击“视图”菜单，找到“宏”。
点击“录制宏”，进入“录制宏”操作面板后，为宏定义一个名字，之后点击“确定”按钮。
2.再次找到“宏”，点击“停止录制”。
3.点击“查看宏”，选择定义好的宏的名字，点击右侧的“编辑”按钮。
4.进入VB编辑器后，输入如下命令后，点击“保存”。
5.若照片有不同的大小要求，可在命令中的“（）”内调整照片的宽度及高度。
6.将照片批量插入到WORD文档中，要求照片必须为“嵌入式”。
7.点击“宏”，进入操作面板后点击“运行”按钮，宏命令就得到了
执行，插入到文档中的图片就会按照在宏命令中设置的大小进行批量调整。
word中批量修改图片大小
这部分要说的是把word中的所有图片修改成固定的并且相同的长和宽！方法一：这部分要说的是把word中的所有图片修改成固定的并且相同的长和宽!1、打开word,工具-宏-宏(或者直接按Alt+F8)进入宏的界面，如下面所示，输入一个宏名，宏名自己起，能记住就行!2、宏名起好了，单击"创建"进入Visual Basic 编辑器，输入如下代码并保存Sub setpicsize() '设置图片大小Dim n ' 图片个数On Error Resume Next ' 忽略错误For n = 1 To ActiveDocument.InlineShapes.Count 'InlineShapes 类型图片ActiveDocument.InlineShapes(n)。
Height = 400 '设置图片高度为400pxActiveDocument.InlineShapes(n)。
Width = 300 '设置图片宽度300pxNext nFor n = 1 To ActiveDocument.Shapes.Count 'Shapes 类型图片ActiveDocument.Shapes(n)。
Height = 400 '设置图片高度为400pxActiveDocument.Shapes(n)。
Width = 300 '设置图片宽度300pxNext nEnd Sub3、返回word,工具-宏-宏(或者直接按Alt+F8)，再次进入宏的界面，选择刚才编辑好的宏，并单击"运行"按钮，就可以了!(图片多时，可能会花一些时间)方法二：1、在word中按alt+f11组合键，进入VBA模式2、在左边的工程资源管理器中找到你的word文档，在其上右键/添加/模块3、把下面代码复制，粘贴进去。
4、更改数值，改一下宽度和高度数值(10)，点运行(类似播放按钮。
word批量修改图片大小++宏编程实现
word批量修改图片大小宏编程实现word 批量修改图片大小——固定长宽篇这部分要说的是把 word 中的所有图片修改成固定的并且相同的长和宽～1、打开 word，工具,宏,宏(或者直接按 Alt+F8)进入宏的界面，如下面所示，输入一个宏名，能记住就行～宏名自己起，2、宏名起好了，单击“创建”进入 Visual Basic 编辑器，输入如下代码并保存:Sub setpicsize() '设置图片大小Dim n '图片个数Resume Next '忽On Error略错误For n = 1 To ActiveDocument.InlineShapes.Count 'InlineShapes 类型图片ActiveDocument.InlineShapes(n).Height = 400 '设置图片高度为 400pxActiveDocument.InlineShapes(n).Width = 300 '设置图片宽度 300px Next nFor n = 1 To ActiveDocument.Shapes.Count 'Shapes 类型图片ActiveDocument.Shapes(n).Height = 400 '设置图片高度为 400px ActiveDocument.Shapes(n).Width = 300 '设置图片宽度 300px Next n End Sub(以上这段代码以像素为单位修改图片)或:Sub setpicsize()Dim iSha As InlineShapeFor Each iSha In ActiveDocument.InlineShapesIf iSha.Type = wdInlineShapePicture TheniSha.LockAspectRatio = msoFalse '不锁定纵横比iSha.Width = CentimetersToPoints(5) '宽5CMiSha.Height = CentimetersToPoints(5) '高5CMEnd IfNextEnd Sub(以上这段代码以厘米cm为单位修改图片,不锁定纵横比)或:Sub 图片统一大小()On Error Resume NextDim mywidthDim myheightApplication.ScreenUpdating = False '关闭屏幕更新mywidth = Val(InputBox(Prompt:="单位为厘米(cm);如果输入为0，则图片保持原始纵横比,宽度根据输入的高度数值自动调整;", Title:="请输入图片宽度", Default:="0")) * 28.35myheight = Val(InputBox(Prompt:="单位为厘米(cm);如果输入为0，则图片保持原始纵横比,高度根据输入的宽度数值自动调整;", Title:="请输入图片高度", Default:="0")) * 28.35'------------------------------------------------------------------ '调整嵌入式图形Dim pic As InlineShapeFor Each pic In ActiveDocument.InlineShapes If mywidth = "0" Then pic.Height = myheightpic.ScaleWidth = pic.ScaleHeight ElseIf myheight = "0" Thenpic.Width = mywidthpic.ScaleHeight = pic.ScaleWidth Elsepic.Width = mywidthpic.Height = myheightEnd IfNext'调整浮动式图形Dim tu As ShapeFor Each tu In ActiveDocument.Shapes If mywidth = "0" Thentu.Height = myheightElseIf myheight = "0" Thentu.Width = mywidthElsetu.LockAspectRatio = msoFalsetu.Width = mywidthtu.Height = myheightEnd IfNextApplication.ScreenUpdating = True '恢复屏幕更新End Sub(有图形界面的宏，直接按提示输入数据就可以了(锁定纵横比))3、返回 word，工具,宏,宏(或者直接按 Alt+F8)，再次进入宏的界面，选择刚才编辑好的宏，并单击“运行”按钮，就可以了～(图片多时，可能会花一些时间)word 批量修改图片大小——按比例缩放篇具体操作同上，只是代码部分稍做修改，代码这部分要说的是把 word 中的所有图片按比例缩放～如下:Sub setpicsize() '设置图片大小Dim n '图片个数Dim picwidthDim picheightOn Error Resume Next '忽略错误For n = 1 To ActiveDocument.InlineShapes.Count 'InlineShapes 类型图片 picheight = ActiveDocument.InlineShapes(n).Height picwidth =ActiveDocument.InlineShapes(n).WidthActiveDocument.InlineShapes(n).Height = picheight * 1.1 '设置高度为1.1 倍 ActiveDocument.InlineShapes(n).Width = picwidth * 1.1 '设置宽度为1.1 倍 Next nFor n = 1 To ActiveDocument.Shapes.Count 'Shapes 类型图片picheight = ActiveDocument.Shapes(n).Height picwidth = ActiveDocument.Shapes(n).Width ActiveDocument.Shapes(n).Height = picheight * 1.1 '设置高度为1.1 倍ActiveDocument.Shapes(n).Width = picwidth * 1.1 '设置宽度为1.1 倍Next nEnd Sub表格居中:Sub CenterTable()Application.Browser.Target = wdBrowseCommentFor i = 1 To ActiveDocument.Tables.CountActiveDocument.Tables(i).Rows.Alignment = wdAlignRowCenterActiveDocument.Tables(i).Range.Paragraphs.Alignment = wdAlignParagraphCenterActiveDocument.Tables(i).Rows.Height = 40Next iEnd Sub表格文字居中如果只是表格内容居中，请删除[ActiveDocument.Tables(i).Range.Paragraphs.Alignment = wdAlignParagraphCenter]行即:Sub CenterTable()Application.Browser.Target = wdBrowseCommentFor i = 1 To ActiveDocument.Tables.CountActiveDocument.Tables(i).Rows.Alignment = wdAlignRowCenter ActiveDocument.Tables(i).Rows.Height = 40Next iEnd Sub备注:数值可以自己调整。
批量调整word 图片大小
批量调整word 图片大小我知道通过宏可以批量完成一个word中所有图片大小的修改，在次与大家共享，也希望可以给大家参考。
1、Alt+F8调出宏编辑窗口2、点创建按钮，创建新宏，setpicsize,内容如下：Sub setpicsize()'设置图片大小' 宏在2008-3-31 由hero_thm 录制'Dim j '计数图片个数For j = 1 To ActiveDocument.InlineShapes.Count '文件中图片总个数，图片类型为inlineshapes ActiveDocument.InlineShapes(j).Height = 362 '设置高度ActiveDocument.InlineShapes(j).Width = 481.87 '设置宽度Next jEnd Sub3、保存退出，点运行setpicsize宏，word中所有的图片统一调整为宽17cm，高12.77cm Sub setpicsize()'设置图片大小' 宏在2008-3-31 由hero_thm 录制'Dim j '计数图片个数For j = 1 To ActiveDocument.InlineShapes.Count '文件中图片总个数，图片类型为inlineshapes If ActiveDocument.InlineShapes(j).Width > 480 ThenActiveDocument.InlineShapes(j).Width = 400 '设置宽度End IfNext jEnd Subggggggggggggggggggggggggggggggggggggg小一最近在复习高数，复习材料当然是下载的电子版的了，嘿嘿！不过~~这材料居然~~所有复杂的式子都是图片形式的，光是这样小一也就忍了，关键高数嘛~~式子会比较复杂，这些图片做的又那么小，根本看不清啊！按住Ctrl+滚轮倒是可以放大，但是这样不是很方便，而且~~小一还想打印出来呢，怎么办呢？总不能一个图片一个图片的修改吧……声明：小一下面要说的“批量修改word里的图片大小”的方法需要使用到宏，所以~~最好对VB有所了解！当然~~这不是必需的，只要跟着小一的图文教程走，不知道什么是宏，不知道什么是VB也可以！word批量修改图片大小——固定长宽篇这部分要说的是把word中的所有图片修改成固定的并且相同的长和宽！1、打开word，工具－宏－宏（或者直接按Alt+F8）进入宏的界面，如下面所示，输入一个宏名，宏名自己起，能记住就行！2、宏名起好了，单击“创建”进入Visual Basic 编辑器，输入如下代码并保存Sub setpicsize() '设置图片大小Dim n'图片个数On Error Resume Next '忽略错误For n = 1 To ActiveDocument.InlineShapes.Count 'InlineShapes类型图片ActiveDocument.InlineShapes(n).Height = 400 '设置图片高度为 400pxActiveDocument.InlineShapes(n).Width = 300 '设置图片宽度 300pxNext nFor n = 1 To ActiveDocument.Shapes.Count 'Shapes类型图片ActiveDocument.Shapes(n).Height = 400 '设置图片高度为 400pxActiveDocument.Shapes(n).Width = 300 '设置图片宽度 300pxNext nEnd Sub3、返回word，工具－宏－宏（或者直接按Alt+F8），再次进入宏的界面，选择刚才编辑好的宏，并单击“运行”按钮，就可以了！（图片多时，可能会花一些时间）word批量修改图片大小——按比例缩放篇这部分要说的是把word中的所有图片按比例缩放！具体操作同上，只是代码部分稍做修改，代码如下：Sub setpicsize() '设置图片大小Dim n'图片个数Dim picwidthDim picheightOn Error Resume Next '忽略错误For n = 1 To ActiveDocument.InlineShapes.Count 'InlineShapes类型图片picheight = ActiveDocument.InlineShapes(n).Heightpicwidth = ActiveDocument.InlineShapes(n).WidthActiveDocument.InlineShapes(n).Height = picheight * 1.1 '设置高度为1.1倍ActiveDocument.InlineShapes(n).Width = picwidth * 1.1 '设置宽度为1.1倍Next nFor n = 1 To ActiveDocument.Shapes.Count 'Shapes类型图片picheight = ActiveDocument.Shapes(n).Heightpicwidth = ActiveDocument.Shapes(n).WidthActiveDocument.Shapes(n).Height = picheight * 1.1 '设置高度为1.1倍ActiveDocument.Shapes(n).Width = picwidth * 1.1 '设置宽度为1.1倍Next nEnd Sub虽然小一的代码不是好代码，但确实能解决小一的问题，瞬间就把word文档里所有图片放大了1.1倍，各种公式、坐标轴都比原来清楚多了，可以拿去打印出来了。
WORD中图片大小统一调整宏设置方法
调整 WORD图片为统一尺寸方法：新建宏
1、打开WORD,Alt+F8调出宏编辑窗口
2、在宏名中填入名称，如名称为“调整图片大小”，然后点“创建“按钮，创建新宏，将以下内容复制填入：
ActiveDocument.InlineShapes(j).Width = 457 '设置宽度（28.4像素/厘米）
Next j
End Sub
复制后图像如下：
然后关闭。
下面运行宏即可将WORD中所有图片大小进行统一
运行之后就会发现所有图片大小都一致了。
Sub 调整图片大小() '
' 调整图片大小 宏'
Dim j '计数图片个数
For j = 1 To ActiveDocument.InlineShapes.Count '文件中图片总个数，图片类型为s
ActiveDocument.InlineShapes(j).Height = 328 '设置高度（28.4像素/厘米）
批量处理word文档图片大小
声明：我下面要说的“批量修改word里的图片大小”的方法需要使用到宏，所以~~最好对VB有所了解！当然~~这不是必需的，只要跟着我的图文教程走，不知道什么是宏，不知道什么是VB也可以！word批量修改图片大小——固定长宽篇这部分要说的是把word中的所有图片修改成固定的并且相同的长和宽！1、打开word，工具－宏－宏（或者直接按Alt+F8）进入宏的界面，如下面所示，输入一个宏名，宏名自己起，能记住就行！2、宏名起好了，单击“创建”进入Visual Basic 编辑器，输入如下代码并保存Sub setpicsize() '设置图片大小Dim n '图片个数On Error Resume Next '忽略错误For n = 1 To ActiveDocument.InlineShapes.Count 'InlineShapes类型图片ActiveDocument.InlineShapes(n).Height = 105 '设置图片高度为105px ActiveDocument.InlineShapes(n).Width = 105 '设置图片宽度105pxNext nFor n = 1 To ActiveDocument.Shapes.Count 'Shapes类型图片ActiveDocument.Shapes(n).Height = 105 '设置图片高度为105pxActiveDocument.Shapes(n).Width = 105 '设置图片宽度105pxNext nEnd Sub3、返回word，工具－宏－宏（或者直接按Alt+F8），再次进入宏的界面，选择刚才编辑好的宏，并单击“运行”按钮，就可以了！（图片多时，可能会花一些时间）word批量修改图片大小——按比例缩放篇这部分要说的是把word中的所有图片按比例缩放！具体操作同上，只是代码部分稍做修改，代码如下：Sub setpicsize() '设置图片大小Dim n '图片个数Dim picwidthDim picheightOn Error Resume Next '忽略错误For n = 1 To ActiveDocument.InlineShapes.Count 'InlineShapes类型图片picheight = ActiveDocument.InlineShapes(n).Heightpicwidth = ActiveDocument.InlineShapes(n).WidthActiveDocument.InlineShapes(n).Height = picheight * 1.1 '设置高度为1. 1倍ActiveDocument.InlineShapes(n).Width = picwidth * 1.1 '设置宽度为1.1倍Next nFor n = 1 To ActiveDocument.Shapes.Count 'Shapes类型图片picheight = ActiveDocument.Shapes(n).Heightpicwidth = ActiveDocument.Shapes(n).WidthActiveDocument.Shapes(n).Height = picheight * 1.1 '设置高度为1.1倍ActiveDocument.Shapes(n).Width = picwidth * 1.1 '设置宽度为1.1倍Next nEnd Sub虽然我的代码不是好代码，但确实能解决我的问题，瞬间就把word文档里所有图片放大了1.1倍，各种公式、坐标轴都比原来清楚多了，可以拿去打印出来了，呼呼！。
word 批量设置图片大小 收藏
word 批量设置图片大小收藏word批量修改图片大小——固定长宽篇方法一：这部分要说的是把word中的所有图片修改成固定的并且相同的长和宽！1、打开word，工具－宏－宏（或者直接按Alt+F8）进入宏的界面，如下面所示，输入一个宏名，宏名自己起，能记住就行！2、宏名起好了，单击“创建”进入Visual Basic 编辑器，输入如下代码并保存Sub setpicsize() '设置图片大小Dim n ' 图片个数On Error Resume Next ' 忽略错误For n = 1 To ActiveDocument.InlineShapes.Count 'InlineShapes 类型图片ActiveDocument.InlineShapes(n).Height = 400 '设置图片高度为400pxActiveDocument.InlineShapes(n).Width = 300 '设置图片宽度300pxNext nFor n = 1 To ActiveDocument.Shapes.Count 'Shapes 类型图片ActiveDocument.Shapes(n).Height = 400 '设置图片高度为400pxActiveDocument.Shapes(n).Width = 300 '设置图片宽度300pxNext nEnd Sub3、返回word，工具－宏－宏（或者直接按Alt+F8），再次进入宏的界面，选择刚才编辑好的宏，并单击“运行”按钮，就可以了！（图片多时，可能会花一些时间）方法二：1、在word中按alt+f11组合键,进入VBA模式2、在左边的工程资源管理器中找到你的word文档,在其上右键/添加/模块3、把下面代码复制,粘贴进去.4、更改数值, 改一下宽度和高度数值(10)，点运行(类似播放按钮.)或f5,即可设置文档中全部图片Sub Macro()Mywidth=10Myheigth=10For Each iShape In ActiveDocument.InlineShapesiShape.Height = 28.345 * MyheigthiShape.Width = 28.345 * MywidthNext iShapeEnd Subword批量修改图片大小——按比例缩放篇这部分要说的是把word中的所有图片按比例缩放！具体操作同上，只是代码部分稍做修改，代码如下：Sub setpicsize() '设置图片大小Dim n '图片个数Dim picwidthDim picheightOn Error Resume Next '忽略错误For n = 1 To ActiveDocument.InlineShapes.Count 'InlineShapes 类型图片picheight = ActiveDocument.InlineShapes(n).Heightpicwidth = ActiveDocument.InlineShapes(n).WidthActiveDocument.InlineShapes(n).Height = picheight * 1.1 '设置高度为1.1倍ActiveDocument.InlineShapes(n).Width = picwidth * 1.1 '设置宽度为1.1倍Next nFor n = 1 To ActiveDocument.Shapes.Count 'Shapes类型图片picheight = ActiveDocument.Shapes(n).Heightpicwidth = ActiveDocument.Shapes(n).WidthActiveDocument.Shapes(n).Height = picheight * 1.1 '设置高度为1.1倍ActiveDocument.Shapes(n).Width = picwidth * 1.1 '设置宽度为1.1倍Next nEnd Sub。
如何在word2007中统一修改多个图片的大小
如何在word2007中统一修改多个图片的大小，使用宏1.点击视图-宏-录制宏
2.宏名中输入要创建的名称（这里输入了setpicsize）
3.点击键盘
4.此时鼠标在请按新快捷键方框中，同时按下键盘上的Ctrl+E
（关闭之后，同时按下Ctrl+E操作即可。
但偶不知怎样操作，遂进入第5步）
5.停止录制宏
6.查看宏，点击右侧编辑
7.在该窗口中编辑代码即完成宏的创建
此次统一修改图片的代码为：
sub setpicsize()
dim n
on error resume next
for n=1 to activedocument.inlineshapes.count activedocument.inlineshapes(n).height=400
activedocument.inlineshapes(n).width=300
next n
for n=1 to activedocument.inlineshapes.count
activedocument.inlineshapes(n).height=400
activedocument.inlineshapes(n).width=300
next n
end sub
作为菜鸟，借鉴了网上各位大侠的意见，总结此文档。
虽然不够权威，但尚能解决问题。
与君共勉~。
WORD中图片大小统一调整宏设置方法
' 调整图片大小 宏'
Dim j '计数图片个数
For j = 1 To ActiveDocument.InlineShapes.Count '文件中图片总个数，图片类型为inlineshapes
ActiveDocument.InlineShapes(j).Height = 328 '设置高度（28.4像素/厘米）
ActiveDocument.InlineShapes(j).Width = 457 '设置宽度（28.4像素/厘米）
Next j
End Sub
复制后图像如下：
然后关闭。
下面运行宏即可将WORD中所有图片大小进行统一
运行之后就会发现所有图片大小都一致了。
新建宏1打开wordaltf8调出宏编辑窗口2在宏名中填入名称如名称为调整图片大小然后点创建按钮创建新宏将以下内容复制填入
调整 WORD图片为统一尺寸方法：2、在宏名中填入名称，如名称为“调整图片大小”，然后点“创建“按钮，创建新宏，将以下内容复制填入：
Word宏：Word中的图片批量统一大小及同比例缩放(图)
Word宏：Word 中的图片批量统一大小及同比例缩放(图)有些时候，我们用Word来做一些图文混排的文档，需要正规的样式，例如图片大小一致。
下面的方法就是告诉我们如何来实现很多的图片统一大小。
实现代码：Sub setpicsize() '设置图片大小Dim n '图片个数On Error Resume Next '忽略错误For n = 1 To ActiveDocument.InlineShapes.Count 'InlineShapes 类型图片ActiveDocument.InlineShapes(n).Height = 400 '设置图片高度为400px ActiveDocument.InlineShapes(n).Width = 300 '设置图片宽度300px Next nFor n = 1 To ActiveDocument.Shapes.Count 'Shapes 类型图片ActiveDocument.Shapes(n).Height = 400 '设置图片高度为400px ActiveDocument.Shapes(n).Width = 300 '设置图片宽度300px Next n End Sub使用方法，把代码复制到Visual Biscal编辑器中，再回到Word界面，运行“宏命令。
操作步骤如下：1.打开要统一图片大小的Word文档，点击“工具”-“宏”-“Visual Biscal 编辑器。
工具Q 〕 表格窗口⑭ 兆助徂J Xdabt TDFQB3 M&t ■砒 注粹©共享工作区如… 修订（I ） Ctrl+Shi f t+E 比簸并合并文措如… 保护主梢（£）,•.联机协作僵J信函与邯件（1）2）插入normal 工程"模块”。
拼写和谩法窈一 一. 信息检素（M ）. . - A1L+单击 谱舌田） 字数恭计地），一. 自动第写摘腰（Jp.-.语音始FT J n lift 寻；1。
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
设定单个图片大小的宏：
Sub 宏5()
Selection.InlineShapes(1).LockAspectRatio = msoFalse '解除纵横
比锁定
Dim h!, w!
h = Selection.InlineShapes(1).Height
w = Selection.InlineShapes(1).Width
Selection.InlineShapes(1).Height = 627 '设置图片高度为627px Selection.InlineShapes(1).Width = 407 '设置图片宽度407px
End Sub
设定单个图片比例的宏：
Sub 宏3()
Selection.InlineShapes(1).LockAspectRatio = msoFalse '解除纵横
比锁定
Dim h!, w!
h = Selection.InlineShapes(1).Height
w = Selection.InlineShapes(1).Width
Selection.InlineShapes(1).Height = h * 1.25 '设置图片高度比例为125%
Selection.InlineShapes(1).Width = w * 0.77 '设置图片宽度比例为77% End Sub
批量设定图片大小的宏：
Sub setpicsize() '设置图片大小
Dim n '图片个数
On Error Resume Next '忽略错误
For n = 1 To ActiveDocument.InlineShapes.Count 'InlineShapes类型图片
ActiveDocument.InlineShapes(n).LockAspectRatio = msoFalse ActiveDocument.InlineShapes(n).Height = 400 '设置图片高度为400px
ActiveDocument.InlineShapes(n).Width = 300 '设置图片宽度300px
Next n
For n = 1 To ActiveDocument.Shapes.Count 'Shapes类型图片Selection.InlineShapes(n).LockAspectRatio = msoFalse ActiveDocument.Shapes(n).Height = 400 '设置图片高度为400px ActiveDocument.Shapes(n).Width = 300 '设置图片宽度300px Next n
End Sub
批量设定图片比例的宏
Sub 宏1()
Dim n '图片个数
Dim picwidth
Dim picheight
On Error Resume Next '忽略错误
For n = 1 To ActiveDocument.InlineShapes.Count 'InlineShapes类型图片
ActiveDocument.InlineShapes(n).LockAspectRatio = msoFalse picheight = ActiveDocument.InlineShapes(n).Height
picwidth = ActiveDocument.InlineShapes(n).Width ActiveDocument.InlineShapes(n).Height = picheight * 1.1 '设置高度为1.1倍
ActiveDocument.InlineShapes(n).Width = picwidth * 1.1 '设置宽度为1.1倍
Next n
For n = 1 To ActiveDocument.Shapes.Count 'Shapes类型图片Selection.InlineShapes(n).LockAspectRatio = msoFalse picheight = ActiveDocument.Shapes(n).Height
picwidth = ActiveDocument.Shapes(n).Width ActiveDocument.Shapes(n).Height = picheight * 1.1 '设置高度为1.1倍
ActiveDocument.Shapes(n).Width = picwidth * 1.1 '设置宽度为1.1倍
Next n
End Sub。