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

时间:2015-02-19 13:34:48

标签: vba excel-vba charts overlap excel

我有这段代码但是当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

1 个答案:

答案 0 :(得分:0)

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

ChartObject