VBA导入图片

Question

我在Mac上使用Excel 2011制作了一个工具但是当我想在带有Excel 2013的Windows上尝试该工具时出现错误。

我正在导入特定单元格中的图片，但错误是：Unable to get the Insert property of the Picture class在此行：Set Pic = .Parent.Pictures.Insert(.Value)

Sub Procedure4()
Dim Pic As Picture
Application.ScreenUpdating = False
With ActiveSheet.Range("J5")
    Set Pic = .Parent.Pictures.Insert(.Value)
    With .Offset(2, -3)
        Pic.Top = .Top
        Pic.Left = .Left
        Pic.Height = .Height * 3
        Pic.Width = .Width * 3
    End With
End With
Application.ScreenUpdating = True
End Sub

Excel 2013不再支持这个或者有什么问题吗？