Excel VBA图像处理：如何在单元格中显示并调整图片大小

在Excel中处理图片时，VBA（Visual Basic for Applications）是一个强大的工具。今天我们将讨论如何通过VBA代码在Excel的单元格中插入并调整图片大小，以及如何解决一些常见的问题。背景介绍假设你有一个Excel工作表，A列从A2开始存放了几个图片文件名，如"test.jpg"、"demo.jpg"等。现在我们希望通过VBA代码，遍历这些文件名，并在对应的单元格中显示这些图片。基本代码结构首先，我们需要一个集合来存储文件路径和名称：Private FileLocations As Collection Public Sub Test() Set FileLocations = New Collection GetFiles "C:\Users\usertest\Desktop\demo" ' 更新路径到你的图片文件夹 Dim PicName As Range Dim img As Picture With ThisWorkbook.Worksheets("Sheet1") ' 更新工作表名 For Each PicName In .Range("A2:A7") ' 更新范围 Set img = .Pictures.Insert(FileLocations(PicName)) img.Left = PicName.Left img.Top = PicName.Top