Hi,
ich habe gerade die ehrenvolle aufgabe ein in VB6 geschriebenes Programm welches mit Excel Version 10 arbeitet an Excel 12 also Office 2007 anzupassen da ein update auf Office 2007 nicht mehr zu vermeiden ist.
Leider habe ich damit ganz schön Probleme ...
schaut euch mal das Bild im Anhang an ... die Achsenbeschriftung ist nicht xlUpward ... einfach gesagt nicht lesbar und die stärke der Chartlinie ist auch zu fett ...
mit Office 2003 funktioniert mit dem aktuellen Code das ganze nur mit 2007 nicht.
Es ist leider erforderlich dass beides funktioniert
habt ihr ne idee?
Gruß
ich habe gerade die ehrenvolle aufgabe ein in VB6 geschriebenes Programm welches mit Excel Version 10 arbeitet an Excel 12 also Office 2007 anzupassen da ein update auf Office 2007 nicht mehr zu vermeiden ist.
Leider habe ich damit ganz schön Probleme ...
schaut euch mal das Bild im Anhang an ... die Achsenbeschriftung ist nicht xlUpward ... einfach gesagt nicht lesbar und die stärke der Chartlinie ist auch zu fett ...
mit Office 2003 funktioniert mit dem aktuellen Code das ganze nur mit 2007 nicht.
Es ist leider erforderlich dass beides funktioniert
Visual Basic-Quellcode
- ActiveChart.ChartType = xlXYScatterSmoothNoMarkers
- ActiveChart.SetSourceData Source:=Quelle, PlotBy:=xlColumns
- ActiveChart.SeriesCollection(1).name = "GW"
- ActiveChart.SeriesCollection(1).Format.Line.Weight = 0.1
- ActiveChart.Axes(xlValue, xlPrimary).AxisTitle.Orientation = xlUpward
- ActiveChart.Axes(xlValue, xlPrimary).AxisTitle.Characters.text = Einh
- wbdls(Blattnummer).Worksheets("D" & F(0)).ChartObjects(1).Height = Höhe
- wbdls(Blattnummer).Worksheets("D" & F(0)).ChartObjects(1).Width = Höhe
- xlApp.ActiveChart.SeriesCollection(1).Border.ColorIndex = LFarbe(0)
- xlApp.ActiveChart.SeriesCollection(1).Border.Weight = xlHairline
habt ihr ne idee?
Gruß