Excel“插入形状”根据单元格值进行颜色更改

Question

任何人都知道如何根据单元格的值更改Shapes（“ Insert-> Shapes”）的颜色。 我可以借助宏来做到这一点。 但是我现在需要在没有宏帮助的情况下完成同样的操作。

如果有人可以的话，请分享公式。

谢谢。

Answer 1

示例如何在ActiveX图像控件中显示命名范围的图片：

1. 用一个空的工作表Sheet1打开Excel。
2. 在A1中写入0。
3. 使用名称管理器创建命名范围http://office.microsoft.com/zh-cn/excel-help/define-and-use-names-in-formulas-HA010147120.aspx#BMmanage_names_by_using_the_name_manage

这样做：

• 打开名称管理器
• 点击新建
• 名称=图片
• 引用== =INDEX(Sheet1!$E:$E,Sheet1!$A$1*4+1):INDEX(Sheet1!$E:$E,Sheet1!$A$1*4+4)
• 好
• 关闭名称管理器

现在：

1. 从“开发人员”选项卡中获取一个ActiveX图像控件
   （ http://office.microsoft.com/zh-cn/excel-help/show-the-developer-tab-HA101819080.aspx ）控件并将其放在工作表中。
2. 用=Image （命名范围的名称=EMBED(...)覆盖公式栏中的公式=EMBED(...) ）。 现在，如果更改Sheet1!A1的值，则应在图像控件中看到单元格E[n]:E[m]其中n=A1*4+1和m=A1*4+4 。 通过将值放入E1:E20并更改A1尝试。
3. 现在，如果将不同的形状放在E1:E4, E5:E8, E9:E12,...可以通过更改A1的值在图像控件中看到它们。

   ---

编辑2019年4月：

这可以在Excel 2007使用。 它不能在更高的Excel versions因为ActiveX Image控件不再接受单元格区域作为源。

刚刚在Excel 365进行了测试：

首先执行与上述相同的步骤，然后在最后一步

现在：

1. 将一列的四个单元格（例如A1:A4 ）复制到剪贴板中。 细胞来自何处并不重要。
2. 在将出现图像的工作表中，执行Home -> Paste -> Linked Picture 。 粘贴显示复制的单元格的图片。 例如，公式栏显示公式=Sheet1!$A$1:$A$4 。
3. 用=Image （命名范围的名称）覆盖公式栏中的公式。 现在，如果更改Sheet1!A1的值，则应将粘贴的图片中的n=A1*4+1和m=A1*4+4的单元格E[n]:E[m]看到。 通过将值放入E1:E20并更改A1尝试。
4. 现在，如果将不同的形状放在E1:E4, E5:E8, E9:E12,...可以通过更改A1的值在粘贴的图片中看到它们。