Bonjour, Il y a une nouvelle soumission de bug déposée en français. L'un d'entre vous peut-il le confirmer ou le traduire pour nous.
Composant: BASIC Version: 4.1.0.4 release Keywords: Sujet: BASIC: appliquer une ligne tirettée avec dash sur Chart.Diagram.YHelpGrid Description longue: Description du problème : je n'arrive pas avec basic à imposer une linedash pernsonalisé Étapes pour reproduire : 1. … 2. … 3. … Comportement actuel : par défaut l'application génère une linedash qui est prédéfini dans calc Comportement attendu : je voudrais appliquer m'a définition de la ligne DASH. et non prendre un type de ligne que je n'ai pas défini. 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 Système d'exploitation: Windows (Autre) Version: 4.1.0.4 release Merci de nous aider, BSA -- Envoyez un mail à qa+unsubscr...@fr.libreoffice.org pour savoir comment vous désinscrire Les archives de la liste sont disponibles à http://listarchives.libreoffice.org/fr/qa/ Tous les messages envoyés sur cette liste seront archivés publiquement et ne pourront pas être supprimés