Macro/Basic/Calc/Grafici

    From The Document Foundation Wiki
    This page is a translated version of the page Macros/Basic/Calc/Graphs and the translation is 100% complete.
    Other languages:

    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")