如题

解决方案 »

  1.   

    Private   Sub   Command1_Click()   
              MSChart1.EditCopy   
                
              SavePicture   Clipboard.GetData,   "f:\aaa.bmp"   
                
              Dim   xlApp   As   New   Excel.Application   
              Dim   xlBook   As   Excel.Workbook   
              Dim   xlSheet   As   Excel.Worksheet   
              Set   xlBook   =   xlApp.Workbooks().Add   
              Set   xlSheet   =   xlBook.Worksheets("sheet1")   
              ActiveSheet.Pictures.Insert("F:\aaa.bmp").Select   
              xlApp.Visible   =   True   
      End   Sub   
      
      

  2.   

    ....mschart生成的就是一张图片  直接右键另存为
      

  3.   

    ```我知道  我们准备做一个数据统计分析的软件   需求上要求将生成的统计图导出到word中····