vba 调用windows 图片查看器?（vba打开图片)

在使用VBA编写程序时，有时需要调用Windows图片查看器来查看图片，下面是一个简单的实现方法。

需要使用Shell函数来打开图片查看器，Shell函数可以用来执行外部程序，可以使用以下代码来打开Windows图片查看器：

```vb

Shell "C:\Program Files\Windows Photo Viewer\photoviewer.dll", vbNormalFocus

```

接下来，需要将要查看的图片的路径传递给图片查看器，可以使用命令行参数来实现，可以在Shell函数中添加图片路径参数，如下所示：

Shell "C:\Program Files\Windows Photo Viewer\photoviewer.dll " & "C:\Users\UserName\Pictures\image.jpg", vbNormalFocus

在上述代码中，使用了&符号将两个字符串连接起来，以便将图片路径传递给Shell函数。

如果需要从VBA程序中获取图片的路径，可以使用文件对话框来实现，可以使用以下代码来打开一个文件对话框，以便用户选择要查看的图片：

Dim strFilePath As String

With Application.FileDialog(msoFileDialogFilePicker)

.Title = "请选择要查看的图片"

.Filters.Clear

.Filters.Add "图片文件", "*.jpg; *.jpeg; *.png; *.bmp", 1

If .Show = -1 Then

strFilePath = .SelectedItems(1)

Else

Exit Sub

End If

End With

在上述代码中，使用了Application.FileDialog方法来打开一个文件对话框，通过设置Filters属性，可以限制用户只能选择指定类型的文件，如果用户选择了一个文件，则可以将该文件的路径保存在一个变量中，以便后续传递给Windows图片查看器。

使用VBA调用Windows图片查看器的实现方法包括使用Shell函数打开图片查看器，并将要查看的图片的路径传递给图片查看器，如果需要从VBA程序中获取图片的路径，可以使用文件对话框来实现，通过这些步骤，可以实现在VBA程序中调用Windows图片查看器来查看图片的功能。