Excel VBA基于主题颜色改变颜色

我有下面的代码，完美的作品。 但是我想把一些典型的颜色数字改成他们的主题颜色，而不是和我合作。

表1：.meColor = xlThemeColorAccent3 .TintAndShade = -0.249977111117893

标签2：192

表3：.meColor = xlThemeColorLight2 .TintAndShade = -0.249977111117893

等等，但我似乎无法find正确的方式来格式化数组中。 任何帮助将是伟大的！

Sub Change_Tab_Colors_Based_On_Array() ' ' Change_Tab_Colors_Based_On_Array Macro ' ' Declaration Dim iCntr, sht, arrColors, numColors ' Define the Array of Colors for Tabs - Repeats arrColors = Array(10, 9, 23, 46, 44, 50, 48) iCntr = 0 numColors = UBound(arrColors) + 1 ' Loop Through All Sheets in Workbook For Each sht In ThisWorkbook.Worksheets sht.Tab.ColorIndex = arrColors((iCntr Mod 7)) iCntr = iCntr + 1 Next End Sub