Vba Excel:根据单元格值将图表置于最前面

Vba Excel:根据单元格值将图表置于最前面,vba,excel,pivot-table,Vba,Excel,Pivot Table,我创建了一个仪表板,用于显示客户的财务数据。问题是:其中一个图表是按年份划分的总计图表,如下所示: 然而,这并不总是适用于所有切片机。例如,如果我有一个人员计数切片器,累积总数图将是无用的,但平均人员计数图将是有价值的。我试图找出如何根据单元格值(由切片器指定)显示适当的图表。例如,如果选择了人员计数切片器,则将平均值图表放在前面。否则,将总图表放在前面 我已尝试将以下内容放入此工作簿,但未成功: Private Sub ChartDisplay() If Sheets("Sheet5").

我创建了一个仪表板,用于显示客户的财务数据。问题是:其中一个图表是按年份划分的总计图表,如下所示:

然而,这并不总是适用于所有切片机。例如,如果我有一个人员计数切片器,累积总数图将是无用的,但平均人员计数图将是有价值的。我试图找出如何根据单元格值(由切片器指定)显示适当的图表。例如,如果选择了人员计数切片器,则将平均值图表放在前面。否则,将总图表放在前面

我已尝试将以下内容放入此工作簿,但未成功:

Private Sub ChartDisplay()

If Sheets("Sheet5").Range("B1") = "Headcount" Then
 ActiveSheet.Shapes("chrtYearTotal").ZOrder msoBringToFront
 Else: ActiveSheet.Shapes("chrtYearAvg").ZOrder msoBringToFront
End If

End Sub

也许你的意思是
如果工作表(“Sheet5”)。范围(“B1”)=员工人数,那么
?您是否将其与单元格内容进行比较?或者是一个名为
员工人数
?@ShaiRado的变量,对此很抱歉-当我更改值时,这是一个输入错误。这里有引文。说得好!请用正确的代码编辑您的帖子,不管怎样,您的代码在我的图表上运行得很好,“B1”是如何从切片器中获取值的?奇怪……当您更改切片器时,图表会自动更改吗?“B1”是连接到我的切片机的透视表上的一个过滤单元。您的意思可能是
如果工作表(“Sheet5”)。范围(“B1”)=“人数”那么
?您是否将其与单元格内容进行比较?或者是一个名为
员工人数
?@ShaiRado的变量,对此很抱歉-当我更改值时,这是一个输入错误。这里有引文。说得好!请用正确的代码编辑您的帖子,不管怎样,您的代码在我的图表上运行得很好,“B1”是如何从切片器中获取值的?奇怪……当您更改切片器时,图表会自动更改吗?“B1”是连接到我的切片器的透视表上的过滤单元。