在Excel VBA中设置forecolor等于背景颜色

我需要隐藏我的单元格(其中包含公式)的文本。 我想设置文本颜色相同的背景颜色(灰色)。 也许更好的select?

在这里输入图像描述

所以我录制了一个macros来获取设置前景色的代码等于背景色(如此灰色)。 然后我停止macros。

在这里输入图像描述

现在我将前景色重置为Automatic (黑色),然后再次运行录制的macros进行testing。 结果是我的前景色是白色的,因为它应该是灰色的,所以很奇怪。

在这里输入图像说明

这是macros的代码:

 With rangeToHide.Font .ThemeColor = xlThemeColorDark1 .TintAndShade = -0.499984740745262 End With 

任何想法为什么?

尝试这个:

 With rangeToHide .Font.Color = .Interior.Color End With