2017-02-02 23 views

回答

0

您可以使用选择的情况下的部门和使用此代码 -

语法 - SHEETNAME .ChartObjects(chartname).Chart.ChartType = 图图表号码

e.g. Sheet1.ChartObjects("Chart1").Chart.ChartType = 4 

要获取所有数字,您可以创建一个虚拟图表并使用msgbox打印数字 - 例如MSGBOX sheet1.ChartObjects(“Chart1).Chart.ChartType

让我知道,如果你需要我写整个代码为您服务。

希望这有助于!

相关问题