找出特定条形图的所有属性以进一步复制

假设很久以前，我创build了一个条形图 ，并根据需要对其进行了修改（颜色，大小等）。 有没有办法在VBA中查看此图表的所有属性，以便我可以创build完全相同的图表？

Answer 1

将其加载到chartobject中，然后通过图表访问属性。

Dim ws As Excel.Worksheet Set ws = ActiveWorkbook.Sheets("Sheet1") Dim cht As ChartObject Dim c As ChartObject Set c = ws.ChartObjects(1) MsgBox (c.Chart.ChartTitle.Text) MsgBox (c.Chart.Legend.Position) MsgBox (c.Chart.ChartArea.Width)