Macros/Basic/Calc/Graphs/nl

This page is a translated version of the page Macros/Basic/Calc/Graphs and the translation is 100% complete.

TDF LibreOffice Document Liberation Project Blogs gemeenschap Weblate Nextcloud Redmine Ask LibreOffice Doneren

Other languages:

Grafieken in Calc

Kolommen

Het standaardtype voor alle nieuwe grafieken is Kolommen

sub main()
dim mRangos(0)
dim rec as new com.sun.star.awt.Rectangle

    doc = ThisComponent
    sheet = doc.CurrentController.ActiveSheet
    charts = sheet.charts
	
    chart_name = "MySuperGraph"
    if charts.hasByName(chart_name) then
        MsgBox "Chart exists"
        exit sub
    end if
	
    cell = sheet.getCellRangeByName("A1")
    cursor = sheet.createCursorByRange(cell)
    cursor.collapseToCurrentRegion()
    mRangos(0) = cursor.RangeAddress	
	
    with rec
        .X = 6000
        .Y = 0         
        .Width = 10000
        .Height = 10000
    end with
	
    charts.addNewByName(chart_name, rec, mRangos, True, True)	
	
end sub

Staven

Om naar staven te veranderen, verandert u gewoon de oriëntatie.

charts.addNewByName(chart_name, rec, mRangos, True, True)	
    chart = charts.getByName(chart_name).EmbeddedObject
    chart.Diagram.Vertical = True

Cirkel

charts.addNewByName(chart_name, rec, mRangos, True, True)	
    chart = charts.getByName(chart_name).EmbeddedObject
    chart.Diagram = chart.createInstance("com.sun.star.chart.PieDiagram")