1

我正在编写一个宏来在 OpenOffice Basic 中生成饼图，并且我想在图表上显示不同部分的百分比。例如，我想要以下链接中的结果：

https://docs.microsoft.com/en-us/sql/reporting-services/report-design/display-percentage-values-on-a-pie-chart-report-builder-and-ssrs

这是我的可重现代码：

我的数据是：

https://i.stack.imgur.com/hwdDz.png

和宏：

Sub Macro1

 Dim oRange as Object
 Dim oRangeAddress(1) As New com.sun.star.table.CellRangeAddress
 Dim oRect As New com.sun.star.awt.Rectangle
 Dim cTitle as String

oRange = thisComponent.getCurrentSelection.getRangeAddress
oSheets = ThisComponent.getSheets()
oSheet = oSheets.getByIndex(0)
oCharts = oSheet.Charts

oRect.Width = 10000
oRect.Height = 10000
oRect.X = 8000
oRect.Y = 1000

oRangeAddress(0).Sheet = oRange.Sheet
oRangeAddress(0).StartColumn = 0
oRangeAddress(0).StartRow = 0
oRangeAddress(0).EndColumn = 1
oRangeAddress(0).EndRow = 2

cTitle = "Test Results"
oCharts.addNewByName(cTitle,oRect,oRangeAddress(),TRUE, TRUE)
oChart = oCharts.getByName(cTitle).embeddedObject
oChart.Diagram = oChart.createInstance("com.sun.star.chart.PieDiagram")
oChart.HasMainTitle = True
oChart.Title.String = cTitle

End Sub

非常感谢您的帮助！我发现 OOo basic 的文档很难理解，而且很差。

4

1 回答 1

1

从https://forum.openoffice.org/en/forum/viewtopic.php?t=44377开始，我最终想出了满足您需要的代码。

rowProps = oChart.Diagram.getDataRowProperties(0)
rowProps.DataCaption = com.sun.star.chart.ChartDataCaption.PERCENT
Dim oLocale As New com.sun.star.lang.Locale
rowProps.PercentageNumberFormat = ThisComponent.getNumberFormats().queryKey(_
   "0%", oLocale, True)

可以在https://wiki.openoffice.org/wiki/Documentation/DevGuide/OfficeDev/Managing_Number_Formats找到有关数字格式的文档，例如。Basic 中的许多常见任务都有很好的文档记录，但是您所做的事情有些不寻常，因此文档相当晦涩。

请随时寻求帮助——你的问题写得很好。通过练习，使用 UNO API 会变得更容易。

于 2017-10-06T16:34:37.673 回答