2007 v. 2003
17.06.2009 16:20:11
Harald
ich habe folgendes Problem:
In einer Tabelle ist der u. aufgeführte Script drin. Ein Teil davon bewirkt, dass nach einer Zelleingabe, eine bestimmte Grafik (hinterlegt auf einem Netzlaufwerk) in einer anderen Tabelle eingefügt wird, mit bestimmter Position und bestimmter Größe.
Jetzt funktioniert es prima in Excel 2007, in Excel 2003 oder kleiner gibt es eine Fehlermeldung mit "objektbezogener Fehler" und beim debuggen weist er einen auf die Zeilen hin:
With oZiel.Shapes.AddPicture(StBild, True, True, 20, _
860, 500, 390) 'der dritt- und viertletzte Wert ist der
Komplette Script:
Option Explicit ' Variablendefinition erforderlich
' Konstante für Ablagepfad Bilder
'Const StPfad As String = "h:\eigene dateien\Vordachberechnung\"
Const StPfad As String = "I:\Produkt Informationen\Rubrik14-Vordachsysteme\Vordachberechnung\Grafiken\"
Private Sub Worksheet_Change(ByVal Target As Range)
Dim StBild As String ' Variable für Bildname
Dim InI As Integer ' Schleifenvariable
Dim objShape As Object
Dim objShape2 As Object
Dim oShape As Object
Dim oZiel As Worksheet
Dim myP As Shape
Dim i As Integer
Dim vzelle As String
'Tabellenzellen die sich verändern können eintragen
If (Target.Address = "$K$23") Or (Target.Address = "$AB$9") Then
Set oZiel = Worksheets("Ausgabe")
'-----------------------------erstes Bild
If (Target.Address = "$K$23") Then
'Bildnamen zusammensetzen
If Target.Value = "" Then Exit Sub ' kein Eingabe, Prozedur
'verlassen
StBild = StPfad & Format(Target.Value, "00000") & ".png" 'den Dateinamen übernehmen
Application.EnableEvents = False ' Reaktion auf Eingabe
'abschalten
With oZiel.Shapes.AddPicture(StBild, True, True, 20, _
860, 500, 390) 'der dritt- und viertletzte Wert ist der
'Abstand in Pixel vom Rand und die letzten beiden Werte sind Breite und Höhe der Bilder
End With
Application.EnableEvents = True ' Reaktion auf Eingabe
'einschalten
End If
'-----------------------Ende erstes Bild
'-----------------------zweites Bild
If (Target.Address = "$AB$9") Then
'Zelle in Variable schreiben die wirklich ausgelesen werden soll, auch Zahl jetzt ohne _
Probleme möglich
vzelle = ActiveSheet.Range("$AF$13").Value2
' Bildnamen zusammensetzen
If Target.Value = "" Then Exit Sub ' kein Eingabe, Prozedur
'verlassen
StBild = StPfad & vzelle & ".png" 'den Dateinamen übernehmen
Application.EnableEvents = False ' Reaktion auf Eingabe
'abschalten
With oZiel.Shapes.AddPicture(StBild, True, True, 25, _
1310, 500, 330) 'der dritt- und viertletzte Wert ist der
'Abstand in Pixel vom Rand und die letzten beiden Werte sind Breite und Höhe der Bilder
End With
Application.EnableEvents = True ' Reaktion auf Eingabe
'einschalten
End If
'-----------------------Ende zweites Bild
'alle Textboxen in den Vordergund i ist der Zähler also Textbox 1 bis x usw.
For i = 1 To 49
Set oShape = oZiel.Shapes("TextBox" & i)
With oShape
.ZOrder msoBringToFront
End With
Next
Application.EnableEvents = True ' Reaktion auf Eingabe
'einschalten
End If
End Sub
Hat da schon mal jemand von diesem Versionen-Problem (oder wie sich das schimpft) gehört? Ich verstehe eh nicht, was diese Zeile mit einer unterschiedlichen Version zu tun haben kann?
Gruß
Harald Haldenwang