永发信息网

WPS批量删除超级链接及自定义缩小图片

答案:2  悬赏:0  手机版
解决时间 2021-08-24 12:18
  • 提问者网友:我一贱你就笑
  • 2021-08-24 08:44

如题,WPS如何批量删除超级链接,我的做的表格里有很多的超级链接,这些链接全部是链接到我本地电脑的其他WPS表格里的数据。我做的是WPS文字表格,有好几百个超级链接,如果要手动删除,实在是太没效率了。

删除超级链接是目的是要将表格发送给客户,如果带超级链接发送,那么可能导致客户无法打开文件(客户不懂中文,很难交流)。

还有一个问题,就是如果自定义缩小图片。我表格里有图片,在发送给客户的时候,不能太大,Hotmail邮箱只能发送10M的附加,如果太小,客户看不清楚。请问如何自定义缩小表格中的所有图片,以达到合适的大小及满意的效果。

先谢过!

最佳答案
  • 五星知识达人网友:煞尾
  • 2021-08-24 09:39

批量删除的话可以这样:


1。按control+g    选择对象


2。按DEL  两步搞定了!


缩小图片问题:


首先要明白你将图片放到WPS表格里的时候图片大小就已经固定了,你在表格里把它放大或者缩小,都不影响他的大小,如果你要真正缩里面图片,只能把图片用其他软件压缩。没有什么好方法了

全部回答
  • 1楼网友:独行浪子会拥风
  • 2021-08-24 10:40
我没有WPS,以下方法在Word和Excel里测试过OK。由于WPS和OFFICE通用,因此下面有一组代码是有效的。 无论Word还是Excel,同时按Alt和F11进入宏界面,点菜单的插入,模块,粘贴如下代码之一: (Word的) Sub DelHyp() Dim xHyp As Hyperlink Dim xPic As InlineShape For Each xHyp In ThisDocument.Hyperlinks xHyp.Delete Next For Each xPic In ThisDocument.InlineShapes If xPic.Type = 3 Then xPic.LockAspectRatio = msoTrue xPic.Width = xPic.Width / 2 End If Next End Sub (Excel的) Sub DelHyp() Dim xHyp As Hyperlink Dim xPic As Shape For Each xHyp In ActiveSheet.Hyperlinks xHyp.Delete Next For Each xPic In ActiveSheet.Shapes If xPic.Type = 13 Then xPic.LockAspectRatio = msoTrue xPic.Width = xPic.Width / 2 End If Next End Sub 2表示图片的宽度/高度都为原来的1/2,可以自己按需修改。然后在宏界面直接按F5运行该宏,完成。
我要举报
如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息,可以点下面链接进行举报!
点此我要举报以上问答信息
大家都在看
推荐资讯