excel - 更改形状的背景颜色

Question

我正在尝试更新工作表上所有标签的背景色。我想使用 RGB 值来指示颜色，但我陷入了两个地方。这是我现在拥有的代码:

Sheet2.Shapes("Label 2").Fill.BackColor.RGB = RGB(220, 105, 0)

这段代码运行不会出错，但似乎没有任何效果。我的标签一开始是白色的(或者可能是透明的)并且永远不会改变。谁能告诉我需要做什么才能使这项工作成功？我也添加了这个，但它什么也没做:

shp.Fill.Solid

接下来，我想在变量中捕获该 RGB 值，这样我就不必重复重新输入。本质上，我正在寻找这样的东西:

dim col as Color
col = RGB(220,105,0)
Sheet2.Shapes("Label 2").Fill.BackColor.RGB = col

我知道没有名为 Color 的变量类型，但我想你可以看到我想要做什么。

Answer 1

尝试设置前景色:

Sheet2.Shapes("Label 2").Fill.ForeColor.RGB = RGB(220, 105, 0)

弄清楚要做什么的一个好方法是在您自己进行调整时录制宏。您可以稍后检查生成的代码并将其用作起点。

<小时/>

下面是一个过程示例，它将向事件工作表添加一个矩形，向其中添加一些文本，然后使用您的 RGB 值对其进行着色:

Public Sub AddRectangleWithText()
    Dim textRectangle As Shape

    Set textRectangle = ActiveSheet.Shapes & _
        .AddShape(msoShapeRectangle, 10, 80, 250, 50)

    ' add your text
    textRectangle.TextFrame.Characters.Text = "Your mother was a hamster."

    ' fill the shape with the rgb color of your choice
    textRectangle.Fill.ForeColor.RGB = RGB(220, 105, 0)

End Sub