在将文件夹中的图像复制到word中时发现,图像右侧显示不全,需要对图像尺寸进行设置
1、直接按【Alt+F8】打开 “宏”对话框,在“宏名”文本框中输入宏名称"setpicsize",然后点击“创建”按钮。
2、将下面的代码复制粘贴到窗口中。
Sub setpicsize() '设置图片尺寸
Dim n '图片个数
On Error Resume Next '忽略错误
For n = 1 To ActiveDocument.InlineShapes.Count 'InlineShapes 类型 图片
ActiveDocument.InlineShapes(n).Height = 198.45 '设置图片高度为 7cm
ActiveDocument.InlineShapes(n).Width = 283.5 '设置图片宽度 10cm
Next n
End Sub
3、然后按【Ctrl + S 】键保存内容,关闭窗口。再次按【ALT + F8】打开 “宏”对话框查看宏,点击“运行”按钮。此时,文档中的所有图片就会自动的变成设置好的尺寸大小了
4、如果图片的高度还是不一样,这是由于勾选了“锁定纵横比”复选框(是Word为了调整图片尺寸时,为保持图片不变形而默认勾选的选项)。
在图片上右击鼠标,选择“大小和位置”命令,在打开的对话框中取消勾选““锁定纵横比”复选框。然后运行宏,此时,所有图片的高度和宽度就统一了。