Export an OpenOffice chart with VB6

pu8y · 11-16-2010, 04:05 AM

Hi all,

I am developing using vb6 to export a chart (line graph) to OpenOffice Calc.
I am using:

Code:

Chart.diagram = Chart.CreateInstance("com.sun.star.chart.LineDiagram")

to create the LineDiagram.

However, it is just a line diagram. What I need is a line graph with points plotted on it. How can I make it to LineDiagram with LINES AND POINTS?

Many thanks!

Sergei Steshenko · 11-16-2010, 12:11 PM

Does OpenOffice support Visual Basic ? AFAIR the built-in scripting language of OpenOffice is Python.

catkin · 11-16-2010, 12:16 PM

Quote:

Originally Posted by pu8y

I am developing using vb6 ...

Are you sure it is VB6? It looks like OOo Basic which is similar but not identical to VB6.

OOo's scripting languages are BeanShell, JavaScript, OOo Basic and Python.

pu8y · 11-16-2010, 06:38 PM

Yes it is VB6, my program generates a list in rows and columns, then creates a chart to represent the data in the table list. As code below:

Code:

Set Rect = oSM.Bridge_GetStruct("com.sun.star.awt.Rectangle")
Set RangeAddress(0) = oSM.Bridge_GetStruct("com.sun.star.table.CellRangeAddress")
Set Charts = oSheet.getCharts
            
Rect.x = 2200
Rect.Y = 3300
Rect.Width = 50000
Rect.Height = 15000
RangeAddress(0).Sheet = 0
RangeAddress(0).StartColumn = 1
RangeAddress(0).StartRow = 15
RangeAddress(0).EndColumn = 2
RangeAddress(0).EndRow = 14 + x
            
            
Call Charts.addNewByName("LineChart", Rect, RangeAddress(), True, True)
Set Chart = Charts.getByName("LineChart").embeddedObject
Chart.diagram = Chart.CreateInstance("com.sun.star.chart.LineDiagram")
Chart.diagram.HasXAxisTitle = True
Chart.diagram.XAxisTitle.String = "X"
Chart.diagram.HasYAxisTitle = True
Chart.diagram.YAxisTitle.String = "Y"

However it just came out with a line graph, I need a line graph with points, any idea?

catkin · 11-16-2010, 09:07 PM

What file type (.xls, ods ...) is the VB6 in, which office suite has it open (MS Office, OOo ...) and can you give more detail on what you mean by "export a chart (line graph) to OpenOffice Calc"?

pu8y · 11-16-2010, 09:40 PM

Actually it is VB6 and OOo Calc automation.

In my program I export the data to OpenOffice Calc file (.ods).
For example the data exported:
NO 1 2 3 4 5
VALUE 72 8 24 11 15

After that i intended to create a graph based on these data. I used:

Code:

Set Rect = oSM.Bridge_GetStruct("com.sun.star.awt.Rectangle")
Set RangeAddress(0) = oSM.Bridge_GetStruct("com.sun.star.table.CellRangeAddress")
Set Charts = oSheet.getCharts
            
Rect.x = 2200
Rect.Y = 3300
Rect.Width = 50000
Rect.Height = 15000
RangeAddress(0).Sheet = 0
RangeAddress(0).StartColumn = 0
RangeAddress(0).StartRow = 0
RangeAddress(0).EndColumn = 1
RangeAddress(0).EndRow = 5
            
            
Call Charts.addNewByName("LineChart", Rect, RangeAddress(), True, True)
Set Chart = Charts.getByName("LineChart").embeddedObject
Chart.diagram = Chart.CreateInstance("com.sun.star.chart.LineDiagram")
Chart.diagram.HasXAxisTitle = True
Chart.diagram.XAxisTitle.String = "X"
Chart.diagram.HasYAxisTitle = True
Chart.diagram.YAxisTitle.String = "Y"

Below is what I get. But i need a graph with lines and points plotted, as shown in another attachment.

catkin · 11-16-2010, 10:02 PM

Now we almost know what the question is ("OOo Calc automation" means launching OOo Calc and telling it to run a macro ...?) I have to apologise for not thinking ahead and realising this sort of in-depth OOo scripting question is seldom answered on LQ so OpenOffice.org community forum or OpenOffice.org Forum would be better places to ask the question. I'm still dubious that OOo runs VB6 and wonder if it could be detail differences between VB6 and OOo basic that are causing the problem.

pu8y · 11-16-2010, 10:53 PM

Yes I have asked for help in OpenOffice.org Forum, but seems like nobody can help me yet.
Looking around for experts in OpenOffice.