Ⅰ word宏代码--选中的图片修改尺寸 代码，不是批量处理
1. VB语言中对图片大小的设置是以原图的长宽等比在缩放，统一设置时默认优先对齐所有图片的“宽度”。
2. ActiveDocument.InlineShapes(n).Range.ParagraphFormat.Alignment= wdAlignParagraphCenter '设置图片居中 可以让图片居中，Left、Right可以分别设置左对齐、右对齐。
3. 全文如果有“手动换行符”↓（代码是^l），设置某一部分居中时会影响漆上下部分的居中与否，因而，如果需要只对图片进行居中，则需先将全文中的↓替换成“段落标记符”（常规回车键，代码是^p）。
4. 这里的Shapes（InlineShapes）不仅仅是指图片，也包含其它的，自选图形、任意多边形、OLE 对象、ActiveX 控件、图片等。
5. InlineShapes类型图片与Shapes类型图片的区别有待研究。
按比例缩放篇代码
Sub setpicsize() '设置图片大小 Dim n
Dim picwidth Dim picheight
On Error Resume Next '忽略错误
For n = 1 To ActiveDocument.InlineShapes.Count 'InlineShapes类型图片 picheight = ActiveDocument.InlineShapes(n).Height picwidth = ActiveDocument.InlineShapes(n).Width
ActiveDocument.InlineShapes(n).Height = picheight * 0.6 '设置高度为0.6倍
ActiveDocument.InlineShapes(n).Width = picwidth * 0.6 '设置宽度为0.6倍 Next n
For n = 1 To ActiveDocument.Shapes.Count 'Shapes类型图片 picheight = ActiveDocument.Shapes(n).Height picwidth = ActiveDocument.Shapes(n).Width
ActiveDocument.Shapes(n).Height = picheight * 0.6 '设置高度为0.6倍 ActiveDocument.Shapes(n).Width = picwidth * 0.6 '设置宽度为0.6倍 Next n End Sub
Ⅱ 如何通过宏可以批量完成一个word中所有图片大小的修改并且让图片安排原来顺序排列
word文档批量处理大师有该功能，很好用，推荐
Ⅲ word2007裁剪和改变图片大小的宏，怎么批量修改，求大神修改下面宏代码，要求批量修改！！！！！
Sub 裁剪() '本操作批量裁剪图片
left_cut = 4.1 '左边裁剪的大小 单位厘米
right_cut = 1.2 '右
top_cut = 2.3 '上
bottom_cut = 2.4 '下
scales = 1 / 0.03528 ' 一磅等于0.03528厘米
Dim n '图片个数
'On Error Resume Next '忽略错误
For n = 1 To ActiveDocument.InlineShapes.Count 'InlineShapes类型图片
With ActiveDocument.InlineShapes(n).PictureFormat
origHeight = ActiveDocument.InlineShapes(n).Height
origWidth = ActiveDocument.InlineShapes(n).Width
.CropBottom = bottom_cut * scales
.CropLeft = left_cut * scales
.CropRight = right_cut * scales
.CropTop = top_cut * scales
End With
Next n
For n = 1 To ActiveDocument.Shapes.Count 'Shapes类型图片
With ActiveDocument.Shapes(n).PictureFormat
origHeight = ActiveDocument.Shapes(n).Height
origWidth = ActiveDocument.Shapes(n).Width
.CropBottom = bottom_cut * scales
.CropLeft = left_cut * scales
.CropRight = right_cut * scales
.CropTop = top_cut * scales
End With
Next n
End Sub
'*************************************
Sub Macro() ’改变图片大小，缩放不裁剪，批量操作
Mywidth=10'10为图片宽度（厘米）
Myheigth=10'10为图片高度（厘米）
For Each iShape In ActiveDocument.InlineShapes
iShape.Height = 28.345 * Myheigth
iShape.Width = 28.345 * Mywidth
Next iShape
End Sub
Ⅳ 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 j
End Sub
3、保存退出，点运行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 Then
ActiveDocument.InlineShapes(j).Width = 400 '设置宽度
End If
Next j
End Sub
Ⅵ word07如何用宏来更改粘贴图片的大小
粘贴完图片，只录制更改图片大小的步骤就可以得到宏代码
Ⅶ 用宏如何将word中图片大小改为大小为50% 谢谢
工具----宏----录制新宏。取个名字，按“键盘”图标，
在“请按新快捷键处”输入快捷键，点“指定”再点“关闭”
按键盘上 右边ctrl左边的一个键。这是鼠标右键的替代键。选“设置图片格式”--“大小”，选50%，确定，就可以了，再关上宏。
Ⅷ word 宏 批量修改图片大小 方向
旋转的代码！
ActiveDocument.InlineShapes(ActiveDocument.InlineShapes.Count).ConvertToShape
ActiveDocument.Shapes(Shapes.count).Rotation = 90‘顺时针旋转90度
Ⅸ word中怎样进行宏调整图片尺寸
word中进行宏调整图片尺寸方法详见：https://jingyan..com/article/0202781146c2a81bcc9ce5e8.html