Macro/Basic/Calc/Grafici

From The Document Foundation Wiki
Jump to navigation Jump to search
This page is a translated version of the page Macros/Basic/Calc/Graphs and the translation is 100% complete.
Other languages:
English • ‎español • ‎italiano

Ritorna all'indice

Grafici in Calc

Colonne

Il tipo predefinito per tutti i nuovi grafici è a Colunna

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

Creare un grafico a colonne

Barre

Per modificarlo in un grafico a barre, modificate solo l'orientamento.

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

Creare un grafico a barre

Torta

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