1. word怎样批量处理图片大小啊
使用VBA:
Dim i
On Error Resume Next
For i=1 To ActiveDocument.InlineShapes.Count
ActiveDocument.InlineShapes(i).Height=300 '修改为自己需要的值
ActiveDocument.InlineShapes(i).Width=200 '修改为自己需要的值
Next
For i=1 To ActiveDocument.Shapes.Count
ActiveDocument.Shapes(i).Height=300 '修改为自己需要的值
ActiveDocument.Shapes(i).Width=200 '修改为自己需要的值
Next
2. 如何批量处理Word中的图片大小
用宏批量定位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 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
3. 如何在word中批量处理图片
如何批量处理Word中的图片大小
用宏批量定位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 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
4. word中如何将大量图片批处理统一的尺寸大小
选择工具——宏——宏(Alt+F8调出宏编辑窗口),输入宏名——(非数字)——创建;
在Sub 宏名()与End Sub之间编写如下代码:(之后单击运行即可)
Dim n '图片个数
On Error Resume Next '忽略错误
For n = 1 To ActiveDocument.InlineShapes.Count 'InlineShapes类型图片
ActiveDocument.InlineShapes(n).Height = 99 '设置图片高度为 99px
ActiveDocument.InlineShapes(n).Width = 71 '设置图片宽度 71px
Next n
For n = 1 To ActiveDocument.Shapes.Count 'Shapes类型图片
ActiveDocument.Shapes(n).Height = 99 '设置图片高度为 99px
ActiveDocument.Shapes(n).Width = 71 '设置图片宽度 71px
Next n
5. word中批处理图片大小
Sub 统一图片尺寸() Dim n '图片个数On Error Resume Next '忽略错误For n = 1 To ActiveDocument.InlineShapes.Count 'InlineShapes类型图片ActiveDocument.InlineShapes(n).Height = CentimetersToPoints(4) '高度4cmActiveDocument.InlineShapes(n).Width = CentimetersToPoints(3) '宽度3cmNext nFor n = 1 To ActiveDocument.Shapes.Count 'Shapes类型图片ActiveDocument.Shapes(n).Height = CentimetersToPoints(4) '高度4cmActiveDocument.Shapes(n).Width = CentimetersToPoints(3) '宽度3cmNext nEnd Sub以上是统一图片大小的宏代码希望你能用得上。
ps:代码中的图片尺寸可以根据需要进行修改。
转载请注明出处51数据库 » word里如何批量处理的大小