In Office 97 habe ich folgenden Code
Public Sub UpdateChartLVDS()
If IsNumeric(textboxL255.Text) = False Then
MsgBox ("Update des Direct LVDS Diagramms fehlgeschlagen." + Chr(13) + "Der Messwert L255 ist kein numerischer Wert.")
Exit Sub
End If
Dim chartObj As ChartObject
Set chartObj = Worksheets("Direct LVDS").ChartObjects("Chart LVDS")
Dim dblValue As Double
dblValue = CDbl(Replace(textboxL255.Text, ".", ","))
With chartObj.Chart.Axes(xlValue)
.MinimumScale = 0
If (Int(dblValue / 50) - dblValue / 50) = 0 Then
.MaximumScale = dblValue
Else
.MaximumScale = Int(dblValue / 50 + 1) * 50
End If
.MinorUnit = 50
.MajorUnitIsAuto = True
.Crosses = xlAutomatic
.ReversePlotOrder = False
.ScaleType = xlLinear
.DisplayUnit = xlNone
End With
End Sub
zum Aktualisierern eines Diagramms im Sheet "Direct LVDS" benutzt.
Unter Office 2007 kommt bei der Zeile
'Set chartObj = Worksheets("Direct LVDS").ChartObjects("Chart LVDS")'
ein Laufzeitfehler.
Hat sich hier die Syntax im Office 2007 geändert?
|