VBA - 错误处理块

时间:2016-02-25 18:43:29

标签: vba error-handling runtime-error contentcontrol

我有一个将图片插入图片内容控件的子例程。图片的链接来自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

突出显示。

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

0 个答案:

没有答案