防止在VBA Application.FollowHyperlink之后打开图片

时间:2018-03-13 19:06:42

标签: vba ms-access

我在本地网络中使用MS Access应用程序,此应用程序具有显示数据的表单,表单中的一个功能是打开有关表单中数据的图片文件。 我的问题有时是在浏览器中打开图片而不是默认的照片查看器。也许这个问题与“Windows Registery”有关,但我不确定。这是我打开照片的代码:

Public Sub OpenPicture(PictureName As Variant)
    If PictureName <> "" Then
        DoCmd.SetWarnings False            
        Dim iPath , filePath As String
        iPath = "C:\photo\"
        filePath = iPath & PictureName 
        Application.FollowHyperlink filePath
        DoCmd.SetWarnings True
    End If
End Sub

在上面的代码中,PictureName是DataForm中图像的名称。我应该提到有用于在DataForm中显示图片的图像控件,但这些控件很小。我的目的是在其他程序中裁剪或旋转这些图片。 请帮我防止在浏览器中打开图像。提前谢谢。

0 个答案:

没有答案