Home All Groups Group Topic Archive Search About

MS Word Chart filled with data - URGENT PLEASE

Author
5 Oct 2006 4:03 AM
vbnetdev
My boss wants this done in a day. I would be happy with a week!

Anyway, I have a dataset filled with data and need to populate an MS word
chart with it when writing a report. Any tutorials or suggestions would be
great.

Sample data at http://www.kjmsolutions.com/sample.txt

Author
5 Oct 2006 5:56 AM
Peter Huang" [MSFT]
Hi,

Here I understand that you means the Chart that using Word Menu,
Insert/Picture/Chart.
So I think you may try to transfer the DataSet to a Excel Workbook and then
import the excel file into the Chart.

Here is a VBA macro for your reference, but it is easy to run the similar
code in VB.NET.

Sub Macro1()
Dim oChart As Graph.Chart 'Add reference to Graph Object library
Set oChart =
Selection.InlineShapes.AddOLEObject(ClassType:="MSGraph.Chart.8",
LinkToFile:=False, DisplayAsIcon:=False).OLEFormat.Object
oChart.Application.FileImport "C:\temp\TestABC.xls"
End Sub

How to automate Word from Visual Basic .NET to create a new document
http://support.microsoft.com/default.aspx?scid=kb;[LN];316383

How to automate Microsoft Word to perform a mail merge from Visual Basic
.NET
http://support.microsoft.com/default.aspx?scid=kb;[LN];302816

How to automate Microsoft Word to perform a mail merge from Visual Basic
.NET
http://support.microsoft.com/default.aspx?scid=kb;[LN];301656

Here is a link about how to transfer data into Excel Workbook in VB.NET.
How to transfer data to an Excel workbook by using Visual Basic .NET
http://support.microsoft.com/default.aspx?scid=kb;[LN];306022

You may have a try and let me know the result.

If I misunderstood or you have any conern on this issue, please feel free
to let me know and I am glad to be of assistance.


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.
Author
5 Oct 2006 6:05 AM
vbnetdev
Can you possibly demonstrate in the Set oChart statement the use of a
dataset?




Show quoteHide quote
""Peter Huang" [MSFT]" <v-phu***@online.microsoft.com> wrote in message
news:yXdF6LE6GHA.4344@TK2MSFTNGXA01.phx.gbl...
> Hi,
>
> Here I understand that you means the Chart that using Word Menu,
> Insert/Picture/Chart.
> So I think you may try to transfer the DataSet to a Excel Workbook and
> then
> import the excel file into the Chart.
>
> Here is a VBA macro for your reference, but it is easy to run the similar
> code in VB.NET.
>
> Sub Macro1()
> Dim oChart As Graph.Chart 'Add reference to Graph Object library
> Set oChart =
> Selection.InlineShapes.AddOLEObject(ClassType:="MSGraph.Chart.8",
> LinkToFile:=False, DisplayAsIcon:=False).OLEFormat.Object
> oChart.Application.FileImport "C:\temp\TestABC.xls"
> End Sub
>
> How to automate Word from Visual Basic .NET to create a new document
> http://support.microsoft.com/default.aspx?scid=kb;[LN];316383
>
> How to automate Microsoft Word to perform a mail merge from Visual Basic
> NET
> http://support.microsoft.com/default.aspx?scid=kb;[LN];302816
>
> How to automate Microsoft Word to perform a mail merge from Visual Basic
> NET
> http://support.microsoft.com/default.aspx?scid=kb;[LN];301656
>
> Here is a link about how to transfer data into Excel Workbook in VB.NET.
> How to transfer data to an Excel workbook by using Visual Basic .NET
> http://support.microsoft.com/default.aspx?scid=kb;[LN];306022
>
> You may have a try and let me know the result.
>
> If I misunderstood or you have any conern on this issue, please feel free
> to let me know and I am glad to be of assistance.
>
>
> 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.
>
Author
6 Oct 2006 3:58 AM
Peter Huang" [MSFT]
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 Worksheet first.
Here the information for FileImport Method.

Imports a specified file or range, or an entire sheet 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 worksheet or workbook. If this
argument is omitted, the complete contents of the worksheet 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 datasheet.
The default value is True.
Example
This example imports data from the range A2:D5 on the worksheet named
"MySheet" 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.
Author
6 Oct 2006 3:59 AM
Peter Huang" [MSFT]
Hi,

In addition, here is the document for MS GRAPH Object Modal.
<Program Files>\Microsoft Office\OFFICE11\1033\VBAGR10.CHM

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.
Author
11 Oct 2006 10:10 AM
Peter Huang" [MSFT]
Hi,

I am posting to check how the thing is going on.
If you still have any concern on this issue, please feel free to let me
know.

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.
Author
15 Nov 2006 2:03 AM
vbnetdev
I ended up filling the sheet with data first like you mentioned. I apologize
for my late response as I had not known you posted.

Thanks again,
Kelly




Show quoteHide quote
""Peter Huang" [MSFT]" <v-phu***@online.microsoft.com> wrote in message
news:IkpaT2R7GHA.1864@TK2MSFTNGXA01.phx.gbl...
> Hi,
>
> I am posting to check how the thing is going on.
> If you still have any concern on this issue, please feel free to let me
> know.
>
> 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.
>
Author
5 Oct 2006 6:08 AM
vbnetdev
Let me explain....the data gets moved to an access database from the csv
file. I will actually be reading it from the access database. The csv file
itself is not usable due to bad formatting and column names being too long.

Also, could you demonstrate formatting of the chart within .NET?

--
Get a powerful web, database, application, and email hosting with KJM
Solutions
http://www.kjmsolutions.com



Show quoteHide quote
""Peter Huang" [MSFT]" <v-phu***@online.microsoft.com> wrote in message
news:yXdF6LE6GHA.4344@TK2MSFTNGXA01.phx.gbl...
> Hi,
>
> Here I understand that you means the Chart that using Word Menu,
> Insert/Picture/Chart.
> So I think you may try to transfer the DataSet to a Excel Workbook and
> then
> import the excel file into the Chart.
>
> Here is a VBA macro for your reference, but it is easy to run the similar
> code in VB.NET.
>
> Sub Macro1()
> Dim oChart As Graph.Chart 'Add reference to Graph Object library
> Set oChart =
> Selection.InlineShapes.AddOLEObject(ClassType:="MSGraph.Chart.8",
> LinkToFile:=False, DisplayAsIcon:=False).OLEFormat.Object
> oChart.Application.FileImport "C:\temp\TestABC.xls"
> End Sub
>
> How to automate Word from Visual Basic .NET to create a new document
> http://support.microsoft.com/default.aspx?scid=kb;[LN];316383
>
> How to automate Microsoft Word to perform a mail merge from Visual Basic
> NET
> http://support.microsoft.com/default.aspx?scid=kb;[LN];302816
>
> How to automate Microsoft Word to perform a mail merge from Visual Basic
> NET
> http://support.microsoft.com/default.aspx?scid=kb;[LN];301656
>
> Here is a link about how to transfer data into Excel Workbook in VB.NET.
> How to transfer data to an Excel workbook by using Visual Basic .NET
> http://support.microsoft.com/default.aspx?scid=kb;[LN];306022
>
> You may have a try and let me know the result.
>
> If I misunderstood or you have any conern on this issue, please feel free
> to let me know and I am glad to be of assistance.
>
>
> 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.
>