使用单元格格式着色形状文本

Question

我有一张Excel工作表，用于热图，根据单元格值在形状中着色。我可以使用以下方法更改基于单元格的形状更改的背景颜色：

Selection.ShapeRange.Fill.ForeColor.RGB = Range(Range("ColourCode").Value).Interior.Color

如果我可以使用以下方法更改所选形状的颜色：

Selection.ShapeRange.TextFrame.Characters.Font = RGB(0, 0, 0)

但如果我使用与下面相同的价值方法，它根本不会改变文字颜色：

Selection.ShapeRange.TextFrame.Characters.Font.RGB = Range(Range("ColourCode").Value).Font.Color

有关错误或如何使其发挥作用的任何想法？

Answer 1

你应该这样试试......

Selection.ShapeRange.TextFrame.Characters.Font.Color = Range("ColourCode").Font.Color

Answer 2

我相信你需要使用Font.Colors函数。

Selection.ShapeRange.TextFrame.Characters.Font.Colors  = [RGB Value of whatever color you want]

可以以类似的方式使用.Forecolor函数对字符串进行整体操作。