首页
学习
活动
专区
圈层
工具
发布
首页
学习
活动
专区
圈层
工具
MCP广场
社区首页 >问答首页 >使用命令按钮将所有图片压缩到电子邮件大小像素(96)PPI

使用命令按钮将所有图片压缩到电子邮件大小像素(96)PPI
EN

Stack Overflow用户
提问于 2020-05-28 05:16:53
回答 1查看 428关注 0票数 0

我想压缩所有的图片在excel工作簿中的电子邮件大小像素96( ppi)使用以下代码的命令按钮。但是它不能压缩所有图片,.It只能压缩1张图片。

代码语言:javascript
运行
复制
Sub test()

    Dim wsh As Worksheet

    Set wsh = Worksheets("Sheet1")
    wsh.Activate
    wsh.Shapes(1).Select

    SendKeys "%e", True
    SendKeys "~", True
    Application.CommandBars.ExecuteMso "PicturesCompress"

End Sub
EN

回答 1

Stack Overflow用户

发布于 2020-05-28 06:34:18

尝试使用For Each循环遍历工作表中的所有形状:

代码语言:javascript
运行
复制
Sub test()

    Dim wsh As Worksheet
    Dim shp As Shape

    Set wsh = Worksheets("Sheet1")

    For Each shp In wsh.Shapes
        shp.Select
        SendKeys "%e", True
        SendKeys "~", True
        Application.CommandBars.ExecuteMso "PicturesCompress"
    Next shp

End Sub
票数 0
EN
页面原文内容由Stack Overflow提供。腾讯云小微IT领域专用引擎提供翻译支持
原文链接:

https://stackoverflow.com/questions/62053028

复制
相关文章

相似问题

领券
问题归档专栏文章快讯文章归档关键词归档开发者手册归档开发者手册 Section 归档