我有这段代码但是当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
答案 0 :(得分:0)
您可以使用单元格的.Top
和.Left
属性,以及每个.Top
的{{1}}和.Height
属性来对齐每个连续的图表上一张图表的底部:
ChartObject