Ask Your Question

Revision history [back]

click to hide/show revision 1
initial version

Graph in calc with star basic

Hello, I have problem with this code: the graph "Example_01" is created, but I don't see it

Can You help me?

Thank you


Sub CreateCalcWithSimpleChart

Dim oSheet 'Sheet containing the chart
Dim oRect 'How big is the chart
Dim oCharts 'Charts in the sheet
Dim oChart 'Created chart
Dim oAddress 'Address of data to plot
Dim sName$ 'Chart name
Dim oChartDoc 'Embedded chart object
Dim oTitle 'Chart title object
Dim oDiagram 'Inserted diagram (data).
Dim sDataRng$ 'Where is the data
Dim oCalcDoc

oCalcDoc = CreateCalcForChart()

    sName = "Example_01"
    sDataRng = "W71:AD120"
    oSheets = ThisComponent.getSheets()
    oSheet  = oSheets.getbyIndex(2)
    oAddress = oSheet.getCellRangeByName( sDataRng ).getRangeAddress()
    oCharts = oSheet.getCharts()

If NOT oCharts.hasByName(sName) Then
    oRect = createObject("com.sun.star.awt.Rectangle")
    oRect.X = 10000
    oRect.Y = 10000
    oRect.width = 200000
    oRect.Height= 100000
    ' The rectangle identifies the dimensions in 1/100 mm.
    ' The address is the location of the data.
    ' True indicates that column headings should be used.
    ' False indicates that Row headings should not be used.
    oCharts.addNewByName(sName, oRect, Array(oAddress), False, True)
End If

oChart = oCharts.getByName( sName )
oChart.setRanges(Array(oAddress))
oChartDoc = oChart.getEmbeddedObject()
'oChartDoc.attachData(oAddress)
oTitle = oChartDoc.getTitle()
oTitle.String = "Speed - Torque"

' Create a diagram.
oDiagram = oChartDoc.createInstance( "com.sun.star.chart.LineDiagram" )
oChartDoc.setDiagram( oDiagram )
oDiagram = oChartDoc.getDiagram()

' oDiagram.DataCaption = com.sun.star.chart.ChartDataCaption.VALUE oDiagram.DataRowSource = com.sun.star.chart.ChartDataRowSource.COLUMNS

end sub

Graph in calc with star basic

Hello, I have problem with this code: the graph "Example_01" is created, but I don't see it

Can You help me?

Thank you


L.O. 5.2.0.4

S.O. Windows7

Sub CreateCalcWithSimpleChart

Dim oSheet 'Sheet containing the chart
Dim oRect 'How big is the chart
Dim oCharts 'Charts in the sheet
Dim oChart 'Created chart
Dim oAddress 'Address of data to plot
Dim sName$ 'Chart name
Dim oChartDoc 'Embedded chart object
Dim oTitle 'Chart title object
Dim oDiagram 'Inserted diagram (data).
Dim sDataRng$ 'Where is the data
Dim oCalcDoc

oCalcDoc = CreateCalcForChart()

    sName = "Example_01"
    sDataRng = "W71:AD120"
    oSheets = ThisComponent.getSheets()
    oSheet  = oSheets.getbyIndex(2)
    oAddress = oSheet.getCellRangeByName( sDataRng ).getRangeAddress()
    oCharts = oSheet.getCharts()

If NOT oCharts.hasByName(sName) Then
    oRect = createObject("com.sun.star.awt.Rectangle")
    oRect.X = 10000
    oRect.Y = 10000
    oRect.width = 200000
    oRect.Height= 100000
    ' The rectangle identifies the dimensions in 1/100 mm.
    ' The address is the location of the data.
    ' True indicates that column headings should be used.
    ' False indicates that Row headings should not be used.
    oCharts.addNewByName(sName, oRect, Array(oAddress), False, True)
End If

oChart = oCharts.getByName( sName )
oChart.setRanges(Array(oAddress))
oChartDoc = oChart.getEmbeddedObject()
'oChartDoc.attachData(oAddress)
oTitle = oChartDoc.getTitle()
oTitle.String = "Speed - Torque"

' Create a diagram.
oDiagram = oChartDoc.createInstance( "com.sun.star.chart.LineDiagram" )
oChartDoc.setDiagram( oDiagram )
oDiagram = oChartDoc.getDiagram()

' oDiagram.DataCaption = com.sun.star.chart.ChartDataCaption.VALUE oDiagram.DataRowSource = com.sun.star.chart.ChartDataRowSource.COLUMNS

end sub

click to hide/show revision 3
None

Graph in calc with star basic

Hello, I have problem with this code: the graph "Example_01" is created, but I don't see it

Can You help me?

Thank you

L.O. 5.2.0.4

S.O. Windows7

Sub CreateCalcWithSimpleChart

  Sub CreateCalcWithSimpleChart

Dim oSheet 'Sheet containing the chart
Dim oRect 'How big is the chart
Dim oCharts 'Charts in the sheet
Dim oChart 'Created chart
Dim oAddress 'Address of data to plot
Dim sName$ 'Chart name
Dim oChartDoc 'Embedded chart object
Dim oTitle 'Chart title object
Dim oDiagram 'Inserted diagram (data).
Dim sDataRng$ 'Where is the data
Dim oCalcDoc

oCalcDoc = CreateCalcForChart()

    sName = "Example_01"
    sDataRng = "W71:AD120"
    oSheets = ThisComponent.getSheets()
    oSheet  = oSheets.getbyIndex(2)
    oAddress = oSheet.getCellRangeByName( sDataRng ).getRangeAddress()
    oCharts = oSheet.getCharts()

If NOT oCharts.hasByName(sName) Then
    oRect = createObject("com.sun.star.awt.Rectangle")
    oRect.X = 10000
    oRect.Y = 10000
    oRect.width = 200000
    oRect.Height= 100000
    ' The rectangle identifies the dimensions in 1/100 mm.
    ' The address is the location of the data.
    ' True indicates that column headings should be used.
    ' False indicates that Row headings should not be used.
    oCharts.addNewByName(sName, oRect, Array(oAddress), False, True)
End If

oChart = oCharts.getByName( sName )
oChart.setRanges(Array(oAddress))
oChartDoc = oChart.getEmbeddedObject()
'oChartDoc.attachData(oAddress)
oTitle = oChartDoc.getTitle()
oTitle.String = "Speed - Torque"

' Create a diagram.
oDiagram = oChartDoc.createInstance( "com.sun.star.chart.LineDiagram" )
oChartDoc.setDiagram( oDiagram )
oDiagram = oChartDoc.getDiagram()
'   oDiagram.DataCaption = com.sun.star.chart.ChartDataCaption.VALUE
oDiagram.DataRowSource = com.sun.star.chart.ChartDataRowSource.COLUMNS

end sub

' oDiagram.DataCaption = com.sun.star.chart.ChartDataCaption.VALUE oDiagram.DataRowSource = com.sun.star.chart.ChartDataRowSource.COLUMNS

end sub