excel - 重播更改标签颜色的宏时下标超出范围

我记录了这样做的宏：更改工作表标签的颜色，然后将其设置为自动颜色。结果代码如下：

Sub Makro4()
' Makro4 Makro
    With ActiveWorkbook.Sheets("GBP").Tab
        .ThemeColor = xlThemeColorLight2
        .TintAndShade = 0.399975585192419
    End With
    With ActiveWorkbook.Sheets("GBP").Tab
        .ColorIndex = xlAutomatic
        .TintAndShade = 0
    End With
End Sub

当我重播它时，通过在立即窗口中编写makro4或通过将此代码放置在工作表上的按钮上，它不起作用：

Private Sub CommandButton1_Click()
    With ActiveWorkbook.Sheets("GBP").Tab
        .ThemeColor = xlThemeColorLight2
        .TintAndShade = 0.399975585192419
    End With
    With ActiveWorkbook.Sheets("GBP").Tab
        .ColorIndex = xlAutomatic
        .TintAndShade = 0
    End With
    'Makro4
End Sub

.colorindex-line产生“下标超出范围”。谁能解释为什么？

最佳答案

我遇到了同样的问题。当录制的宏实际上无法执行时，这非常令人沮丧。代替xlAutomatic，您需要使用：xlColorIndexNone。 Source。
此响应可能为时已晚，对您没有用，但以防万一其他人偶然遇到相同问题的链接...