Servus Zusammen,

komische Phönomen:

folgender Code zum Bilder einfügen über eine Schaltfäche klappte Jahre lang ohne Probleme:

Sub Bild1()
Dim varBild As Variant
Dim Zelle As Range
Dim ScaleA As Double

Set Zelle = Range("B318", "U339")
varBild = Application.GetOpenFilename(Title:="Test")

If varBild = False Then Exit Sub
ActiveSheet.Pictures.Insert(varBild).Select
With Selection.ShapeRange
    .Top = Zelle.Top
    .Left = Zelle.Left
    ScaleA = WorksheetFunction.Min(Zelle.Width / .Width, Zelle.Height / .Height)
    .Height = .Height * ScaleA
End With
Selection.Placement = xlMoveAndSize
Selection.PrintObject = True

End Sub

Mittlerweiie, nach ein paar Änderungen am Dokument, bekomm ich allerdings immer einen Laufzeitfehler.

Nach einigem Probieren habe ich den Code wie folgt geändert:

Sub Bild1()
Dim varBild As Variant
Dim Zelle As Range
Dim ScaleA As Double

Set Zelle = Range("B318", "U339")
varBild = Application.GetOpenFilename(Title:="Test")

If varBild = False Then Exit Sub
ActiveSheet.Unprotect Password:="1234"
ActiveSheet.Pictures.Insert(varBild).Select
With Selection.ShapeRange
    .Top = Zelle.Top
    .Left = Zelle.Left
    ScaleA = WorksheetFunction.Min(Zelle.Width / .Width, Zelle.Height / .Height)
    .Height = .Height * ScaleA
End With
Selection.Placement = xlMoveAndSize
Selection.PrintObject = True
ActiveSheet.Protect Password:="1234"
End Sub

Wenn ich das Passwort raus und wieder rein nehme, geht alles wieder.

NUR, früher konnte ich dann noch die eingefügten Bilder löschen und verschieben, das geht jeztzt nicht mehr.

Hat jemand eine Idee woran das liegen könnte?

MfG
 

Dennis