word2007裁剪和改变图片大小的宏,怎么批量修改,求大神修改下面宏代码...

发布网友 发布时间：2022-04-30 11:49

我来回答

共2个回答

热心网友 时间：2022-05-20 11:42

用WORD的宏功能可以实现这一功能。宏是一系列Word命令和指令，这些命令和指令组合在一起，形成了一个单独的命令，以实现任务执行的自动化。首先，单击选定一张要改变尺寸的图片，并且勾选“视图/工具栏/图片”。然后执行：“工具（菜单）/宏/录制新宏”命令。在弹出的对话框中，选择将宏保存在“工具栏”，然后在弹出的“命令”选项卡中，将新建的宏命令拖到工具栏上松开（工具栏上会出现宏命令按钮），点击“关闭”，会出现一个录制宏的工具条，这时就可以录制宏了。点击图片工具栏“设置图片格式”按钮，出现“设置图片格式对话框”，点“大小”选项卡，设置好图片的尺寸。再点“工具（菜单）/宏/停止录制”命令宏就录制好了。用的时候，单击选定图片，再点拖放到工具栏中宏命令就可以了。

热心网友 时间：2022-05-20 13:00

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