Discussion :

[Grimoult]

Bonjour à tous,
Je suis débutant et je cherche à changer l'épaisseur ( ainsi que d'autre modification expliqué plus bas) de la courbe d'un graphique que j'ai créé via une macro. Le code que j'ai utilisé est totalement copié sur un code présenté sur ce forum, seulement voilà, je ne sais pas comment aller plus loin. vous trouverez ci-joint mon code :

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
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
oDoc = ThisComponent 
 
'Le graphique sera positionné dans la 2eme feuille du classeur  
oCharts = oDoc.Sheets(1).Charts  
 
'--- Spécfie la position et les dimensions du graphique --- 
  Rect.X = 1000 'horizontal 
  Rect.Y = 14000 'vertical 
  Rect.Width = 24000 'Largeur 
  Rect.Height = 13000 'Hauteur 
'---------------------------------------------------------- 
 
'--- Spécifie la source du graphique --- 
'Les données sont dans la plage A1:D30 
'La première colonne correspond à l'axe des abscisses (une série de dates par exemple) 
'Les autres colonnes contiennent les valeurs d'ordonnées 
'La première ligne contient les étiquettes des séries 
  Source(0).Sheet = 2 '3ème feuille du graphique 
  Source(0).StartColumn = 3 'Colonne D
  Source(0).StartRow = 0  ' Ligne1 (attentio première ligne = étiquette)
  Source(0).EndColumn = 6 'Colonne fin 
  Source(0).EndRow = valeurt 'Ligne fin
 
 'Création du graphique 
oCharts.addNewByName("Courbe des moments réduits",Rect ,Source(),True , True)  
 
'Place le graphique dans la feuille de calcul 
oChart = oCharts.getByName("Courbe des moments réduits").EmbeddedObject  
 
 
With oChart 
  'Type de graphique (Scatters) 
  .Diagram = oChart.createInstance("com.sun.star.chart.XYDiagram") 
 
  'Lissage des lignes (0: pas de lissage, 1: spline cubique, 2: spline B) 
  oChart.Diagram.SplineType = 0 
  'Change le symbole des points 
  oChart.Diagram.SymbolType = com.sun.star.chart.ChartSymbolType.NONE  
 
  'Modifie la couleur de fond du graphique 
  .Diagram.wall.FillColor =RGB(255,255,255) 
 
  'Spécifie la valeur maxi de l'étiquette des ordonnées 
  '.Diagram.YAxis.Max = 200 
 
  'Attribue un titre à l'axe des abscisses 
  .Diagram.HasXAxisTitle = True  
  .Diagram.XAxisTitle.string = "X"  
 
  'Attribue un titre à l'axe des ordonnées   
  .Diagram.HasYAxisTitle = True  
  .Diagram.YAxisTitle.string = "M"  
 
  'La première ligne contient les étiquettes des séries  
  .DataSourceLabelsInFirstColumn = False 
  .DataSourceLabelsInFirstRow = True 
 
  'Roration des étiquettes pour l'axe des abscisses 
  '.Diagram.XAxis.TextRotation = 9000 '90 degrés 
 
  'redéfinit la taille des étiquettes pour les abscisses et les ordonnées 
  .Diagram.YAxis.CharHeight = 4 
  .Diagram.XAxis.CharHeight = 4 
 
  'Attribue un titre au graphique puis un couleur à la chaîne de caractères 
  .Title.String = "Courbe des moments réduits" 
  .Title.CharColor = RGB(0,0,0) 
 
	'inverse le sens des y
   .Diagram.YAxis.ReverseDirection = true

Ce que je recherche (si cela existe) est donc :
- un bout de code adapté pour modifier l'épaisseur des courbes tracés par le code
- un bout de code pour modifier la taille des étiquette des axes X et Y
- un bout de code pour afficher toutes les valeurs (étiquettes) de une seul série

J'espère que mon message est assez clair et que vous pourrez m'aider

[Invité]

Bonjour,

Eh bien je pense que vous pouvez y arriver tout seul en créant une macro puis en modifiant manuellement chacune des propriétés souhaitées sur votre graphique. Une fois terminées vos modifications, fermez la macro et regardez ce qui aura été modifié avec l'enregistreur de macro.
C'est cette méthode que nous employons lorsque nous ne connaissons pas la syntaxe.

[Pierre Fauconnier]

Salut.

Perso, je ne suis pas adepte de créer un graphique par macro. Normalement, le graphique préexiste à son utilisation. Ca fait partie de la conception d'un classeur de créer un graphique avec les outils de l'interface Excel, et c'est pour moi un défaut de conception que de devoir le créer par macro.

On crée le décor (tableaux structurés, graphiques, TCD, formules, etc) et on y amène les données, éventuellement par VBA. Toute autre approche va immanquablement déboucher sur l'usine à gaz...


My two cents