我想压缩所有的图片在excel工作簿中的电子邮件大小像素96( ppi)使用以下代码的命令按钮。但是它不能压缩所有图片,.It只能压缩1张图片。
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
发布于 2020-05-28 06:34:18
尝试使用For Each
循环遍历工作表中的所有形状:
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
https://stackoverflow.com/questions/62053028
复制相似问题