Thema Datum  Von Nutzer Rating
Antwort
Rot Chart-Update
 01.10.2009 14:14:17 Werner Ströhlein
NotSolved
02.10.2009 16:11:31 Holger
NotSolved
05.10.2009 08:05:35 Werner Ströhlein
NotSolved
05.10.2009 10:43:00 Holger
NotSolved
06.10.2009 14:29:08 Werner Ströhlein
NotSolved
10.10.2009 20:22:59 Werner Ströhlein
NotSolved

Ansicht des Beitrags:
Von:
Werner Ströhlein		 Datum:
01.10.2009 14:14:17		 Views:
1946		 Rating:
     
Antwort:
  Ja
Thema:
Chart-Update
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?

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
Rot Chart-Update
 01.10.2009 14:14:17 Werner Ströhlein
NotSolved
02.10.2009 16:11:31 Holger
NotSolved
05.10.2009 08:05:35 Werner Ströhlein
NotSolved
05.10.2009 10:43:00 Holger
NotSolved
06.10.2009 14:29:08 Werner Ströhlein
NotSolved
10.10.2009 20:22:59 Werner Ströhlein
NotSolved