写论文需要批量统一图片格式?让我们打开word“宏”。
1.查看Word图片属性是像素(px)还是厘米(cm)
如果是厘米,可以参考步骤二设置。如果是像素,跳转到步骤三开始coding。
(当然是cm也不影响,像素更方便)
2.将Word图片显示方式修改为像素
3.在宏这里开始coding
3.1选择“视图”中的“宏”
3.2创建宏并命名为setFigSize
3.3编辑宏
Sub setFigSize()
'
' setFigSize 宏
'
'
Weight = 1701 '设置的图片宽度
Height = 900 '设置的图像高度
On Error Resume Next '忽略错误
For i = 1 To ActiveDocument.InlineShapes.Count 'InlineShapes类型图片
ActiveDocument.InlineShapes(i).Height = Height '设置图片高度为 Height_px
ActiveDocument.InlineShapes(i).Width = Weight '设置图片宽度 Weight_px
Next i
For i = 1 To ActiveDocument.Shapes.Count 'Shapes类型图片
ActiveDocument.Shapes(i).Height = Height '设置图片高度为 Height_px
ActiveDocument.Shapes(i).Width = Weight '设置图片宽度 Weight_px
Next i
End Sub
3.4 关闭编辑界面,运行宏
okk!