Re: MS Word Chart filled with data - URGENT PLEASE

Hi,

Here I provide some code about insert a chart into Word document and import
excel data into the chart and then format it.

Imports Word = Microsoft.Office.Interop.Word
Imports Graph = Microsoft.Office.Interop.Graph

Module Module1

Sub Main()
Dim wdApp As New Word.Application
wdApp.Visible = True
Dim oDoc As Word.Document = wdApp.Documents.Add
Dim oInlineShape As Word.InlineShape =
oDoc.Content.InlineShapes.AddOLEObject(ClassType:="MSGraph.Chart.8",
LinkToFile:=False, DisplayAsIcon:=False)
Dim oChart As Graph.Chart = oInlineShape.OLEFormat.Object
oChart.Application.FileImport("C:\temp\TestABC.xls")
oChart.BarShape = Graph.XlBarShape.xlPyramidToMax
oChart.DisplayBlanksAs = Graph.XlDisplayBlanksAs.xlInterpolated
oChart.ChartArea.Font.Italic = True
oChart.ChartArea.Interior.Color = RGB(128, 128, 128)
End Sub

End Module

NOTE: the FileImport did not accept an .NET DataSet, that is why I suggest
you transfer your data into Excel Work*** first.
Here the information for FileImport Method.

Imports a specified file or range, or an entire *** of data.
expression.FileImport(FileName, Password, ImportRange, WorksheetName,
OverwriteCells)
expression Required. An expression that returns an Application object.
FileName Required String. The file that contains the data to be imported.
Password Optional Variant. The password for the file to be imported, if the
file is password protected.
ImportRange Optional Variant. The range of cells to be imported, if the
file to be imported is a Microsoft Excel work*** or workbook. If this
argument is omitted, the complete contents of the work*** are imported.
WorksheetName Optional Variant. The name of the worksheet to be imported,
if the file to be imported is a Microsoft Excel workbook.
OverwriteCells Optional Variant. True to specify that the user be notified
before imported data overwrites existing data on the specified data***.
The default value is True.
Example
This example imports data from the range A2:D5 on the work*** named
"My***" in the Microsoft Excel workbook named "mynums.xls."
With myChart.Application
.FileImport FileName:="C:\mynums.xls", _
ImportRange:="A2:D5", WorksheetName:="MySheet", _
OverwriteCells:=False
End With

Please have a try and let me know the result.



Best regards,

Peter Huang

Microsoft Online Community Support
==================================================
When responding to posts, please "Reply to Group" via your newsreader so
that others may learn and benefit from your issue.
==================================================
This posting is provided "AS IS" with no warranties, and confers no rights.

.

Loading