mac系统word图片太多,导致文件太大,自动压缩全部图片,word中剪裁图片如何删除多余部分

word中有时候图片放置过多,导致文件很大,这时候我们希望可以压缩文件,怎么自动压缩?
1、点击图片,出来图片格式选项,可以看到压缩图片选项。
在这里插入图片描述
2、可以选择图片分辨率,和删除剪裁图片多余部分。
在这里插入图片描述

  • 3
    点赞
  • 0
    收藏
    觉得还不错? 一键收藏
  • 0
    评论
在Excel VBA,可以使用以下代码来自动压缩删除、裁剪图片: 首先,如果要进行图片操作,需要在VBA编辑器启用Microsoft PowerPoint和Microsoft PowerPoint对象库。在VBA编辑器,点击"工具",然后选择"引用",勾选上"Microsoft PowerPoint"和"Microsoft PowerPoint对象库",然后点击"确定"。 下面是一个示例代码,将其放置在一个按钮的点击事件: ``` Sub AutoCompressDeleteCrop() Dim picture As Shape Dim slide As Slide Dim pptApp As PowerPoint.Application Dim pptPres As PowerPoint.Presentation ' 创建一个PowerPoint应用程序对象 Set pptApp = New PowerPoint.Application ' 创建一个新的演示文稿 Set pptPres = pptApp.Presentations.Add ' 循环处理活动工作表的所有图片 For Each picture In ActiveSheet.Shapes ' 将图片复制到PowerPoint演示文稿 Set slide = pptPres.Slides.Add(pptPres.Slides.Count + 1, ppLayoutBlank) picture.Copy slide.Shapes.Paste ' 压缩图片 slide.Shapes(slide.Shapes.Count).PictureFormat.Compression = 80 ' 删除原始图片 picture.Delete ' 裁剪图片 slide.Shapes(slide.Shapes.Count).PictureFormat.CropLeft = 10 slide.Shapes(slide.Shapes.Count).PictureFormat.CropTop = 10 slide.Shapes(slide.Shapes.Count).PictureFormat.CropRight = 10 slide.Shapes(slide.Shapes.Count).PictureFormat.CropBottom = 10 Next picture ' 显示PowerPoint应用程序窗口 pptApp.Visible = True ' 清空对象 Set pptApp = Nothing Set pptPres = Nothing End Sub ``` 这段代码将从活动工作表的每个图片进行以下操作: 1. 将图片复制到一个新的PowerPoint演示文稿。 2. 压缩图片的质量。 3. 删除原始的Excel图片。 4. 对图片进行裁剪。 请注意,这段代码假设只有图片对象在工作表。如果工作表还有其他对象,可能会引发错误。如果遇到此问题,您可以使用条件语句或循环语句来检查每个对象的类型,在必要时跳过非图片对象。

“相关推荐”对你有帮助么?

  • 非常没帮助
  • 没帮助
  • 一般
  • 有帮助
  • 非常有帮助
提交
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值