主页 / computer / 问题 / 1462818
Accepted
Naz
Asked: 2019-07-23 11:58:17 +0800 CST

在所选图表上运行宏

  • 772

我想向电子表格中的图表添加一些快速选项，我想选择一个图表，选择/取消选择一个复选框，然后代码运行。

勾选框代码是；

Private Sub CheckBox1_Click()

    If CheckBox1.Value = True Then
        DisplayLabels    
    Else    
        HideLabels   
    End If

End Sub

DisplayLabels 和 HideLabels 代码是

Sub DisplayLabels()

    With ActiveChart
        ActiveChart.FullSeriesCollection(1).Select
        ActiveChart.FullSeriesCollection(1).ApplyDataLabels
    End With

End Sub

Sub HideLabels()

    With ActiveChart
        ActiveSheet.ChartObjects("Basic_Chart").Activate
        ActiveChart.FullSeriesCollection(1).Select
        ActiveChart.FullSeriesCollection(1).DataLabels.Select
        Selection.ShowValue = False
    End With

End Sub

问题是，一旦我勾选了该框，图表就不再被选中/激活，因此代码无法工作。有没有解决的办法。我希望这是可在多张纸上重复使用的代码，因此不能直接引用图表。

microsoft-excel vba

1 个回答

  1. Best Answer

    忘记复选框，让宏确定标签与否。以下将检查是否选择了图表，如果是，则切换标签：

    If ActiveChart Is Nothing Then
    MsgBox "You must select a chart"
    Exit Sub
End If
For Each mySeries In ActiveChart.SeriesCollection
    On Error Resume Next
    mySeries.DataLabels.Select
    If (Err.Number = 0) Then
        mySeries.DataLabels.Delete
    Else
        mySeries.ApplyDataLabels
    End If
    On Error GoTo 0
Next mySeries
    • 1

相关问题