Excel VBA 插入PNG图片到指定单元格 - 代码示例

以下是一个示例代码，可以实现选中A32单元格并插入任意名称的PNG格式图片：\n\nvba\nSub InsertPicture()\n\tDim picPath As String\n\tDim picName As String\n\tDim picShape As Shape\n\tDim cellRange As Range\n\t\n\t' 设置图片路径和名称\n\tpicPath = "C:\图片目录\" ' 替换成你的图片目录路径\n\tpicName = "图片名称.png" ' 替换成你要插入的图片名称\n\t\n\t' 获取要插入图片的单元格范围\n\tSet cellRange = Range("A32")\n\t\n\t' 插入图片\n\tSet picShape = ActiveSheet.Shapes.AddPicture(picPath & picName, _\n\t msoFalse, msoTrue, cellRange.Left, cellRange.Top, _\n\t cellRange.Width, cellRange.Height)\n\t\n\t' 调整图片大小\n\tpicShape.LockAspectRatio = msoFalse\n\t\n\t' 清除单元格内容\n\tcellRange.ClearContents\nEnd Sub\n\n\n将"图片目录"替换为你的图片目录路径，将"图片名称.png"替换为你要插入的图片名称。然后运行该代码，它将在A32单元格位置插入指定名称的PNG格式图片，并清除该单元格的内容。