压缩word宏
- 作者: 段子只要好丶搬来又何妨
- 来源: 51数据库
- 2020-06-05
1. word里面怎么压缩全部图片
工具：电脑、word2016。
1、打开电脑，打开桌面上的word2016。
2、导入两张图片或多张图片。
3、点击界面上的【图片工具】，再点击【格式】。
4、在当前界面，点击界面左边的的【压缩图片】。
5、将【仅用于此图片】前面的方块取消勾选，最后点击【确定】即可。
2. WORD用宏按比例缩放单个图片
我喜欢VB，自购了一本入门教程，现在入门水平而已，刚编了（如下）一宏“
Dim h!, w!
h = Selection.InlineShapes(1).Height
w = Selection.InlineShapes(1).Width
Selection.InlineShapes(1).Height = h * 0.87
Selection.InlineShapes(1).Width = w * 0.87
End Sub
”试验解决你的要求：选折目标图片，执行此宏结果是将图片的长/宽度皆调整为87%。（原图及执行结果如图）
【提示：你录制此宏时为其定义一快捷键如“Ctrl”+“m”，这样操作时方便，点击某目标图，按快捷键（“Ctrl”+“m”），则图片调整长/宽度为87%。】
3. word文档怎么压缩图片
word中添加很多图片会使wor文件的大小变得很大，比如在一个word中添加了10张图片，每个文件大小1M多，word文件的大小就是10兆左右。一个word文件十兆左右，非常不利于数据共享，尤其是在公司内有OA办公自动化的情况下，如何将word内图片的大小进行压缩呢，使一个word文档的大小小于1兆呢？下面我们进行一下讲解。
工具/原料
word软件---wps2013
图片10张
方法/步骤
新建一个word文件，打开。
点击菜单栏“插入”---图片---来自文件。
将选定的10张图片添加到word中。
插入后的文件如下，将word文件保存。
查看word文件的大小。word文件的大小为24.1M。
打开word文件。选中其中的任意一张图片，点击右键。选择“设置对象格式”。
切换到“图片”选项卡，点击“压缩”按钮。
选择应用于“文档中的所有图片”，更改分辨率为“网页/屏幕”，点击“确定”。然后在“图片”选项卡点击“确定”。
将word文件保存，查看word文件的大小。查看后文件大小为368K。
步骤阅读
通过以上操作，将插入到word文件中的图片进行了压缩，这样就便于与别人共享数据和文档了。
4. 如何压缩WORD中的图片
word2003中批量压缩图片文件的方法
一、选中任一图片文件。
二、左键双击图片，弹出“图片设置格式”对话框，左键单击左下方的“压缩”按钮。
三、在弹出的“压缩图片”对话框中
1.选中“应用于”下面的“文档中的所有图片（A）”;
2.选中“更改分辨率”下面的“打印（P）”（或Web/屏幕（W）;
3.选中“选项”下面的“压缩图片（C）”和“删除图片的剪裁区域（E）”
4.确定。
四、在弹出的“压缩图片”询问框中左击“应用（A）”按钮。
经过上面的操作，我们就可以对整个word文档进行瘦身。
5. word宏操作处理图片
word2007以上版本使用docm格式可以保存宏，保存的时候选择类型为“带宏的word文档”就可以了，不用向下兼容。
不用VBA是无法实现这一功能的，实际上宏只是用代码记录下操作便于重复使用，其实质与作法与VBA没有什么区别。不过，VBA是人工编写代码，宏是自动编写代码而已。
创建宏：
1、创建新宏。点击工具“开发工具”里的分组“代码”里的“宏”命令代码，在弹出的“宏”对话窗里的“宏名称”下面的文本框里输入宏名称（这里输入“CropPicture”），选择“宏的位置”为当前的文档。最后，点击“创建”命令按钮，会弹出VBA的IDE环境，里面已经给出CropPicture程序的程序头尾。如下：
Sub CropPicture()
'
' CropPicture 宏
'
'
End Sub
2、添加代码
把下面代码里的Sub CropPicture（)与End Sub之间的代码粘贴到上面提到的代码之间或者直接用下面的代码覆盖上面提到的代码。
'剪切图片
Sub CropPicture()
Dim shps As InlineShapes, shp As InlineShape
Set shps = ActiveDocument.InlineShapes
'左、右、顶、底边各剪切20磅，根据需要修改就行了。
For Each shp In shps
With shp.PictureFormat
.CropLeft = 20
.CropRight = 20
.CropTop = 20
.CropBottom = 20
End With
Next
End Sub
添加热键
点击word文档左上角的Office按钮（logo图标），执行弹出菜单里的“word选项”，会弹出一个对话窗。
在弹出的对话窗里点击左侧导航条“自定义”，点击右侧设置项里的“键盘快捷方式”右侧的“自定义”命令按钮，会弹出“自定义键盘”对话窗。
将“指定命令”的类型选择为“宏”，选择“将更改保存在”右侧的下拉列表，选择为你正在编辑的文档。这时，“宏”列表里会显示当前文档里的所有宏，我们选择“CropPicture”，然后将光标移入“新按新快捷键”文本框，按下“Ctrl+Q”键，点击“指定”命令按钮退出，即可。
调用
按键盘键^q，就可以直接调用宏“CropPicture”，帮你把当前文档里的所有图片向内剪切40磅了。
6. world里如何压缩图片
word压缩图片最好用的方法是：
1. 打开word文档，按下F12，将word另存为；
2. 在弹出来的窗口中，右下点击保存按键的边上有个工具按键；
3. 点击打开里面工具按键，选择选项“压缩图片”，然后选择你需要分辨率（2013以下无此选项）；
4. 点击保存。
通过以上的操作，可以将原本加了图片后几十mb的文件压缩成几百kb，效果相当好，而且在word里面放大缩小图片，图片仍然保持原分辨率。此外还可以选择一下方法达到稍差的效果：通过截图软件将原本分辨率高的图片转成分辨率低的图片，插入word中，但是图片的分辨率极低。
