wps中的图片怎么剪切?
时间:2022-08-03 13:55:32
wps中的图片怎么剪切?有网友发来问题,他有在wps里面有批量图片,要想调整到统一大小,该如何处理呢?其实这种问题,无外乎就两种思路了,第一就是手动,第二就是使用VBA了,如果想手动的话,其实还是挺麻烦的,你要先选择所有图片,然后再统一调整,但是在wps里面,要选中所有图片,就没有Excel那么方便了(此处略去……),我们采用的方法,是使用VBA来做,即使再多的图片,也在10秒钟内搞定;
导入图片
假设我们就导入这些图片了,大小嘛,有的相同, 有的不同,尺寸是各异的,我们的目标就是要调整到统一大小;可以在插入选项卡下面,批量导入,也可以单张导入,这个就看你自己的需要了;
设置大小
在wps中按Alt+F11,把下面的代码粘贴进去,然后按F5执行就可以了;(你可以修改代码中的15和9分别为你需要的尺寸即可)
Sub FormatPics()Dim Shap As InlineShapeFor Each Shap In ActiveDocument.InlineShapesIf Shap.Type = wdInlineShapePicture ThenShap.LockAspectRatio = msoFalse ‘不锁定纵横比Shap.Width = CentimetersToPoints(15) ‘宽15CMShap.Height = CentimetersToPoints(9) ‘高9CMEnd IfNextEnd Sub
标签:wps,WPS图片,wps图片怎么剪切,WPS
![](/images/zang.png)
![](/images/jiucuo.png)
猜你喜欢
excel显示第几页怎么设置
2022-06-28 00:52:13
![](https://img.aspxhome.com/file/2023/9/36199_0s.jpg)
Win10自定义开机启动项如何设置?
2023-11-25 01:07:04
![](https://img.aspxhome.com/file/2023/3/51033_0s.png)
2013excel表格密码如何设置
2023-02-10 09:46:40
excel表格在表格中呈现出2种图形的方法
2022-12-20 19:18:27
跨表排名其实很简单,一个RANK函数就搞定了
2022-08-23 20:45:01
![](https://img.aspxhome.com/file/2023/5/a156995_0s.png)
sgtool.exe损坏的图像系统错误怎么回事?sgtool.exe损坏的图像系统错误教程
2023-11-09 06:03:27
![](https://img.aspxhome.com/file/2023/7/47987_0s.jpg)
word2003更改最近使用的文件列表显示的数量
2023-04-29 00:27:27
![](https://img.aspxhome.com/file/2023/4/24524_0s.jpg)
图片文字转换成word教程
2023-12-06 15:21:31
![](https://img.aspxhome.com/file/2023/0/19910_0s.jpg)
在word文档中快速制作电子印章
2023-07-20 17:05:19
![](https://img.aspxhome.com/file/2023/7/24157_0s.jpg)
office如何快速搞定各类申报表的完美格式
2023-11-07 12:39:37
![](https://img.aspxhome.com/file/2023/5/16775_0s.jpg)
excel设置密码怎么取消
2022-03-18 06:12:52
Excel中进行合并所以标签页的操作方法
2022-08-01 03:56:28
sumif函数的使用方法及实例
2023-07-26 16:18:48
![](https://img.aspxhome.com/file/2023/5/a163435_0s.jpg)
学习三个常用函数,效率再高一丢丢
2022-10-01 18:36:53
![](https://img.aspxhome.com/file/2023/2/a156962_0s.png)
Word2016中怎么输入人民币符号?
2022-03-30 20:45:04
![](https://img.aspxhome.com/file/2023/3/25543_0s.jpg)
Word怎么给文字加双删除线?Word中添加双删除线的方法
2022-08-03 15:42:10
![](https://img.aspxhome.com/file/2023/2/30942_0s.png)
excel粘贴预览功能 使用技巧
2022-11-18 08:51:26
![](https://img.aspxhome.com/file/2023/1/a154681_0s.jpg)
Win10打印机驱动怎么下载?Win10安装打印机驱动教程
2023-11-14 18:50:14
![](https://img.aspxhome.com/file/2023/4/49354_0s.jpg)
Win10系统怎么关闭快速启动?Win10 1909快速启动关闭教程
2023-11-12 20:44:34
![](https://img.aspxhome.com/file/2023/0/48850_0s.jpg)
如何更改WPS文档属性?(图文教程)
2022-08-22 08:59:37
![](https://img.aspxhome.com/file/2023/9/a167119_0s.jpg)