怎样把数据库的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 , 数据库(包含打印,安装,报表)