Word 统一修改 Mathtype尺寸 
 
  
 
 
 
先运行MathType，点击“Size”菜单中的“Define”命令：
 
 

 
 
 
 
打开“Define Sizes”对话框，我们可以在“Full”后的输入框中要调整的字号大小。公式中其它的元素会自动进行相应的调整的，所以一般情况下可以不做其它改动。点击“OK”按钮，关闭对话框。
 
 

 
 
 
 
再点击“Preferences”菜单中的“Equation Preferences→Save to File”命令，将我们设置好的选项保存成一个后缀名为“eqp”的文件。
 
 

 
 
 
 
现在回到Word环境中，“MathType”-->“Format Equations”-->“MathType preference file”，并点击“Browse”按钮，找到我们保存好的那个eqp文件并双击。然后再选中下方“Range”项目中“Whole document”单选项。点击“OK”按钮后稍候片刻，就可以看到所有的公式都按指定的字号调整完成了。
 
 

 
 

 
1. 首先手动拖拽将图片调到需要的格式，点击图片在格式选项中查看图片的宽高
 
 
 
 
 2. 视图中点击宏新建
 
 
 
 
3. 编辑框中输入以下代码并保存，由于我只需要统一宽度，所以将统一高度的代码注释
 
 
 
  
Sub 图片格式统一()
'
' 图片格式统一 宏
'
'

'Myheigth = 12
Mywidth = 14
On Error Resume Next '忽略错误
For Each iShape In ActiveDocument.InlineShapes
'iShape.Height = 28.345 * Myheigth '设置图片高度为任意cm
iShape.Width = 28.345 * Mywidth '设置图片宽度
Next
For Each Shape In ActiveDocument.Shapes
'Shape.Height = 28.345 * Myheigth '设置图片高度为任意cm
Shape.Width = 28.345 * Mywidth '设置图片宽度
Next

End Sub
 
 
 
 
4. 回到宏界面，运行，done。
 
 
 
 
转载于:https://www.cnblogs.com/zjfjava/p/8855557.html

ALT+F8运行宏
 
 
 
输入如下代码
 
Sub setpicsize() '设置图片大小

Dim n '图片个数

On Error Resume Next '忽略错误

For n = 1 To ActiveDocument.InlineShapes.Count 'InlineShapes类型图片

ActiveDocument.InlineShapes(n).Height = 350 '设置图片高度为 400px

ActiveDocument.InlineShapes(n).Width = 450 '设置图片宽度 130px

Next n

For n = 1 To ActiveDocument.Shapes.Count 'Shapes类型图片

ActiveDocument.Shapes(n).Height = 350 '设置图片高度为 400px

ActiveDocument.Shapes(n).Width = 450 '设置图片宽度 130px

Next n

End Sub

 
运行结束后的word图片格式
 

Sub 统一图片尺寸()
 '仅适用于嵌入式图片
     Dim oInlineShape As InlineShape
     For Each oInlineShape In ActiveDocument.InlineShapes
         With oInlineShape
             .LockAspectRatio = msoTrue    '不锁定纵横比
            .ScaleHeight = 100
            .ScaleWidth = 100
         End With
     Next
 End Sub
 
 
 
 
 

 Sub set100() 
 
 Dim j As Long  '计数图片个数 
 
 For j = 1 To ActiveDocument.InlineShapes.Count '文件中图片总个数，图片类型为inlineshapes 
 
 ActiveDocument.InlineShapes(j).ScaleHeight = 100 '设置高度显示比例 
 
 ActiveDocument.InlineShapes(j).ScaleWidth = 100  '设置宽度显示比例 
 
 Next j 
 
 End Sub