我有一个将图片插入图片内容控件的子例程。图片的链接来自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
突出显示。
我是否正确实施错误处理?我是否需要在错误处理块中重新初始化某些内容?