excel - 使用命令按钮将所有图片压缩为电子邮件大小 (96)ppi

Question

我使用以下代码将 excel 表中的所有图片压缩为电子邮件大小 96 ppi 分辨率。我认为第一次压缩插入的图片似乎不起作用。我保存了 xl 表并再次打开命令按钮代码有效并压缩图片。为什么插入图片后代码不起作用。它可以在关闭文件并重新打开时间后工作。请为我的问题提出建议。

Private Sub CommandButton1_Click()
Dim wsh As Worksheet
    Dim shp As Shape

    Set wsh = Worksheets("Photo")
    wsh.Activate
    For Each shp In wsh.Shapes
     shp.Select

        SendKeys "%e", True
        SendKeys "~", True
        Application.CommandBars.ExecuteMso "PicturesCompress"
    Next shp
End Sub

标签： excelvba