奇怪的绘图区位置，以及如何用筛选触发宏？

beastwars

奇怪的绘图区位置，以及如何用筛选触发宏？
我有2个问题，
1，如何使附件图表的绘图区的顶部和第二行对齐。虽然我使用.PlotArea.Top = 48.8 '明明这里设置了绘图区的高度，但实际总是有出入，而且有时无法改变。而且一旦行筛选后，重新又对不齐了，很奇怪。

1. 
   
2. <div>Sub draw()
   
3. 
   
4. Dim ch As ChartObject
   
5. Set ch = Sheet3.ChartObjects("图表 3")
   
6. Sheet3.Shapes("图表 3").Top = 0
   
7. Sheet3.Shapes("图表 3").Height = Sheet3.Rows(1).Height + Sheet3.Rows(1001).Height * (Sheet3.Cells(Sheet3.Rows.Count, 1).End(xlUp).Row - 999 + Sheet3.Range("A2:A1000").SpecialCells(12).Count) + 3.8
   
8. With ch.Chart
   
9.     .PlotArea.Top = 48.8 '明明这里设置了绘图区的高度，但实际总是有出入。
   
10.     .PlotArea.Height = Sheet3.Shapes("图表 3").Height + 10000
    
11.     .Legend.Top = 12
    
12.     .Legend.Height = 29
    
13. End With
    
14.     MsgBox Sheet3.ChartObjects("图表 3").Chart.PlotArea.Top
    
15. End Sub</div>

复制代码

2，就是希望当表格筛选后，能自动触发以上调整图大小的代码，使之对齐。虽然想使用Worksheet_Change，无奈不知如何判断。
谢谢各位如果有时间帮忙解答下，感激不尽。
test.zip (33.86 KB, 下载次数: 3)

2023-3-14 21:47 上传

点击文件名下载附件

beastwars

自己顶一下，希望有大大能帮忙看看。感激不尽。