作者：乔山办公网日期：
返回目录：word文档
旋转百的我不会，但是调整大小的我可以给你度提供一个 ，你可以参考下面的代码
Sub t()
WordBasic.PageSetupMargins TopMargin:="0.3", BottomMargin:="0.3", LeftMargin:="0.3", RightMargin:="0.3"
Dim j '计数图片个数
For j = 1 To ActiveDocument.InlineShapes.Count '文件中图片总个内数，图片类型为容inlineshapes
If ActiveDocument.InlineShapes(j).Height > 14.5 * 28.346 Then
ActiveDocument.InlineShapes(j).Height = 14.5 * 28.346 '设置高度 14.5cm
End If
If ActiveDocument.InlineShapes(j).Width > 10.1 * 28.346 Then
ActiveDocument.InlineShapes(j).Width = 10.1 * 28.346 '设置宽度 10.1cm
End If
Next j
End Sub
a = Selection.ShapeRange.Count '获取选中的度图片数知
if a=10 then '选中10张运道行专本宏
For Each p In Selection.ShapeRange '也可以为属 Selection.InlineShapes p.Width = 100
p.Height = 100
Next
elseif a=8 then '选中8张运行本宏
For Each p In Selection.ShapeRange '也可以为 Selection.InlineShapes
p.Width = 80
p.Height = 80
Next
end if
方法/步骤
1
打开WORD，在”工具“菜单下选择”选项“命令。
2
在”选项“窗口中，在”编辑”选项卡下，将插入图片百的格式选择为“四周型”，为什么要这么操作，因为我们默认插入图片的方式是嵌入式，使用“选择多个对象”命令时无法选择。
3
在“插入”菜单中选择“图片”/“来自文件”
在“插入图片“对话框中选择要插入的图片。
在“绘图”工具栏中的“添加或删除按钮”中度选择“选中多个对象”
使用“选中多个对象”，将所有插入的图片全部选中。
双击任意一图片，在弹出的对话框中，将图片设置一固定尺寸内，并取消下方的”锁定纵横比“命令。
这个时候你会发现所有的图片都变成了统一尺寸大小了。
那么怎么样将这些图片导出来呢？在”文件“菜单中选择”另存容为“命令。
在”另存为“对话框中将保存类型设置为”网页“，最后点击”确定“按钮保存文件。
打开刚刚保存的文件，右击在弹出的菜单选择以”大小“进行排序。
大家可以发现，我们修改的后的图片都是相同的尺寸了。
其实保存的文件中有一个原图和修改尺寸后的图，我以大小进行排序的话可以很快速将他们分离出来。
方法/步骤
先打开存有图片的word
在打开的文档中，选择在“工具”菜单中选择“宏”e5a48de588b6e799bee5baa6e79fa5e98193365--“宏”
随后弹出“宏”对话框，在宏名中输入setpicsize
宏名起好了，单击“创建”按钮进入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 Sub
关闭入Visual Basic 编辑器，返回word，重新选择“工具”--“宏”--“宏”（或者直接按Alt+F8），再次进入宏的界面，在弹出的宏名中选择"setpicsize",最后点击“运行”---确认即可快速地批量修改word中所有图片大小，注意这里把图片大小都修改成Height = 400，Width = 300，这个规格大家可以需要改变的~~~~~~~~~~~，大小可以自己改下就行了