Discussion :

[quark22]

Bonjour,

Je cherche à modifier un diagramme de type en ligne.

Code :

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

1
2
3
4
5
6
7
8
9
 
Dim diagramme_1 As Object
Dim diagrammes_1 As Object
 
diagrammes_1 = document.Sheets(5).Charts
diagrammes_1.addNewByName("diagramme_nom_1",diagrammes_position_dimension,diagrammes_donnees(),True,True)
 
diagramme_1 = diagrammes_1.getByName("diagramme_nom_1").EmbeddedObject
diagramme_1.Diagram = diagramme_1.createInstance("com.sun.star.chart.LineDiagram")

Je ne trouve pas la propriété de 'diagramme_1.Diagram' qui me permettrait d'avoir les lignes et les points pour le diagramme, pas juste les lignes.
J'ai regardé avec Xray, je ne trouve pas la bonne propriété.

merci pour votre aide

[quark22]

J'ai fini par trouver.

la propriété de diagramme_1.Diagram est SymbolType

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
 
	' modifier le symbole des points
	' SYMBOL0	=>	carré
	' SYMBOL1	=>	losange
	' SYMBOL2	=>	triangle vers le bas
	' SYMBOL3	=>	triangle vers le haut
	' SYMBOL4	=>	triangle multidirectionnel
	' SYMBOL5	=>	triangle multidirectionnel
	' SYMBOL6	=>	2 triangles qui se font face horizontalement
	' SYMBOL7	=>	2 triangles qui se font face verticalement
 
	diagramme_1.Diagram.SymbolType = com.sun.star.chart.ChartSymbolType.SYMBOL1

ligne à mettre après le

Code :

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

1
2
3
 
 
diagramme_1.Diagram = diagramme_1.createInstance("com.sun.star.chart.LineDiagram")