LibreOffice-Forum

Hey,

habe erfolglos nach dem entsprechenden API gesucht und nicht gefunden: Ich erstelle eine Tabelle und will dann, da in dieser die Data Labels angezeigt werden. Jedoch weis ich nicht ueber welches Object ich auf diese Funktion zugreifen kann um den Boolean Wert entsprechend zu setzen.
Hier mein Code:

Code: Alles auswählen

Dim Doc As Object
Dim Charts As Object
Dim Chart as Object
Dim Rect As New com.sun.star.awt.Rectangle
Dim RangeAddress(0) As New com.sun.star.table.CellRangeAddress
 
Doc = ThisComponent
Charts = Doc.Sheets.getByName(LmiReportSheetName).Charts
 
Rect.X = 7000
Rect.Y = 5000
Rect.Width = 20000
Rect.Height = 10000
RangeAddress(0).Sheet = 2
RangeAddress(0).StartColumn = 0 
RangeAddress(0).StartRow = 2
RangeAddress(0).EndColumn = 2
RangeAddress(0).EndRow = 2 + SelectedScope
 
Charts.addNewByName("Registered_Devices_By_Month", Rect, RangeAddress(), False, True)
Chart = Charts.getByName("Registered_Devices_By_Month").embeddedObject
Chart.Diagram = Chart.createInstance("com.sun.star.chart.BarDiagram")
Chart.HasMainTitle = True
Chart.Title.String = "Registered Devices By Month"
Chart.HasLegend = False 
' ???InsertDataLabels = true ?????

Gruss,
GlebG

Hi,
so z.B.:

Code: Alles auswählen

Sub Main

    Dim Doc As Object
    Dim Charts As Object
    Dim Chart as Object
    Dim Rect As New com.sun.star.awt.Rectangle
    Dim RangeAddress(0) As New com.sun.star.table.CellRangeAddress

    Doc = ThisComponent
    Charts = Doc.Sheets.getByName("LmiReportSheetName").Charts
    Rect.X = 7000
    Rect.Y = 5000
    Rect.Width = 20000
    Rect.Height = 10000
    RangeAddress(0).Sheet = 0
    RangeAddress(0).StartColumn = 0
    RangeAddress(0).StartRow = 2
    RangeAddress(0).EndColumn = 2
    RangeAddress(0).EndRow = 20' + SelectedScope ??? was ist das ???

    Charts.addNewByName("Registered_Devices_By_Month", Rect, RangeAddress(), False, True)
    Chart = Charts.getByName("Registered_Devices_By_Month").embeddedObject
    Chart.Diagram = Chart.createInstance("com.sun.star.chart.BarDiagram")
    Chart.HasMainTitle = True
    Chart.Title.String = "Registered Devices By Month"
    Chart.HasLegend = False
    oDataSequences = Chart.UsedData.DataSequences
    for i = 0 to ubound (oDataSequences)-1
        Chart.Diagram.getDataRowProperties(i).datacaption = 1
    next i
End Sub

Gruß R

LibreOffice-Forum

Wie aktiviere ich Data Labels vom einem Chart ?

Wie aktiviere ich Data Labels vom einem Chart ?

Re: Wie aktiviere ich Data Labels vom einem Chart ?