Ich bi blutiger Anfänger und davon ist schon viel gespritzt 
Und ich hoffe auf eure Hilfe und natürlich erklärungen…
Ziel ist es soll die zweite Daten Serie (1)
sich an der zweiten Y anliegen mit neuer Scalierung,derzeit geht das so nicht obwohl die zweite Y Achse angezeit wird und ein RangeAddressDir(1) angelegt wird.
Also ich habe folgenden Code:
Sub CreateChartWDir(DestOsheet As Object)
Dim Doc As Object
Dim Charts As Object
Dim Chart as Object
Dim oSheet As Object
Dim xChart, oChart As Object
Dim GetSerie As Object
Dim Rect As New com.sun.star.awt.Rectangle
Dim RangeAddressDir(1) As New com.sun.star.table.CellRangeAddress
Rect.X = 8000
Rect.Y = 12000
Rect.Width = 10000*1.5
Rect.Height = 7000*1.5
RangeAddressDir(0).Sheet = 0
RangeAddressDir(0).StartColumn = 0
RangeAddressDir(0).StartRow = 0
RangeAddressDir(0).EndColumn = 1
RangeAddressDir(0).EndRow = 144
RangeAddressDir(1).Sheet = 0
RangeAddressDir(1).StartColumn = 2
RangeAddressDir(1).StartRow = 0
RangeAddressDir(1).EndColumn = 2
RangeAddressDir(1).EndRow = 144
Doc = ThisComponent
Charts = Doc.Sheets(0).Charts
Charts.addNewByName("MyChart1", Rect, RangeAddressDir(), True, True)
Chart = Charts.getByName("MyChart1").EmbeddedObject
Chart.Diagram = Chart.createInstance("com.sun.star.chart.LineDiagram")
Chart.Area.FillStyle = com.sun.star.drawing.FillStyle.SOLID
Chart.Area.FillColor = RGB(255,255,255)
Chart.HasMainTitle = True
Chart.Title.String = " DWD Rheinstetten "
Chart.HasSubTitle = True
Chart.Subtitle.String = " Wind Richtung "
Chart.Diagram.HasXAxisTitle = true
Chart.Diagram.XAxisTitle.String = "Zeitachse"
Chart.HasLegend = True
Chart.Diagram.HasSecondaryYAxis = 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 = 5
Chart.Diagram.YAxis.Min = 0
Chart.Diagram.YAxis.Max = 30
Chart.Diagram.YAxis.StepMain = 5
Chart.Diagram.SecondaryYAxis.Min = 0
Chart.Diagram.SecondaryYAxis.Max = 360
Chart.Diagram.SecondaryYAxis.StepMain = 45
End sub
sodele …
