Question

如何自动调整复制到word中的图片的大小和格式

我有很多图片要复制到word中，如何让它自动调整为原始大小的46%（或高=4.20，宽=7.73），原始大小都一样大。并且图片格式自动改为“紧密型”。由于数量多，不想一个个改，请问有什么好方法么？

Answer 1

1.打开WORD，在”工具“菜单下选择”选项“命令。

2.在”选项“窗口中，在”编辑”选项卡下，将插入图片的格式选择为“四周型”,因为默认插入图片的方式是嵌入式，使用“选择多个对象”命令时无法选择。

3.在“插入”菜单中选择“图片”/“来自文件”

4.在“插入图片“对话框中选择要插入的图片。

5.在“绘图”工具栏中的“添加或删除按钮”中选择“选中多个对象”

6.使用“选中多个对象”，将所有插入的图片全部选中。

7.双击任意一图片，在弹出的对话框中，将图片设置一固定尺寸，并取消下方的”锁定纵横比“命令。

8.这个时候会发现所有的图片都变成了统一尺寸大小了。

Answer 2

在【视图】——【图片工具】处可以统一更改图片的大小，具体的操作步骤如下：

所需材料：电脑、Word

1、先把目标文档全部复制到空白文档中，然后在工具栏处选择【视图】

2、然后选中复制过来的全部图片，选中之后就可以看到工具栏处多了一个【图片工具】的字样，单击一下进入设置。

3、然后单击右上角的【宽度/高度】下面的隐藏箭头，将【锁定纵横比】选项取消，最后点击【关闭】保存设置。

4、然后再返回【宽度/高度】处填写自己需要的图片尺寸即可。

Answer 3

网上帮你找的答案：
用宏可以轻松完成：
Sub FormatPics()
Dim iSha As InlineShape
For Each iSha In ActiveDocument.InlineShapes
If iSha.Type = wdInlineShapePicture Then
iSha.LockAspectRatio = msoFalse '不锁定纵横比
iSha.Width = CentimetersToPoints(5) '宽5CM
iSha.Height = CentimetersToPoints(5) '高5CM
End If
Next
End Sub

Answer 4

VCXVCVCVC百度地图

本数据来源于百度地图，最终结果以百度地图最新数据为准。

Answer 5