VBA 判断 Image1 控件是否有图片

您可以使用以下 VBA 代码来判断 Image1 控件是否有图片：

If IsNull(Me.Image1.Picture) Then
    ' Image1 控件没有图片
Else
    ' Image1 控件有图片
End If

该代码首先检查 Image1 控件的 Picture 属性是否为 Null。如果是，则说明该控件没有图片；否则，说明该控件有图片。您可以根据需要在代码中添加其他语句来处理这种情况。