[Solved] First column as caption in VB.net

[keosge]

Hi,
i use VB.net to insert and format a chart in an Open Office Calc file, then i need to set the first column as caption. I don't know how to try.

this is my code

Code: Select all

        Dim Charts As Object
        Dim Chart As Object
        Dim Rect As Object
        Dim RangeAddress(7) As Object



        RangeAddress(0) = oSM.Bridge_GetStruct("com.sun.star.table.CellRangeAddress")
        RangeAddress(0).Sheet = 0
        RangeAddress(0).StartColumn = 0
        RangeAddress(0).StartRow = 3
        RangeAddress(0).EndColumn = 0
        RangeAddress(0).EndRow = 13
        Dim i As Integer
        For i = 1 To 7
            RangeAddress(i) = oSM.Bridge_GetStruct("com.sun.star.table.CellRangeAddress")
            RangeAddress(i).Sheet = 0
            RangeAddress(i).StartColumn = i * 3 + 1
            RangeAddress(i).StartRow = 3
            RangeAddress(i).EndColumn = i * 3 + 1
            RangeAddress(i).EndRow = 13
        Next i
        '        RangeAddress(0) = oSM.Bridge_GetStruct("com.sun.star.table.CellRangeAddress")
        Rect = oSM.Bridge_GetStruct("com.sun.star.awt.Rectangle")
        Charts = os.charts
        Rect.X = 0
        Rect.Y = 7000
        Rect.Width = 34000
        Rect.Height = 9000


        Charts.addNewByName("MyChart", Rect, RangeAddress, False, False)
        Chart = Charts.getByName("MyChart").EmbeddedObject
        Chart.Diagram.Dim3D = True
        Chart.diagram.SolidType = 1
        Chart.diagram.deep = True

this is the layout i want

this is what i have now

can some body help me?

thank a lot

[Charlie Young]

The last two boolean parameters of addNewByName specify whether or not to use the first row and/or column of the data as labels, and you have these set to false.

If that isn't the problem, I realize you can't post the file with the charts because it's too big, but if you could post one with just the data, we could probably work with that and your code.

[keosge]

Thank a lot....

this forum is excellent two solution in half day.