建站
咨詢
售后
建站咨詢
新聞中心
在使用VBA編寫程序時，有時需要調(diào)用Windows圖片查看器來查看圖片，下面是一個簡單的實現(xiàn)方法。
專注于為中小企業(yè)提供做網(wǎng)站、成都做網(wǎng)站服務(wù),電腦端+手機(jī)端+微信端的三站合一,更高效的管理,為中小企業(yè)岫巖免費做網(wǎng)站提供優(yōu)質(zhì)的服務(wù)。我們立足成都，凝聚了一批互聯(lián)網(wǎng)行業(yè)人才，有力地推動了上1000家企業(yè)的穩(wěn)健成長，幫助中小企業(yè)通過網(wǎng)站建設(shè)實現(xiàn)規(guī)模擴(kuò)充和轉(zhuǎn)變。
需要使用Shell函數(shù)來打開圖片查看器，Shell函數(shù)可以用來執(zhí)行外部程序，可以使用以下代碼來打開Windows圖片查看器：
```vb
Shell "C:\Program Files\Windows Photo Viewer\photoviewer.dll", vbNormalFocus
```
接下來，需要將要查看的圖片的路徑傳遞給圖片查看器，可以使用命令行參數(shù)來實現(xiàn)，可以在Shell函數(shù)中添加圖片路徑參數(shù)，如下所示：
Shell "C:\Program Files\Windows Photo Viewer\photoviewer.dll " & "C:\Users\UserName\Pictures\image.jpg", vbNormalFocus
在上述代碼中，使用了&符號將兩個字符串連接起來，以便將圖片路徑傳遞給Shell函數(shù)。
如果需要從VBA程序中獲取圖片的路徑，可以使用文件對話框來實現(xiàn)，可以使用以下代碼來打開一個文件對話框，以便用戶選擇要查看的圖片：
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方法來打開一個文件對話框，通過設(shè)置Filters屬性，可以限制用戶只能選擇指定類型的文件，如果用戶選擇了一個文件，則可以將該文件的路徑保存在一個變量中，以便后續(xù)傳遞給Windows圖片查看器。
使用VBA調(diào)用Windows圖片查看器的實現(xiàn)方法包括使用Shell函數(shù)打開圖片查看器，并將要查看的圖片的路徑傳遞給圖片查看器，如果需要從VBA程序中獲取圖片的路徑，可以使用文件對話框來實現(xiàn)，通過這些步驟，可以實現(xiàn)在VBA程序中調(diào)用Windows圖片查看器來查看圖片的功能。
當(dāng)前題目：vba調(diào)用windows圖片查看器?（vba打開圖片)
標(biāo)題來源：http://www.dlmjj.cn/article/cdjhccc.html
