Bilder Einfügen beim Blattschutz
30.11.2016 15:49:45
Jamie
Ich habe folgendes Problem.
(Arbeite mit Mac Excel 365)
Ich möchte ein Bild einfügen trotz Blattschutz.
Ich wollte mit diesem Code welches ich per Dr. Google gefunden habe ergänzen:
With ActiveSheet
.Unprotect Password:="Passwort"
.Pictures.Insert (fFile)
.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True, Password:="Passwort"
.EnableSelection = xlUnlockedCells
End With
Somit habe ich den Code wie folgt angepasst:
Sub Macro1()
Range("A8").Select
On Error Resume Next
Dim ObjektDLG As Dialog
Set ObjektDLG = Application.Dialogs(xlDialogInsertPicture)
ObjektDLG.Show
Selection.ShapeRange.LockAspectRatio = msoTrue
Selection.ShapeRange.Height = 255
Selection.ShapeRange.Width = 255
Selection.ShapeRange.Rotation = 0#
Selection.ShapeRange.Position = center
With ActiveSheet
.Unprotect Password:="Passwort"
.Pictures.Insert (fFile)
.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True, Password:="Passwort"
.EnableSelection = xlUnlockedCells
End With
End Sub
Original:
Sub Macro1()
Range("A8").Select
On Error Resume Next
Dim ObjektDLG As Dialog
Set ObjektDLG = Application.Dialogs(xlDialogInsertPicture)
ObjektDLG.Show
Selection.ShapeRange.LockAspectRatio = msoTrue
Selection.ShapeRange.Height = 255
Selection.ShapeRange.Width = 255
Selection.ShapeRange.Rotation = 0#
Selection.ShapeRange.Position = center
End Sub
trotz allem, habe ich es nicht geschafft, den Blattschutz aufzuheben und wieder zu sperren.
Das zweite Problem, ich möchte das Bild "Einmitten" dachte mit Shape.Position = center bekomme ich das hin.
Geht aber auch nicht.
Habt ihr für meine zwei kleinen Startschwierigkeiten eine Lösung?
Besten Dank!