Précédent   Forum du club des développeurs et IT Pro > Logiciels > Autres Logiciels > OpenOffice & LibreOffice
OpenOffice & LibreOffice Forum d'entraide sur OpenOffice.org et LibreOffice. Avant de poster : La F.A.Q OpenOffice
Partagez cette discussion sur d'autres réseaux sociaux : Viadeo Twitter Google Facebook Digg Delicious MySpace Yahoo
Réponse
 
Outils de la discussion
Publicité
'
Vieux 03/07/2012, 14h39   #1
rominous41
Nouveau Membre du Club
 
Homme
Étudiant
Inscription : mai 2009
Messages : 129
Détails du profil
Informations personnelles :
Sexe : Homme
Localisation : France

Informations professionnelles :
Activité : Étudiant

Informations forums :
Inscription : mai 2009
Messages : 129
Points : 33
Points : 33
Par défaut LibreOffice 3.5 créer des tableaux

Bonjour,

Je ne sais pas si je peu trouver une réponse a ma question ici mais j'ai une application java qui me crée des fichier logs au format cvs. Je peux donc ouvrir c'est fichiers dans lequel sont enregistré pleins de données. J'aimerais faire une macro qui fasse automatiquement les diagrammes.

Je sais que je ne suis pas sous Excel mais peut être que quelqu'un pourra me répondre.

En utilisant la doc de LibreOffice j'ai trouvé ceci
Code :
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
Dim Doc As Object
Dim Charts As Object
Dim Chart as Object
Dim Rect As New com.sun.star.awt.Rectangle
Dim RangeAddress(0) As New com.sun.star.table.CellRangeAddress

Rect.X = 8000
Rect.Y = 1000
Rect.Width = 10000
Rect.Height = 7000
RangeAddress(0).Sheet = 1
RangeAddress(0).StartColumn = 5 
RangeAddress(0).StartRow = 2
RangeAddress(0).EndColumn = 6
RangeAddress(0).EndRow = 300

Doc = ThisComponent

Charts = Doc.Sheets(0).Charts
Charts.addNewByName("MyChart", Rect, RangeAddress(), True, True)
Chart = Charts.getByName("MyChart").EmbeddedObject
Chart.HasMainTitle = True
Chart.Title.String = "Main Title String"
Chart.HasSubTitle = True
Chart.Subtitle.String = "Subtitle String"
Chart.HasLegend = True 
Chart.Legend.Alignment = com.sun.star.chart.ChartLegendPosition.BOTTOM
Chart.Legend.FillStyle = com.sun.star.drawing.FillStyle.SOLID
Chart.Legend.FillColor = RGB(210, 210, 210)
Chart.Legend.CharHeight = 7

End Su
mais j'ai une erreur à l'execution pour la ligne :
Code :
Charts = Doc.Sheets(0).Charts
ça me dit :
Citation:
propriety or method not found Sheets
je trouve ça bizzare qu'il ne puisse pas trouver cette méthode.

Merci d'avance à ceux qui me répondront

bonne journée à tous
rominous41 est déconnecté   Envoyer un message privé Réponse avec citation 00
Vieux 03/07/2012, 15h39   #2
rominous41
Nouveau Membre du Club
 
Homme
Étudiant
Inscription : mai 2009
Messages : 129
Détails du profil
Informations personnelles :
Sexe : Homme
Localisation : France

Informations professionnelles :
Activité : Étudiant

Informations forums :
Inscription : mai 2009
Messages : 129
Points : 33
Points : 33
Par défaut réponse

Pour ceux que ça intéressera le bug était du au fait que je n’exécutais pas ma macro sur ma feuille donc il ne la trouvé pas.

sinon pour créer des tableaux à partir de macro il y a tous ce qu'il faut ici :http://ooo.developpez.com/faq/?page=Graphique
rominous41 est déconnecté   Envoyer un message privé Réponse avec citation 00
Réponse Cette discussion est résolue.
Outils de la discussion

Navigation rapide


Fuseau horaire GMT +2. Il est actuellement 01h26.


 
 
 
 
Partenaires

Hébergement Web