VBA 通过Windows照片查看器打开和关闭图片文件

Gaudi34

各位老师好，如何使用VBA通过Windows照片查看器打开和关闭指定路径的图片文件呢？

目前我只会通过shell打开指定路径的图片，图片通过Windows照片查看器进行预览和查看，但是如何关闭Windows照片查看器以便查看下一张图片呢？
目前我的状况是只会打开图片，但是不知道如何关闭打开的图片窗口，以至于图片窗口有很多。
谢谢各位老师啦！

f8b1987

1. 
   
2. Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
   
3. Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
   
4. Private Const WM_CLOSE As Long = &H10
   
5. 
   
6. Sub 打开指定路径的图片()
   
7.     Dim sPic As String
   
8.     Dim hWnd As Long
   
9.    
   
10.     sPic = "C:\Users\Administrator\Desktop\20231208114719.jpg"
    
11.     picname = Split(sPic, "")(UBound(Split(sPic, "")))
    
12.    
    
13.     ' 打开图片
    
14.     Shell "rundll32.exe C:\WINDOWS\system32\shimgvw.dll,ImageView_Fullscreen " & sPic, vbNormalFocus
    
15.    
    
16.     ' 等待一段时间，确保照片查看器已经打开
    
17.     Application.Wait Now + TimeValue("00:00:02")
    
18.    
    
19.     ' 获取照片查看器的窗口句柄
    
20.     hWnd = FindWindow(vbNullString, picname & " - Windows 照片查看器")
    
21.    
    
22.     ' 如果找到窗口句柄，则发送关闭消息
    
23.     If hWnd <> 0 Then
    
24.         SendMessage hWnd, WM_CLOSE, 0, 0
    
25.     End If
    
26. End Sub

复制代码

f8b1987

Gaudi34

f8b1987 发表于 2024-2-5 08:14

哇，特别感谢老师，实现了打开和关闭照片查看器，我还有意外收获，学到了如何使用句柄，以前只听闻这个功能强大，但是没有接触过，这下可见识到句柄的使用了。
老师我还有一个需求，就是用Windows照片查看器打开图片后，整个图片界面铺满了屏幕，怎么实现打开图片时，只让图片在右半边屏幕显示呢？因为我在看图片的同时，还需要对图片进行一些备注和文字的说明。所以希望右边是图片，左边是Excel表格，这样就能一边看图片，一边写文字备注了。感谢老师了

perfect131

这个 我写的较多
如果都满足不了你的需求的话   有偿找我
https://club.excelhome.net/forum.php?mod=viewthread&tid=1645550

cidanji

关闭

1. Shell "taskkill /f /im rundll32.exe"

复制代码