Forum OpenOffice LibreOffice NeoOffice

Code : Tout sélectionner

Dim oCharts As Object , oChart As Object
Dim Rect As New com.sun.star.awt.Rectangle  
Dim Source(0) As New com.sun.star.table.CellRangeAddress  

'Le graphique sera positionné dans la 5eme feuille du classeur  
oCharts = MonDocument.Sheets(5).Charts
' Spécfie la position et les dimensions du graphique --- 
  Rect.X = 30000 'horizontal 
  Rect.Y = 10000 'vertical 
  Rect.Width = 24000 'Largeur 
  Rect.Height = 13000 'Hauteur 

'--- Spécifie la source du graphique --- 
'Les données sont dans la plage D1:Fdeniereligne + 1
'La première colonne correspond à l'axe des abscisses 
'Les autres colonnes contiennent les valeurs d'ordonnées 
'La première ligne contient les étiquettes des séries 
  Source(0).Sheet = 5 '5eme feuille du graphique 
  Source(0).Startcolumn = 3 'Colonne D 
  Source(0).StartRow = 0  'Ligne 1 
  Source(0).Endcolumn = 5 'Colonne F
  Source(0).EndRow = derniereligne + 1
  
  'Création du graphique 
oCharts.addNewByName("Graphique",Rect,Source(),True , True)  
  
'Place le graphique dans la feuille de calcul 
oChart= oCharts.getByName("Graphique").EmbeddedObject  
oChart.Title.String = "Mon titre" 
With oChart
  'Type de graphique (Scatters) 
  .Diagram = oChart.createInstance("com.sun.star.chart.BarDiagram") 
  'Attribue un titre à l'axe des abscisses 
  .Diagram.HasXAxisTitle = True 
  .Diagram.YAxisTitle.string = "Titre axe"  
   
  'La première ligne contient les étiquettes des séries  
  .DataSourceLabelsInFirstCOLumn = True 
  .DataSourceLabelsInFirstRow = True
  .Diagram.XAxis.TextRotation = 4000
  .Diagram.XAxis.TextCanOverlap = True 
  .Diagram.Stacked = True
  .Legend.Alignment = com.sun.star.chart.ChartLegendPosition.TOP
  
End With
  'insertion des étiquettes de données

charttype = oChart.FirstDiagram.CoordinateSystems(0).ChartTypes(0)
series = charttype.DataSeries
for each serie in series
    label = serie.Label
    label.ShowNumber = True
    label.ShowNumberInPercent = false
    serie.Label = label
    serie.LabelPlacement = com.sun.star.chart.DataLabelPlacement.TOP
    serie.LabelSeparator = chr(10)
next serie

Code : Tout sélectionner

Sub ModifierDiagramme
Dim MonDocument As Object
Dim oCharts,  myChart As Object
MonDocument = ThisComponent
oCharts = MonDocument.Sheets(1).Charts
myChart = oCharts.getByIndex(0)
myChart.EmbeddedObject.Diagram.NumberofLines = 1
End Sub

Code : Tout sélectionner

Option Explicit
Sub CreateChartColLine()
Dim maFeuille as Object, oCharts as object, oChart as Object, oAdresse as Object
Dim oChartDoc as Object, oDiagram as Object, oTitle as Object, oChartTypeManager as Object
Dim oChartTypeTemplate as Object
Dim oName as String
Dim oRect as New "com.sun.star.awt.Rectangle"
	oName = "Mon Diagramme"
	maFeuille = thisComponent.sheets(1)
	oAdresse = thisComponent.Sheets(0).getCellRangeByName("A1:D7").getRangeAddress()
	oCharts = maFeuille.getCharts()
	If Not oCharts.hasByName(oName) Then
		oRect.X= 1000
		oRect.Y= 1000
		oRect.width = 18000
		oRect.Height= 10000
		oCharts.addNewByName(oName, oRect, Array(oAdresse), True, True)
	End If
	oChart = oCharts.getByName(oName)
	oChart.setRanges(Array(oAdresse))
	oChartDoc = oChart.getEmbeddedObject()
	oChartDoc.haslegend = True
	oTitle = oChartDoc.getTitle()
	oTitle.String = "Mon titre"
	oDiagram = oChartDoc.createInstance( "com.sun.star.chart.BarDiagram" )
	With oDiagram
		.DataCaption = 1
		.IncludeHiddenCells = False
		.RightAngledAxes = True
		.Stacked = True
		.getSecondaryAxis(0).AxisType = 1
		.DataRowSource = com.sun.star.chart.ChartDataRowSource.COLUMNS
	End With
	oChartDoc.setDiagram(oDiagram)
	oDiagram = oChartDoc.getDiagram()
	oChartTypeManager = oChartDoc.getChartTypeManager()
	oDiagram = oChartDoc.getFirstDiagram()
	oChartTypeTemplate = oChartTypeManager.createInstance("com.sun.star.chart2.template.StackedColumnWithLine")
	oChartTypeTemplate.changeDiagram(oDiagram)
End Sub