如何使用VBA在Excel中有序排列图表？

Question

我有这段代码但是当VBA在Excel表格上复制并粘贴图表时，图表会重叠。

有没有办法将它们排列在1列而不重叠？

谢谢！

Sub Test1()

Dim cht As Excel.ChartObject

Worksheets("ChartObjects").ChartObjects.Delete

For Each Sheet In ActiveWorkbook.Worksheets
If Sheet.Name <> "ChartObjects" Then

Sheet.Select
For Each cht In Sheet.ChartObjects

cht.Select
cht.Copy

Sheets("ChartObjects").Select
Range("C5").Select
ActiveSheet.Paste

Next

End If
Next Sheet

End Sub

Answer 1

您可以使用单元格的.Top和.Left属性，以及每个.Top的{​​{1}}和.Height属性来对齐每个连续的图表上一张图表的底部：

ChartObject