Visual Basic，Excel VSTO：设置工作表选项卡颜色

Question

所有

我希望这能找到你！

我目前正在将VSTO中的一些Visual C＃代码转换为Visual Basic，并且在为工作表设置Tab.Color时遇到了麻烦。

目前，我正在这样做：

Dim c As Color
c = System.Drawing.Color.Blue

Dim w As Excel.Worksheet
w = Me.Application.Worksheets.Add()
w.Tab.Color = c

但是，无论C的值如何，选项卡始终为黑色。这在Visual C＃中运行良好，但我无法弄清楚Visual Basic的等价物。

非常感谢任何帮助！谢谢！

Answer 1

试试w.Tab.Color = &hFF0000 VSTO中的颜色很麻烦。最初它们是BGR格式，与System.Drawing.Color不同。所以我猜C＃以某种方式处理它。无论如何，您可以使用一个简单的函数将System.Drawing中的颜色转换为整数：

Function ConvertColor(ByVal color As System.Drawing.Color) As Integer
    Return ((color.B * &h10000) + ((color.G * &h100) + color.R))
End Function