使用Excel 2013和VBA插入图片时缺少对象

Question

我正在尝试将一个单元格从一张纸复制到另一张纸。普通的Textcells没有问题，但我有一个单元格，其中给出了图片链接。

我现在希望将该图片实际插入到新工作表而不仅仅是链接中。我尝试使用以下代码插入实际图片。

Sub exportGrafikToGib(sourceRow As Integer, sourceColumn As Integer, targetRange As String)

  Dim pathToPicture As String

  pathToPicture = Application.ActiveWorkbook.path

  Sheets("Gerüsteliste").Select
  Cells(sourceRow, sourceColumn).Select
  Application.CutCopyMode = False
  Selection.Copy
  pathToPicture = pathToPicture & Selection
  Sheets("GIB").Select
  ActiveSheet.Shapes.AddPicture pathToPicture, False, True, rw.Offset(0, -1).Left + 10, rw.Top + 3, 100, 105
End Sub

导致警告Object needed pathToPicture变量已正确设置为图片的路径。

我是VBA编程的新手，因此非常感谢任何指向正确方向的指针。

丹尼尔