Question

请问怎么把mschart图导出到excel中去 求具体方案

C#的

Answer 1

给你个原创函数吧，第一次发布
Private Sub MSChart2Excel(MMSChart As MSChart, StartRowNumber As Integer, StartColNumber As Integer)
Dim XlApp As New Excel.Application
Dim XlBook As New Excel.Workbook
Dim XlSheet As New Excel.Worksheet
Set XlBook = XlApp.Workbooks.Add
Set XlSheet = XlBook.Worksheets(1)
XlApp.Visible = True
XlSheet.Range(XlSheet.Cells(StartRowNumber, StartColNumber), XlSheet.Cells(MMSChart.RowCount, MMSChart.ColumnCount)).Value = MMSChart.ChartData
XlApp.Charts.Add
XlBook.ActiveChart.ChartType = xlColumnClustered
XlBook.ActiveChart.SetSourceData Source:=Sheets("Sheet1").Range(XlSheet.Cells(StartRowNumber, StartColNumber), XlSheet.Cells(MMSChart.RowCount, MMSChart.ColumnCount)) ', PlotBy:=xlColumns
XlBook.ActiveChart.Location Where:=xlLocationAsObject, Name:="Sheet1"
End Sub
Private Sub Command1_Click()
MSChart2Excel MSChart1, 1, 1
End Sub
Private Sub Form_Load()
MSChart1.RowCount = 8
MSChart1.ColumnCount = 8
For i = 1 To MSChart1.RowCount
MSChart1.Row = i
For j = 1 To MSChart1.ColumnCount
MSChart1.Column = j
MSChart1.Data = i * j
Next j
Next i
End Sub

Answer 2

MsChart自身就支持保存为图片，有了图片你要放到Exce还是Word什么的里面都不是问题

请使用 Chart.SaveImage 方法 将图表另存为图片，然后你可以把它用在任何地方