从Matlab绘制excel条形图

如何从Matlab绘制Excel的条形图？

我可以绘制折线图。

e = actxserver('excel.application'); eWs = e.Workbooks; eW = eWs.Add; eS = eW.ActiveSheet; e.Visible = 1; x=(0:2:100)';y=sin(x); eS.Range('A1:B50').Value = [xy]; eCO = eS.ChartObjects.Add(100, 30, 400, 250); eC = eCO.Chart; eC.SeriesCollection.NewSeries; eC.SeriesCollection(1).Value = eS.Range('B1:B50'); eC.SeriesCollection(1).XValue = eS.Range('A1:A50'); eCO.Chart.ChartType = 1; eCO.Chart.ChartType = 65; eCO.Chart.HasTitle = true; eCO.Chart.ChartTitle.Text = 'This is the title text'; % view it again eW.Close;e.Quit;delete(e); 

Answer 1

好吧，我发现后发现它。
我们可以通过改变来获得这个

eCO.Chart.ChartType = 65; 到eCO.Chart.ChartType = 57;

 e = actxserver('excel.application'); eWs = e.Workbooks; eW = eWs.Add; eS = eW.ActiveSheet; e.Visible = 1; x=(0:2:100)';y=sin(x); eS.Range('A1:B50').Value = [xy]; eCO = eS.ChartObjects.Add(100, 30, 400, 250); eC = eCO.Chart; eC.SeriesCollection.NewSeries; eC.SeriesCollection(1).Value = eS.Range('B1:B50'); eC.SeriesCollection(1).XValue = eS.Range('A1:A50'); eCO.Chart.ChartType = 1; eCO.Chart.ChartType = 57; eCO.Chart.HasTitle = true; eCO.Chart.ChartTitle.Text = 'This is the title text'; % view it again eW.Close;e.Quit;delete(e); 

要进一步参考其他图表，请查看http://it.toolbox.com/wiki/index.php/EXCEL_Chart_Type_Enumeration