当前位置：文江博客话题详情

捕获时间线切片器中更改日期范围并更新图表

发布于 2025-01-21 11:40:36 字数 334 浏览 0 评论 0原文

我试图弄清楚当日期范围在时间轴切片机内更改日期范围时是否有办法捕获事件。

我要完成的工作是：

我需要
在更改日期范围时捕获时间轴切片机内的日期范围更改事件，使我的图表更新数据。

现在发生的事情是，当我更改时间表切片机中的日期范围时，连接的枢轴表被相应而瞬间更新，但是从这些枢轴表的某些字段中获取数据的图表（它们不是Pivot Charts 它们，）需要保存工作簿操作，然后才能更新新数据。

我使用仅连接到枢轴表的某些部分的图表的原因是，以这种方式，图表比枢轴图表更可自定义。

预先感谢您将我指向正确的方向

原文

分享到QQ

分享到微博

如果你对这篇内容有疑问，欢迎到本站社区发帖提问参与讨论，获取更多帮助，或者扫码二维码加入 Web 技术交流群。

发布评论

需要登录才能够评论，你可以免费注册一个本站的账号。

鸢与 2025-01-28 11:40:36

假设您不想将工作簿计算更改为“自动”，而只想更新图表，则以下是基本上剪切图表并在枢轴表更改时将它们粘贴到同一位置的代码。

Private Sub Worksheet_Change(ByVal Target As Range)

Dim myChart As ChartObject
Dim myCharts As ChartObjects
Dim myChartname As String
Dim strAddress As String

Set myCharts = ActiveSheet.ChartObjects

For Each myChart In myCharts
    myChartname = myChart.Name
    strAddress = myChart.TopLeftCell.Address
    ActiveSheet.ChartObjects(myChartname).Cut
    ActiveSheet.Paste Destination:=Range(strAddress)
Next

End Sub

Assuming you don't want to change Workbook Calculation to Automatic and just want to update the chart(s), below is the code to basically cut the chart(s) and paste them in the same place whenever the pivot table changes.

Private Sub Worksheet_Change(ByVal Target As Range)

Dim myChart As ChartObject
Dim myCharts As ChartObjects
Dim myChartname As String
Dim strAddress As String

Set myCharts = ActiveSheet.ChartObjects

For Each myChart In myCharts
    myChartname = myChart.Name
    strAddress = myChart.TopLeftCell.Address
    ActiveSheet.ChartObjects(myChartname).Cut
    ActiveSheet.Paste Destination:=Range(strAddress)
Next

End Sub

回复收藏 0 原文

~没有更多了~