Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
|
01.10.2009 14:14:17 |
Werner Ströhlein |
|
|
|
02.10.2009 16:11:31 |
Holger |
|
|
|
05.10.2009 08:05:35 |
Werner Ströhlein |
|
|
Aw:Aw:Aw:Chart-Update |
05.10.2009 10:43:00 |
Holger |
|
|
|
06.10.2009 14:29:08 |
Werner Ströhlein |
|
|
|
10.10.2009 20:22:59 |
Werner Ströhlein |
|
|
Von:
Holger |
Datum:
05.10.2009 10:43:00 |
Views:
1002 |
Rating:
|
Antwort:
|
Thema:
Aw:Aw:Aw:Chart-Update |
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?
|
- 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
Bitte geben Sie ein aussagekräftiges Thema an.
Bitte geben Sie eine gültige Email Adresse ein!
- 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 |
|
|
|
02.10.2009 16:11:31 |
Holger |
|
|
|
05.10.2009 08:05:35 |
Werner Ströhlein |
|
|
Aw:Aw:Aw:Chart-Update |
05.10.2009 10:43:00 |
Holger |
|
|
|
06.10.2009 14:29:08 |
Werner Ströhlein |
|
|
|
10.10.2009 20:22:59 |
Werner Ströhlein |
|
|