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