RE: [fr-users] dash and Chart.Diagram.YHelpGrid

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 

> De : lionel.maillet125 [mailto:lionel.maillet125@orange.fr]
> Envoyé : dimanche 18 août 2013 08:07
> À : users@fr.libreoffice.org
> Objet : [fr-users] dash and Chart.Diagram.YHelpGrid
>
> 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
>
>
>
>
> --
> View this message in context: http://nabble.documentfoundation.org/dash-
> and-Chart-Diagram-YHelpGrid-tp4070459.html
> Sent from the Users mailing list archive at Nabble.com.
> --
> Envoyez un mail à users+unsubscribe@fr.libreoffice.org pour savoir comment
> vous désinscrire
> Les archives de la liste sont disponibles à
> http://listarchives.libreoffice.org/fr/users/
> Tous les messages envoyés sur cette liste seront archivés publiquement et
> ne pourront pas être supprimés


-- 
Envoyez un mail à users+unsubscribe@fr.libreoffice.org pour savoir comment vous désinscrire
Les archives de la liste sont disponibles à http://listarchives.libreoffice.org/fr/users/
Tous les messages envoyés sur cette liste seront archivés publiquement et ne pourront pas être 
supprimés