dash and Chart.Diagram.YHelpGrid

fr-users
#1

Bonjour je n'arrive pas à appliquer une ligne personnalisé de tirettée
ci-dessous ma démarche.
 
j'obtiens un type de ligne tirettée par défaut et non celui que j'ai fixé.
 
cordialement
 
 
REM  *****  BASIC  *****
Option Explicit
 
public valeur as Object
 
Sub DefinirTirete()
Dim monDocument As Object, maPage As Object, maForme As Object
Dim mesTirets As New com.sun.star.drawing.LineDash
monDocument = ThisComponent
maForme = valeur
With mesTirets
  .Style = com.sun.star.drawing.DashStyle.RECT
  .Dots = 0       '  0 points
  .DotLen = 50    ' de 0,5 mm
  .Dashes = 1     ' suivis de 1 tirets
  .DashLen = 500  ' de 5 mm
  .Distance = 150 ' espacés de 1,5 mm
End With
maForme.LineWidth = 1 ' 1 mm d'épaisseur
maForme.LineDash(mesTirets)
maForme.LineStyle = com.sun.star.drawing.LineStyle.DASH
maForme.lineDash.dashLen =500
 
End Sub
 
 
sub Main
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
Dim mesTirets As New com.sun.star.drawing.LineDash
 
Rect.X = 8000
Rect.Y = 1000
Rect.Width = 20000
Rect.Height = 8000
RangeAddress(0).Sheet = 1
RangeAddress(0).StartColumn = 0
RangeAddress(0).StartRow = 0
RangeAddress(0).EndColumn = 5
RangeAddress(0).EndRow = 50
 
Doc = ThisComponent
 
Charts = Doc.Sheets(1).Charts
'Charts.addNewByName("MyChart1", Rect, RangeAddress(), True, true)' ajoute un graphe
Chart = Charts.getByName("MyChart1").EmbeddedObject
Chart.Diagram = Chart.createInstance("com.sun.star.chart.Diagram")
chart.diagram.stacked = true
chart.diagram.Vertical = true 'passage horizontale du graphe
Chart.HasMainTitle = True
chart.Title.String = "diagramme 70s"
Chart.Diagram.YAxis.linecolor= RGB(0,0,0)'couleur de l'axes Y
Chart.Diagram.XAxis.linecolor= RGB(0,0,0)'couleur de l'axe X
Chart.Diagram.YAxis.Min = 0
Chart.Diagram.YAxis.Max = 65
Chart.Diagram.HasYAxisHelpGrid=true
Chart.Diagram.HasxAxisGrid=true 'affichage de la grille principal en x
'chart.diagram.Yaxis.AutoStepHelp=false 'pas necessaire
Chart.Diagram.Yaxis.StepMain=5 'intervalle des axes y principaux
Chart.Diagram.Yaxis.StepHelpCount=5 'intervalle des axes secondaires
valeur = Chart.Diagram.YHelpGrid
DefinirTirete()
Chart.Diagram.YHelpGrid.LineDash = mesTirets
Chart.Diagram.YHelpGrid.LineStyle = com.sun.star.drawing.LineStyle.DASH
 
Chart.Diagram.YHelpGrid.LineColor = RGB(2, 149, 248)'couleur de l'axes y secondaire
Chart.Diagram.YMainGrid.LineColor = RGB(0, 0, 0) 'couleur de l'axe y principale
Chart.Diagram.YMainGrid.LineWidth = 31 'épaisseur du traie des axes y principaux
Chart.Diagram.XMainGrid.LineColor = RGB(0, 0, 0) 'couleur de l'axe x principale
 
 
end sub

#2

Bonsoir,

Pouvez-vous nous passer votre exemple avec la macro, en supprimant toute
donnée confidentielle.

Attention, la liste n'autorise pas les pièces jointes, il faut soit utiliser
un site de dépôt, soit utiliser la passerelle Nabble:
http://nabble.documentfoundation.org/Users-f1744091.html

Merci,
Michel

#3

Bonjour et merci de s'intéresser à mon problème.étant néophyte je fais
sûrement des erreurs mais là je sèche.je joint le fichier.cordialement
test_graph2.ods
<http://nabble.documentfoundation.org/file/n4070968/test_graph2.ods>

#4

Bonjour,

De : yoyo63 [mailto:lionel.maillet125@orange.fr]
Envoyé : mercredi 21 août 2013 18:24
À : users@fr.libreoffice.org
Objet : [fr-users] Re: dash and Chart.Diagram.YHelpGrid

Bonjour et merci de s'intéresser à mon problème.étant néophyte je fais
sûrement des erreurs mais là je sèche.je joint le fichier.cordialement
test_graph2.ods
<http://nabble.documentfoundation.org/file/n4070968/test_graph2.ods>

En effet, les sous-propriétés ne peuvent être écrites. Je suppose que ton
exemple est inspiré du tutoriel OOo-API où il est donné pour le contour d'un
dessin. Il se peut que la propriété LineDash pour une grille d'un diagramme
ne soit pas accessible (bien que présente dans l'objet YHelpGrid) et que
l'on ne puisse accéder qu'aux propriétés paramétrables manuellement.
Par exemple: maForme.LineDashName="Fine Dashed" donne bien des tirets fins.

Il faut utiliser la terminologie anglaise, pour la trouver, il suffit de
passer l'interface en anglais (Options > Paramètres linguistiques > Langues)

Je ne connais pas assez l'API pour dire si ce comportement est normal ou
pas.

Bonne journée,
Michel

#5

Merci pour votre recherche et vos informations

C'est bien à la même conclusion ou j'en étais arrivé!

Mais étant novice je me suis dit que je ne devais pas savoir comment il fallait faire pour modifier surtout que sur les sites d'aide en ligne
http://www.openoffice.org/api/docs/common/ref/com/sun/star/chart/ChartGrid.html

Certe c'est pour openoffice mais il me semble que c'est la même chose.

Cordialement

Envoyé de mon iPad