excel如何识别图片中的文字

Sub OCR()
    Dim img As Picture
    Dim ocr As Object
    Dim recognizedText As String
    
    ' 获取图片框中的图片
    Set img = ActiveSheet.Pictures(1)
    
    ' 创建OCR对象
    Set ocr = CreateObject("WScript.Shell")
    
    ' 保存图片为临时文件
    img.CopyPicture
    Application.ActiveSheet.Paste Destination:=Worksheets("Sheet1").Range("A1")
    img.Delete
    ActiveSheet.Pictures(1).Select
    Selection.CopyPicture Appearance:=xlScreen, Format:=xlPicture
    
    ' 使用OCR识别图片中的文字
    recognizedText = ocr.Exec("tesseract.exe " & ActiveSheet.Pictures(1).TopLeftCell.Address & " output")
    
    ' 将识别的文字写入单元格
    Range("B1").Value = recognizedText
End Sub