Macros/Basic/Calc/Gráficos
< Macros | Basic/Calc
Jump to navigation
Jump to search
TDF LibreOffice Document Liberation Blogs comunitarios Weblate Nextcloud Redmine Ask LibreOffice Apoyo al proyecto
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
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
Circular
charts.addNewByName(chart_name, rec, mRangos, True, True)
chart = charts.getByName(chart_name).EmbeddedObject
chart.Diagram = chart.createInstance("com.sun.star.chart.PieDiagram")