打开WORD,Alt+F8调出宏编辑窗口2、在宏名中填入名称，如名称为“调整图片大小”，然后点“创建“按钮，创建新宏，将以下内容复制填入：?
缩放图片大小Subsuofang()''''suofang宏''''DimnOnErrorResumeNextFor
n=1ToActiveDocument.InlineShapes.CountActiveDocument.InlineS
hapes(n).Height=ActiveDocument.InlineShapes(n).Height0.7Act
iveDocument.InlineShapes(n).Width=ActiveDocument.InlineShapes(n
).Width0.7NextnEndSub设置像素大小?Sub?调整图片大小()?''''?调整图片大小?宏''?Dim
?j?''计数图片个数?For?j?=?1?To?ActiveDocument.InlineShapes.Count?''文件中图片总
个数，图片类型为inlineshapes?ActiveDocument.InlineShapes(j).Height?=?328?
''设置高度（28.4像素/厘米）?ActiveDocument.InlineShapes(j).Width?=?457?''设置宽度
（28.4像素/厘米）?Next?j?End?Sub |
|
