Macros/Basic/Calc/Gráficos

    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:

    Regresar al índice

    Gráficos en Calc

    Columnas

    De forma predeterminada, todos los nuevos gráficos son de Columnas

    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

    Crear gráfico de columnas

    Barras

    Para cambiar a gráfico de Barras, solo cambiar la orientación.

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

    Crear gráfico de barras

    Circular

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