Проблемы со вставкой изображения

Question

Я хотел бы использовать макрос для вставки локального изображения в определенные ячейки. Я уже создал следующий код, но он возвращает ошибку «Невозможно получить пробное вставление класса изображений».

Я все еще начинающий VBA, и я пытаюсь изучать VBA, и, к сожалению, я не могу сделать так много с этой ошибкой.

Это мой код:

    Dim Pic As Picture
    Dim PicPath As String
    Dim ImageCell As Range

    PicPath = "C:\Users\username\AppData\Roaming\Microsoft\Excel\streifen.jpg"

    Set ImageCell = Worksheets("Manual").Range("C49:E49")
    Set Pic = ActiveSheet.Pictures.Insert(PicPath)

    With Pic
        .ShapeRange.LockAspectRatio = msoFalse
        .Left = ImageCell.Left
        .Top = ImageCell.Top
        .Width = ImageCell.Width
        .Height = ImageCell.Height
    End With