咱们先拆解你代码里的几个核心问题，这也是导致它完全没效果的关键原因：

• 把ChartObject（工作表上的图表容器）和它内部的Chart（图表本身）搞混了，比如你直接写Cht.ShowCategoryName，但ShowCategoryName是DataLabels的属性，得从Chart的系列对象里去调用；
• 判断单元格值时用了文本格式的"TRUE"，但单元格里的布尔值是不带引号的True，这直接导致判断逻辑失效；
• 重复设置了三次Cht.Format.Fill，后面的设置会完全覆盖前面的，而且你其实是想设置数据标签的填充，不是图表容器的填充；
• 你本来想直接用复选框触发功能，但当前代码依赖单元格值判断，咱们可以改成直接绑定复选框的点击事件。

下面给你两种场景下的修正代码，你可以根据自己用的复选框类型选择：

场景1：使用表单控件复选框 #

把你的复选框宏指定为下面这个子程序，代码直接获取复选框状态，无需依赖单元格：

Sub ToggleChartDataLabels()
    Dim chtObj As ChartObject
    Dim targetChart As Chart
    Dim dataLabels As DataLabels
    
    ' 定位到目标图表
    Set chtObj = Sheet5.ChartObjects("Chart 12")
    Set targetChart = chtObj.Chart
    Set dataLabels = targetChart.FullSeriesCollection(1).DataLabels
    
    ' 根据复选框状态判断（把"Check Box 1"改成你实际的复选框名称）
    If Sheet1.Shapes("Check Box 1").ControlFormat.Value = xlOn Then
        ' 显示数据标签并设置样式
        targetChart.SetElement msoElementDataLabelTop
        targetChart.ApplyDataLabels
        
        ' 配置数据标签属性
        dataLabels.ShowCategoryName = True
        dataLabels.Separator = Chr(13) ' 设置换行符作为分隔
        
        ' 设置数据标签填充样式
        With dataLabels.Format.Fill
            .Visible = msoTrue
            .ForeColor.RGB = RGB(68, 114, 196)
            .Transparency = 0.75
            .Solid
        End With
    Else
        ' 隐藏数据标签
        targetChart.SetElement msoElementDataLabelNone
    End If
End Sub

场景2：使用ActiveX复选框 #

如果你的复选框是ActiveX类型，直接双击复选框进入它的Click事件代码，写入以下内容：

Private Sub CheckBox1_Click()
    Dim chtObj As ChartObject
    Dim targetChart As Chart
    Dim dataLabels As DataLabels
    
    Set chtObj = Sheet5.ChartObjects("Chart 12")
    Set targetChart = chtObj.Chart
    Set dataLabels = targetChart.FullSeriesCollection(1).DataLabels
    
    If Me.CheckBox1.Value = True Then
        targetChart.SetElement msoElementDataLabelTop
        targetChart.ApplyDataLabels
        
        dataLabels.ShowCategoryName = True
        dataLabels.Separator = Chr(13)
        
        With dataLabels.Format.Fill
            .Visible = msoTrue
            .ForeColor.RGB = RGB(68, 114, 196)
            .Transparency = 0.75
            .Solid
        End With
    Else
        targetChart.SetElement msoElementDataLabelNone
    End If
End Sub

关键修正点说明 #

• 明确区分ChartObject和Chart对象，所有和图表数据、标签相关的操作都基于Chart对象执行；
• 直接操作DataLabels对象的属性，避免无效的Select语句（VBA里尽量直接引用对象，比用Select高效且可靠）；
• 去掉了重复的填充设置，精准定位到数据标签的样式配置；
• 直接绑定复选框状态判断，完全符合你想要用复选框直接控制的需求；
• 修复了布尔值判断的逻辑错误，表单控件用xlOn表示选中，ActiveX控件直接用.Value = True判断。

你只需要把代码里的复选框名称改成你实际使用的名称，运行后就能正常切换数据标签的显隐和样式了。

内容的提问来源于stack exchange，提问作者Kevin P.