Excel批量导出更改底色后的图片 用宏VBA

在Excel中使用宏VBA批量导出更改底色后的图片，可以编写一段简单的脚本来遍历工作表中的单元格，找到含有图片的单元格，并改变其背景颜色，然后保存图片到指定位置。以下是基本步骤：

1. **打开Visual Basic Editor (VBE)**:
- 按下`Alt + F11`快捷键进入VBA编辑器。

2. **创建新的Module**:
- 在VBE窗口中，右击"插入"菜单下的"模块"，选择新建。

3. **编写VBA代码**:

Sub BatchChangeAndExportImages()
    Dim ws As Worksheet
    Dim imgCell As Range
    Dim picPath As String
    Dim bgColor As Long ' 使用Long类型表示RGB颜色

    ' 更改这里的路径为你需要保存图片的位置
    picPath = "C:\YourSavePath\"

    Set ws = ThisWorkbook.Worksheets("Sheet1") ' 可能需要修改成你的工作表名
    bgColor = RGB(255, 0, 0) ' 这里设置红色背景，你可以修改

    For Each imgCell In ws.UsedRange '<-- 遍历所有包含图片的单元格
        If imgCell.HasShape Then
            With imgCell ShapeRange(1)
                .Fill.Color = bgColor ' 改变背景颜色
                .ExportAsPicture Format:=xlPNG, Filename:=picPath & imgCell.Address '.Address去掉Sheet名部分即可
            End With
        End If
    Next imgCell

    MsgBox "图片已批量导出并更改了背景色!"
End Sub

4. **运行宏**:
- 返回Excel工作界面，按`F5`或点击工具栏上的"立即执行"按钮来运行宏。