Excelcheckboxselect图表范围

Option Explicit Public PlotName As String Public PlotRange As Range Sub Tester() Range("TCKWH.V.1").Select AddPlot ActiveSheet.Range("C9:C13,D9:O13") End Sub Sub AddPlot(rng As Range) With ActiveSheet.Shapes.AddChart PlotName = .Name .Chart.ChartType = xlLineMarkers .Chart.SetSourceData Source:=Range(rng.Address()) .Chart.HasTitle = True .Chart.ChartTitle.Text = Range("C9") End With Set PlotRange = rng Application.EnableEvents = False rng.Select Application.EnableEvents = True End Sub Sub RemovePlot(rng As Range) If Not PlotRange Is Nothing Then If Application.Intersect(rng, PlotRange) Is Nothing Then On Error Resume Next rng.Parent.Shapes(PlotName).Delete On Error GoTo 0 End If End If End Sub Private Sub Worksheet_SelectionChange(ByVal Target As Range) RemovePlot Target End Sub 

我有这个代码根据通过checkbox接受的信息创buildgraphics。 但是您不select的任何帐户显示为“空白”图例条目是否有删除“空白”图例条目的macros代码？

Answer 1

在表格下方创build另一个表格。 然后将checkbox链接到第一个表格下方的表格。 然后在True / False后input=IF($B10=TRUE,C3,"")

之后，用底部表的范围replaceAddPlot ActiveSheet.Range("C9:C13,D9:O13") 。