插入图像时出现问题

Question

我想使用宏将本地图像插入某些单元格。 我已经创建了以下代码，但是它返回错误“无法获取Pictures Class的插入探测”。

我仍然是VBA的初学者，我正在尝试学习VBA，但不幸的是，我无法用此bug做太多事情。

这是我的代码：

    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