Excel图表尽pipe设置位置略有移动

我创build了一个甘特图，直接放在行的数据被拉出来，所以一切都在一个整齐的线。 有几个月的数据，所以我创build了两个button（下一页/上一页），从x轴的最小值和最大值加/减30。 因为所有东西都排列成甘特表式，所以我一直在试图将图表的位置重置为原来的位置。 不幸的是，图表仍然在图表和我的数据之间产生一个小的差距。 任何意见是极大的赞赏！

我的图表angular落都没有放在单元格的angular落，再加上一些列可能会稍后resize。

Private Sub NEXT_PG_Click() Dim chart_height As Single, chart_length As Single, chart_top As Single, chart_left As Single 'Saving original position to save later With ActiveSheet.ChartObjects("Chart 2") chart_height = .Height chart_width = .Width chart_top = .Top chart_left = .Left End With 'Displaying next 30 days of data With ActiveSheet.ChartObjects("Chart 2").Chart.Axes(xlValue) .MinimumScale = .MinimumScale + 30 .MaximumScale = .MaximumScale + 30 End With 'Trying to set original location and size With ActiveSheet.ChartObjects("Chart 2") .Height = chart_height .Width = chart_width .Left = chart_left .Top = chart_top End With End Sub 

添加了图片

更新 ：作为一个临时的解决scheme，我试图设置绘图区的位置到一个特定的位置，但这使情况变得更糟。 请参阅下面的尝试声明的更改：

 With ActiveSheet.ChartObjects("Chart 2").Chart.PlotArea .Height = Range("A8:A30").Height .Width = Range("J6:U6").Width .Top = Range("J8").Top .Left = Range("J8").Left End With