当前位置:编程学习 > VB >>

怎样把数据库的MSChart分析图形自动写如Word报表中?

怎样把数据库的MSChart分析图形自动写如Word报表中? --------------------编程问答-------------------- 难道没有解决这个问题的方法吗?
请大侠指点迷津!!!
谢谢!!! --------------------编程问答-------------------- 大侠,快来帮助我呀!!!!
谢谢!!!! --------------------编程问答-------------------- 大侠,快来帮助我呀!!!!
谢谢!!!! --------------------编程问答--------------------
类似这样,我是写到excel,你改成word对象就行了

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
--------------------编程问答--------------------



Private Sub Command1_Click()

MSChart1.EditCopy     
SavePicture Clipboard.GetData, "f:\aaa.bmp" 
    

Dim wordApp As New Word.Application
Dim fileName As String
fileName = "normal.dot"
Dim newTemplate As Boolean
newTemplate = False
Dim wordDoc As Word.Document
Dim docType As Integer
docType = 0
Dim isVisible As Boolean
isVisible = True
wordApp.Visible = True
Set wordDoc = wordApp.Documents.Add(fileName, newTemplate, docType, isVisible)

wordDoc.Activate
wordDoc.InlineShapes.AddPicture fileName:="f:\aaa.bmp"

 
End Sub



补充:VB ,  数据库(包含打印,安装,报表)
CopyRight © 2012 站长网 编程知识问答 www.zzzyk.com All Rights Reserved
部份技术文章来自网络,