Сожмите все изображения до размера электронной почты (96) ppi с помощью кнопки управления

Question

Я использую следующий код для сжатия всех изображений в листе Excel до размера электронной почты с разрешением 96 пикселей на дюйм. Я думаю, что в первый раз не работает сжатие вставленных изображений. Я сохранил лист 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