如何利用EXCEL VBA搜索固定文件夹中的图片并批量打印

如何利用EXCEL VBA做一个搜索界面，实现从固定的文件夹下（比如D盘/photo文件夹）按关键字搜索图片，并将搜索到的所有图片显示出来，然后可以点击一个按钮将这些图片批量打印。

引用GPT回答 ：
首先，确保已经将Microsoft Scripting Runtime库添加到您的VBA项目引用中。进入VBA编辑器，点击菜单栏的"工具"，再点击"引用"，找到并勾选"Microsoft Scripting Runtime"。

然后，在VBA编辑器中的一个模块中编写以下代码：

Option Explicit

' 引用Windows Script Host对象
Dim fso As FileSystemObject

Sub SearchAndPrint()
    Dim folderPath As String
    Dim keyword As String
    Dim folder As Folder
    Dim file As File
    Dim imgFiles As Collection
    Dim imgFile As Variant
    
    ' 设置搜索文件夹路径和关键字
    folderPath = "D:\photo"
    keyword = InputBox("请输入关键字：", "图片搜索")
    
    ' 初始化Windows Script Host对象
    Set fso = New FileSystemObject
    
    ' 创建存储图片文件的集合
    Set imgFiles = New Collection
    
    ' 开始搜索图片文件
    Set folder = fso.GetFolder(folderPath)
    For Each file In folder.Files
        If IsImageFile(file.Path) And InStr(1, file.Name, keyword, vbTextCompare) > 0 Then
            ' 如果文件是图片文件且文件名包含关键字，将其添加到集合中
            imgFiles.Add file
        End If
    Next file
    
    ' 显示搜索结果
    ShowSearchResults imgFiles
    
    ' 释放资源
    Set imgFiles = Nothing
    Set folder = Nothing
    Set fso = Nothing
End Sub

Function IsImageFile(filePath As String) As Boolean
    ' 检查文件扩展名是否为常见的图片格式
    Dim ext As String
    ext = LCase(Mid(filePath, InStrRev(filePath, ".") + 1))
    Select Case ext
        Case "jpg", "jpeg", "png", "bmp", "gif"
            IsImageFile = True
        Case Else
            IsImageFile = False
    End Select
End Function

Sub ShowSearchResults(imgFiles As Collection)
    ' 在Excel中显示搜索结果
    Dim i As Integer
    Dim leftPos As Integer
    Dim topPos As Integer
    
    ' 清空之前的搜索结果
    Worksheets("图片搜索结果").Activate
    Cells.ClearContents
    
    ' 设置结果显示区域的起始位置
    leftPos = 2
    topPos = 2
    
    ' 遍历图片文件集合，显示每个图片文件的缩略图
    For Each imgFile In imgFiles
        ' 在结果表中显示图片缩略图
        With ActiveSheet.Pictures.Insert(imgFile.Path)
            .ShapeRange.LockAspectRatio = msoFalse
            .Left = leftPos
            .Top = topPos
            .Width = 100
            .Height = 100
        End With
        
        ' 调整下一个缩略图的位置
        leftPos = leftPos + 120
        If leftPos + 100 > ActiveWindow.Width Then
            leftPos = 2
            topPos = topPos + 120
        End If
    Next imgFile
End Sub

Sub PrintSelectedImages()
    ' 批量打印选中的图片
    Dim i As Integer
    
    ' 确定当前活动工作表是结果页
    Worksheets("图片搜索结果").Activate
    
    ' 遍历所有图片，选中被选择的图片并打印
    For i = 1 To Shapes.Count
        If Shapes(i).Type = msoPicture Then
            If Shapes(i).TopLeftCell.Value = "X" Then  ' 自定义标记为"X"
                Shapes(i).Select
                Selection.PrintOut
            End If
        End If
    Next i
    
    ' 清除选择标记
    ClearSelection
End Sub

Sub ClearSelection()
    ' 清除结果页中的选择标记
    Dim range As Range
    
    On Error Resume Next
    Set range = Worksheets("图片搜索结果").Range("A1:ZZ1000000")
    range.Cells.ClearContents
    range.ClearFormats
    On Error GoTo 0
End Sub

在Excel中，创建一个名为"图片搜索结果"的工作表，以及一个名为"搜索"的按钮。将按钮与SearchAndPrint宏关联。执行该宏时，将弹出一个输入框用于输入关键字。搜索结果将显示在"图片搜索结果"工作表上，并且可以使用鼠标选择要打印的图片，然后点击按钮"打印选中的图片"来批量打印选中的图片。