如何在Excel中实现自定义图片的条件格式及指定位置着色？

1. 导入数值数据 #

• 将第一张示例图中的数值数据直接复制粘贴到Excel工作表，或通过「数据」选项卡的导入功能读取外部数据源（如CSV、文本文件），确保数据区域规整、表头清晰。

2. 提取条件格式的实际显示颜色 #

如果原数据已应用条件格式，需提取每个单元格的最终显示颜色，可通过VBA代码批量获取：

Sub ExtractConditionalColors()
    Dim targetRng As Range
    Dim cell As Range
    Set targetRng = Application.InputBox("选择需提取颜色的数据区域", Type:=8)
    For Each cell In targetRng
        ' 将颜色值存入右侧相邻单元格，可自行调整存储位置
        cell.Offset(0, 1).Value = cell.DisplayFormat.Interior.Color
    Next cell
End Sub

运行代码后，选中区域的右侧单元格会生成对应单元格的十进制RGB颜色值，供后续步骤调用。

3. 生成匹配颜色的自定义图片 #

方法1：用形状模拟布局（灵活可控） #

• 根据第二张示例图的布局，插入对应数量的矩形形状（「插入」→「形状」→「矩形」），调整大小和排列方式。
• 用VBA批量为形状匹配颜色：

Sub SetShapeColors()
    Dim shp As Shape
    Dim colorList As Range
    Dim idx As Integer
    Set colorList = Range("B2:B15") ' 替换为存储颜色值的单元格区域
    idx = 1
    For Each shp In ActiveSheet.Shapes
        If shp.Type = msoShapeRectangle Then
            shp.Fill.ForeColor.RGB = colorList.Cells(idx).Value
            idx = idx + 1
        End If
    Next shp
End Sub

• 选中所有形状，右键选择「组合」→「组合」，即可得到整体的自定义图片。

方法2：直接导出带格式的数据区域 #

如果目标图片布局与原数据区域一致，可直接导出带条件格式的区域为图片：

• 选中数据区域，按Ctrl+C复制，右键选择「粘贴」→「图片（增强型图元文件）」，粘贴后即可得到保留条件格式颜色的图片，再按需调整大小。

4. 为指定"Position"位置填充颜色 #

• 若使用形状组合的图片：找到对应Position的形状（可提前修改形状名称方便定位），手动设置填充颜色，或用VBA批量处理：

Sub ColorPositionArea()
    Dim targetShp As Shape
    ' 替换为目标形状的名称，可在「形状格式」面板修改名称
    Set targetShp = ActiveSheet.Shapes("Position_Target")
    targetShp.Fill.ForeColor.RGB = RGB(255, 165, 0) ' 替换为所需颜色的RGB值
End Sub

• 若使用导出的图片：右键图片选择「取消组合」（需确认转换为Office图形对象），找到对应区域后设置填充颜色。

内容的提问来源于stack exchange，提问作者MichaelSampson123