Word小技巧:图片批量裁剪与大小调整
目录
摘要:... 1
宏的使用方法:... 1
代码部分:... 2
代码1:按照第一张图片的尺寸对文档内所有图片进行修改... 2
代码2:按照给定像素批量裁剪文档内所有图片.. 3
结语:... 4
摘要:
本篇文章利用Word自带的宏,帮助有需要的朋友解决Word图片排版问题。只包含两项简单功能,代码1:按照第一张图片的尺寸对文档内所有图片进行修改;代码2:按照给定像素批量裁剪文档内所有图片。
宏的使用方法:
在视图菜单栏中的倒数第二个选项卡可以找到“宏”命令,当然,直接在搜索框搜索也是可以的。
单击下拉箭头→查看宏,进入宏选项卡
在宏名下方一栏为你的宏起个名字,单击创建即可。
注意:在Word已有宏命令的状态下,宏名一栏会自动显示已有宏命令的名称,若不进行更改,会弹出如下提示框,点击“是”会覆盖原有宏文件,“否”则无法创建。
所以为新宏起个名字是很重要的。
成功创建后会进入如下界面:
把你要用的代码粘贴在sub宏()与End Sub之间,然后关闭这个页面就可以。
如代码1的粘贴结果:
是的,你没看错,直接关闭就好,宏文件具有自我保存功能,每一个对代码的修改都会实时编译,你完全不需要担心保存问题。
再次打开宏选项卡,选中你要执行的宏,单击运行,了事儿!
代码部分:
代码1:按照第一张图片的尺寸对文档内所有图片进行修改
可以直接复制使用
Dim n
n = 1
Dim picwidth
Dim picheight
picheight = ActiveDocument.InlineShapes(n).Height '获取第一张图片高
picwidth = ActiveDocument.InlineShapes(n).Width '获取第一张图片宽
On Error Resume Next '忽略错误
For Each iShape In ActiveDocument.InlineShapes '循环
iShape.Height = picheight * 1 '设置高度为1倍
iShape.Width = picwidth * 1 '设置宽度为1倍
Next iShape
代码2:按照给定像素批量裁剪文档内所有图片
注意:此处代码在使用前需要做微量修改
修改裁剪像素量
For Each iShape In ActiveDocument.InlineShapes
With iShape.PictureFormat
.CropTop = 0 '顶部裁剪像素量
.CropBottom = 54 '底部裁剪像素量
.CropLeft = 0 '左侧裁剪像素量
.CropRight = 0 '右侧裁剪像素量
End With
Next iShape
那么问题来了,我从哪儿获取这些参量?
很简单,随便打开一张图片,查看更多信息,其中会有尺寸条目,做某一方向上的裁剪后,再次查看,两者的差值就是该方向上的裁剪像素量。
如我这里,我做了底部裁剪,1080-1026=54,于是除了底部设置为54外,其他均为0。
结语:
1.使用python等脚本或现有程序可以轻易的完成裁剪任务。
2.个人实践证明,录制宏无法录制针对图片的大小修改、裁剪等操作。
3.编写过程中一直在尝试代码2的一键式操作,如根据第二张图片与第一张图片的像素差来完成其他所有图片的裁剪,结果证明不可行,其中存在我两个无法解决的问题。
第一,word自带裁剪功能执行后,图片会产生Y轴位置偏移,使用宏无法获取并精确计算偏移后的正确裁剪量;裁剪结果与预期结果存在较大误差。
第二,宏裁剪依赖的是对指定方向上像素量差的精确计算,在所有方向同时发生裁剪的情况下,缺少参照物,无法准备配对像素量与裁剪方向。
欢迎大家反馈问题或不吝赐教。
lian.lone@foxmail.com
Word小技巧:图片批量裁剪与大小调整相关推荐
- 计算机办公软件的使用技巧,实用的Word小技巧集锦(1)办公软件知识 -电脑资料
一,把文字替换成图片 首先把图片复制到 剪贴板中,然后打开替换对话框,在"查找内容"框中输入将被替换的文字,接着在"替换为"框中输入"^c" ...
- 给图片加一层半透明_PPT小技巧——图片的处理
我们平时在制作PPT的过程中,使用最多的就是图片,有一句话说得好:"字不如表,表不如图".下面就来跟大家说一说PPT中图片使用处理的小技巧. (1)裁剪 裁剪是我们日常处理图片最常 ...
- 波浪下划线怎么设置_波浪线符号(word小技巧)
波浪线符号(word小技巧)今天跟大家分享的是在word中输入一些特殊符号的用法,首先是一个常规符号的快捷键,小编利用了自己很拙劣的抠图技术将这21个符号键制作出来了,高手务笑! 需要注意的是如果在E ...
- matplotlib显示图片与图片批量裁剪
1.显示图片 import matplotlib.pyplot as plt # plt 用于显示图片 import matplotlib.image as mpimg # mpimg 用于读取图片 ...
- 这个方法,可以实现图片批量裁剪尺寸
大家在日常的生活或工作中,有没有遇到需要将大量图片进行裁剪的情况?一般面对这种难题,你们是选择如何去应对的呢?估计有大部分小伙伴选择最传统的方法,就是对图片一张一张的进行手动修改,但这也太费时费力了! ...
- 图像处理小技巧-图片切割
深度学习 图像处理 ... 图像处理小技巧-图片切割 深度学习 前言 一.介绍 二.使用python实现 2.1 导入库 2.2 全部程序 总结 前言 基于olivettifaces数据集 githu ...
- 计算机删除文档中所有的空行,Word查找技巧:批量删除文档中空格、空行
原标题:Word查找技巧:批量删除文档中空格.空行 在日常工作中我们经常会碰到以下2个困扰: 如,很多网上下载或拷贝到Word的纯文本形式的资料,最烦的莫过于文档中有一大堆空格或空行(回车符),格式非 ...
- 办公技巧:分享12个实用的word小技巧,欢迎收藏!
今天给大家分享12个实用的word小技巧,希望对大家能有所帮助! 1. Word表格自动填充序号 在Word表格里选中要填入相同内容的单元格,单击"格式→项目符号和编号",进入&q ...
- word域变成正常文本_【Word小技巧】不学会后悔哦~
工作中使用Word早已成了习惯,因此,今天小编将为大家分享几个实用的的Word小技巧. 重叠字快速录入 文字录入是word最基本操作,过程中我们难免要输入重叠字,例如:热热闹闹,卿卿我我等--你知道如 ...
- word如何一键全选_学会这七个Word小技巧,五分钟完成3小时的工作
在办公中我们最常用的就是Word,而掌握一些常用Word小技巧,可以助力我们的办公效率,从此和加班说拜拜.今天就让我们一起来看看有哪些我们常用的Word小技巧,快点赞收藏起来吧~ 一. Word小技巧 ...
最新文章
- GPU加速库AmgX
- Linux下的sed命令使用详解
- 北交大计算机学院教授,北京交通大学计算机与信息技术学院研究生导师:鲁凌云...
- 主成分分析(PCA)算法,K-L变换 角度
- (三)java版spring cloud+spring boot 社交电子商务平台 - Spring Cloud集成项目简介
- android开发,assets下面的资源文件不会变化/改动
- H.264 AVC 编解码标准
- Excel生成指定范围内随机数
- 服务器文档分类,服务器的分类
- wxpython wx.Destroy()和wx.Close()区别
- 第四章,java swtch语句
- 受汉城改名鼓舞,世界各地掀起改名热潮,尤其是那个小日本(笑话)
- 苹果开放降级_为什么不开放 iOS 降级验证通道?
- 求求你了,不要再浪费抗原了!!!
- catalog start with
- C语言:输入起始日期与截至日期,计算相距天数。
- 专业外卖CPS返利系统-专业外卖CPS返利系统-外卖返利系统-美团饿了么返利系统
- 基于ssh学生请假管理系统
- jms规范以及activeMq相关介绍
- 持续编程--切身体会