Hi,
ich habe ein Insert-Problem mit folgenden
Code:
Datei = ActiveSheet.name
Application.ScreenUpdating = False
Sheets("Kalibrierschein").Visible = True
Sheets("Kalibrierschein").Select
Range("J2").Select
ActiveSheet.Unprotect "werte"
'On Error GoTo ErrorHandler
ActiveSheet.Pictures.Insert("C:\Eigene Dateien\Logos\Wut.jpg").Select
With Selection
.ShapeRange.ScaleWidth 1.2, msoFalse, msoScaleFromTopLeft
.ShapeRange.ScaleHeight 1.2, msoFalse, msoScaleFromTopLeft
.Placement = xlMove
End With
Ich bekomme hier immer eine Meldung :
Laufzeitfehler 1004
Die Insert-Eigenschaft des Pictures-Objektes kann nciht zugeordnert werden
Woran liegt dies denn, da die DAtei vorhanden ist und auch der Pfad?
Gruß Jörg