Discussion :

[Churay]

A partir de l'aide trouvée dans la partie OOo, je génère par macro un camembert

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
 
dim oDoc As Object
Dim Rect As New com.sun.star.awt.Rectangle 
Dim Source(0) As New com.sun.star.table.CellRangeAddress 
Dim oCharts As Object , oChart As Object
 
oDoc = ThisComponent
rem Graphique en Feuille 2 : A adapter au final
oCharts = oDoc.sheets(1).Charts
 
Rect.X = 1000		' Horizontal
Rect.Y = 500		' Vertical
Rect.Width = 14000	' Largeur
Rect.Height = 8000	' Haureur
 
source(0).Sheet = 0
source(0).StartColumn = 2
source(0).StartRow = 0
source(0).EndColumn = 3
source(0).EndRow = 6
 
 
oChart = oCharts.getByName("MonGraphique").EmbeddedObject 
 
With oChart
  .Diagram = oChart.createInstance("com.sun.star.chart.PieDiagram")
  .DataSourceLabelsInFirstColumn = True
  .DataSourceLabelsInFirstRow = False
rem  .Diagram.YAxis.CharHeight = 4
rem  .Diagram.XAxis.CharHeight = 4
  'Attribue un titre au graphique puis un couleur à la chaîne de caractères
  .Title.String = "Répartition"
  .Title.CharColor = RGB(200,0,0)
End With
 
oDoc.Sheets(0).getCellByPosition(7,2).String = "MonGraphique"

code qui produit le camembert cam1


La question : que dois-je modifier, et où, pour obtenir le camembert cam2,

qui diffère par :
- 3D activée
- couleurs choisies
- affichage des valeurs sous forme de pourcentages

Question annexe :

Toujours par macro : Comment modifier, le contenu de l'entête et/ou du pied de page, activer ou non le centrage vertical / horizontal, avant de lancer une impression. Donc en gros tout ce qui se trouve dans les onglets de [Format - Page]

Merci pour la/les réponse(s) qui viendra/viendront.
Et merci aussi pour la FAQ qui m'a permis de bien avancer avant de venir ici.