Thema Datum  Von Nutzer Rating
Antwort
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
Rot Aw:Aw:Aw:Aw:Chart-Update
 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:
06.10.2009 14:29:08		 Views:
1039		 Rating:
     
Antwort:
  Ja
Thema:
Aw:Aw:Aw:Aw:Chart-Update
Seltsamerweise werden immer unterschiedliche Namen geliefert einmal 'chart 26', dann 'chart 28' und einmal sogar 'chart 31'.
Die Namen bleiben scheinbar nicht gleich, warum auch immer.
Ich habe das chart jetzt mit folgendem Code gelöst:

Dim chartObj As Chart
Set chartObj = Charts(6)

Dim dblValue As Double
dblValue = CDbl(Replace(textboxL255.Text, ".", ","))

With chartObj.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

Das funktioniert, aber das Chart wird in der X-Achse nicht verändert!


Holger schrieb am 05.10.2009 10:43:00:

Hallo Werner Ströhlein,
das spricht dafür, dass das Diagramm bei der Umsetzung Office 2007 einen anderen Namen bekommen hat. Versuche einmal, um die Namen zu vergleichen und ggf. zu korrigieren:

For each ch In worksheets("Direct LVDS").Chartobjects
a = a + ch.name + vbcrlf
next
msgbox a

Rückmeldung wäre nett.
Gruß
Holger


Werner Ströhlein schrieb am 05.10.2009 08:05:35:

Laufzeitfehler: '-2147024809 (80070057)
Das Element mit dem angegebenen Namen wurde nicht gefunden.

Wie gesagt, in Office 2003 kein Problem.

Holger schrieb am 02.10.2009 16:11:31:

Hallo Werner Ströhlein,
der Code ist grundsätzlich in Ordnung, wenn Arbeitsblatt und Chartname richtig sind.
Welcher Laufzeitfehler wird angezeigt?
Gruß
Holger

Werner Ströhlein schrieb am 01.10.2009 14:14:17:

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
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
Rot Aw:Aw:Aw:Aw:Chart-Update
 06.10.2009 14:29:08 Werner Ströhlein
NotSolved
10.10.2009 20:22:59 Werner Ströhlein
NotSolved