扫描文档的图像，复制并粘贴到Excel选项卡

我有几个技术文档是我想要扫描的200多页，复制图像/graphics，并粘贴到单独的Excel选项卡，每个图像/graphics一个。 有没有办法用VBA或者像R这样的脚本语言来做到这一点？

道歉，如果这是有点重复其他问题。 但是，我没有看到重复复制图像的具体问题。 谢谢！

Answer 1

您可以通过编写一个简短的VBAmacros来遍历所有（内联）图像，将它们复制到剪贴板，然后将每个图像粘贴到Excel中的新工作表中来解决这个问题：

Sub CopyPicturesToExcel() Dim oExcel As Excel.Application Dim oWorkbook As Excel.Workbook Dim oSheet As Excel.Worksheet Dim oInlineShape As inlineShape Set oExcel = New Excel.Application oExcel.Visible = True Set oWorkbook = oExcel.Workbooks.Add For Each oInlineShape In ActiveDocument.InlineShapes oInlineShape.Range.Copy Set oSheet = oWorkbook.Sheets.Add(After:=oWorkbook.Sheets(oWorkbook.Sheets.Count)) oSheet.Paste Next ' remove the empty first sheet oWorkbook.Sheets(1).Delete End Sub