VBA 如果找不到文件

Question

我不常使用 VBA。我有一些代码:

If Target.Address = "$H$1" Then
    Range("A13").Comment.Shape.Fill.UserPicture Range("H2").Value
End If

简单。根据单元格 A13 中的标准更改注释 BG 图像，插入由 H2 生成的文件/路径。然而...

有时 H2 中的文件/路径不存在(因为 H2 是根据用户输入/选择创建的)。

我已经尝试过这个:

If Target.Address = "$H$1" Then
    Range("A13").Comment.Shape.Fill.UserPicture Range("H2").Value
Else
    Range("A13").Comment.Shape.Fill.UserPicture Range("H6").Value
End If

其中 H6 是另一个生成的“NOIMAGE.jpg”文件/路径，对于任何没有关联图像的条目来说，这将是一个常量。它也不喜欢那样。

在该方法尝试运行/查找 H2 中的内容之前，我找不到可以执行所需操作的 else 表达式。

想法？

Answer 1

试试这个

If Target.Address = "$H$1" Then
    On Error Resume Next
    Range("A13").Comment.Shape.Fill.UserPicture Range("H2").Value
    If Err.Number <> 0 Then
        Range("A13").Comment.Shape.Fill.UserPicture Range("H6").Value
    End If
    On Error GoTo 0

End If