SER.Border.LineStyle
02.06.2005 11:16:27
Michael
mit Hilfe eines Formulars formatiere ich ein Excel-Diagramm (Line, Marker), die entsprechenden Werte werden in die Registry geschrieben, wenn ein "Save Style" Button gedrückt wird. Mit "Show Style" werden die Werte aus der Registry gelesen und die Kurve entsprechend formatiert. Diese Prozedur funktioniert sehr gut, bis auf die Border.LineStyle Eigenschaft. Ich habe auch versucht, die Werte als String, als Variant zu übergeben (xlContinuous, xlDash oder xlDot), bzw. auch als Integer (1,-4105,-4118). Die Werte werden jeweils korrekt in die Registry geschrieben und gelesen, bei der Zuteilung des Wertes für SER.Border.LineStyle wird aber immer(!!!) xlContinuous(1) verwendet.
Wer kann helfen?
LG, Michael
Code:
Private Sub cmdCurve1_Click()
Dim SER As Series
Dim crtchart As Chart
Me.Caption = "Style Line and Marker: Curve 1"
Set crtchart = ActiveSheet.ChartObjects("sor" & ActiveSheet.Name).Chart
Set SER = crtchart.SeriesCollection(1)
With SER
.Border.LineStyle = GetSetting(AppName:="DataSampler", Section:="Einstellungen", Key:="1_BorderLineStyle") 'hier wird immer(!!!) xlContinuous(1) verwendet, auch wenn von Registry andere Werte gelesen werden!
.Border.ColorIndex = GetSetting(AppName:="DataSampler", Section:="Einstellungen", Key:="1_BorderColorIndex")
.MarkerForegroundColorIndex = GetSetting(AppName:="DataSampler", Section:="Einstellungen", Key:="1_MarkerForeground")
.MarkerStyle = GetSetting(AppName:="DataSampler", Section:="Einstellungen", Key:="1_MarkerStyle")
.MarkerBackgroundColorIndex = GetSetting(AppName:="DataSampler", Section:="Einstellungen", Key:="1_MarkerBackground")
End With
End Sub