Makros/Basis/Calc/Grafen

    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:

    Zurück zum Inhaltsverzeichnis

    Grafen in Calc

    Spalten

    Der Standard Wert für alle neuen Grafiken ist Spalten

    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

    Grafik-Spalten erstellen

    Balken

    Um zu Balken zu wechseln braucht nur die Ausrichtung geändert zu werden.

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

    Balkengrafiken erstellen

    Tortengrafik

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