VBA - 错误处理块

Question

我有一个将图片插入图片内容控件的子例程。图片的链接来自excel电子表格。

这是我的代码：

Private Sub insertPic(wb As Excel.Workbook)
    Dim cc As ContentControl

    For Each cc In ActiveDocument.ContentControls
        If cc.Tag Like "data*" Then
            cc.Range.InlineShapes(1).Delete
            On Error GoTo noPic:
            cc.Range.InlineShapes.AddPicture _
              FileName:=wb.Names(cc.Tag).RefersToRange.Hyperlinks(1).Address, _
                Range:=cc.Range
            cc.Range.InlineShapes(1).LockAspectRatio = msoTrue
            cc.Range.InlineShapes(1).Height = InchesToPoints(3.8)
        End If
    Next

noPic:
    cc.Range.InlineShapes.AddPicture _
                FileName:="C:\Users\user\Documents\Error No Pic.jpg", _
                Range:=cc.Range
Resume Next

End Sub

此代码按预期执行，包括错误处理，但在最后一个cc我得到“运行时错误'91'：对象变量或没有设置块变量”消息。当我去调试时，行

cc.Range.InlineShapes.AddPicture _
                    FileName:="C:\Users\user\Documents\Error No Pic.jpg", _
                    Range:=cc.Range

突出显示。

我是否正确实施错误处理？我是否需要在错误处理块中重新初始化某些内容？