[Solved] Data Labels in Pie Chart

[pu8y]

Hi all,

I am creating a simple pie chart from my VB program. This chart need to have all the value, percentage and category name as it's Data Labels. For a clearer picture I have attached the sample of chart.

However, the solution I have is not 100% meet with my requirements, which i can only set the DataCaption of each DataPoint to either 1, 2, or 4 (value, percentage or category). I hope to have ALL the value, percentage and category.

Code: Select all

Set aPointProp1 = oDiagram.getDataPointProperties(0, 0)
aPointProp1.DataCaption = 2
Set aPointProp2 = oDiagram.getDataPointProperties(1, 0)
aPointProp2.DataCaption = 2

I have read through this forum and finally i can conclude maybe I have to use DataPointLabel to achieve my requirements. I still have some errors which I cannot solve and not sure what is going wrong.

Code: Select all

Set oDiagram = chart.getDiagram
Set oFirstDiagram = chart.getFirstDiagram()
oCoordinateSystems = oFirstDiagram.getCoordinateSystems()
Set oObj_3 = oCoordinateSystems(0)
               
oChartTypes = oObj_3.getChartTypes()
Set oObj_4 = oChartTypes(0)
oDataSeries = oObj_4.getDataSeries()
Set oobj_5 = oDataSeries(0)
               
Set aLabel = oobj_5.getDataPointByIndex(0).getPropertyValue("Label")

aLabel.ShowNumberInPercent = True
aLabel.ShowCategoryName = True

There are error occur at code "Set aLabel = oobj_5.getDataPointByIndex(0).getPropertyValue("Label")" and hence it cannot proceed to set the chart with percentage and category name.
Any helping hands are greatly appreciated!

reference: http://api.openoffice.org/docs/common/r ... Label.html

[ms777]

I cannot reproduce this. This OOBasic code works for me

Code: Select all

Sub Main
oChartShape = ThisComponent.Drawpages.getByIndex(0).getByIndex(0)
oChartModel = oChartShape.EmbeddedObject.Component
oDataSeries = oChartModel.FirstDiagram.CoordinateSystems(0).ChartTypes(0).DataSeries(0)

Dim oLabelAll as new com.sun.star.chart2.DataPointLabel
oLabelAll.ShowCategoryName = True   
oLabelAll.ShowLegendSymbol = False   
oLabelAll.ShowNumber       = True   
oLabelAll.ShowNumberInPercent = True   

Dim oLabelNumberOnly as new com.sun.star.chart2.DataPointLabel
oLabelNumberOnly.ShowCategoryName = False   
oLabelNumberOnly.ShowLegendSymbol = False   
oLabelNumberOnly.ShowNumber       = True   
oLabelNumberOnly.ShowNumberInPercent = False

' this sets it for the whole series. At least for those points, which have not yet been touched separately
oDataSeries.Label = oLabelAll
' this sets it for the a single data point
oDataSeries.getDataPointByIndex(0).Label = oLabelNumberOnly
End Sub

Good luck,

ms777

[hanya]

It seems this problem cased by the object implementation and the binding. The getPropertyValue method of the data point is not callable through the binding of OOo Basic. Try to use puseud-property way like ms777's code.

[pu8y]

Re-check again but still no luck to get it success.
I think I have wrong syntax in creating instance of DataPointLabel in VB, any idea?

Code: Select all

Set oSM = CreateObject("com.sun.star.ServiceManager")
Set oLabelAll = oSM.Createinstance("com.sun.star.chart2.DataPointLabel")
oLabelAll.ShowCategoryName = True
oLabelAll.ShowLegendSymbol = False
oLabelAll.ShowNumber = True
oLabelAll.ShowNumberInPercent = True

[pu8y]

Hi All,

Finally I've found my solution. Should use GetStruct instead of create an instance.

Code: Select all

Set oLabelAll = oSM.Bridge_GetStruct("com.sun.star.chart2.DataPointLabel")
oLabelAll.ShowCategoryName = True

[vjlk16]

I am using vbscript and I get error "object required" at the following line.
Set oObj_3 = oCoordinateSystems(0)

[Charlie Young]

I am using vbscript and I get error "object required" at the following line.
Set oObj_3 = oCoordinateSystems(0)

Exactly what version of OpenOffice are you on? There were problems with 3.3.

viewtopic.php?f=44&t=38253

[vjlk16]

thanks for the reply.
i got the solution by using the following code:

Set oDiagram = oChart.getDiagram
Set aPointProp1 = oDiagram.getDataPointProperties(0, 0)
aPointProp1.DataCaption = 2
Set aPointProp2 = oDiagram.getDataPointProperties(1, 0)
aPointProp2.DataCaption = 2

for a 2 pieslice piechart