Bildeinfügen mit Blatschutz problem
31.01.2018 08:41:38
simon
ich habe folgendes Probelm.
Ich kann per Button Bilder einfügen und diese in der Grösse anpassen.
hetz möchte ich das Blatt schützen dass nur noch wenige Felder Aktiv sind und, dass ich die Bilder immer noch einfügen, Skalieren und Verschieben kann
Wäre coole wenn mir da jemand weiterhelfen könnte...:)
anbei mein Code
Sub BilderEinfuegen()
Dim bytBild As Byte
Dim M As String
Dim rngZielZelle As Range
Dim i As Long
i = 10
M = "C016510100000"
Application.ScreenUpdating = False
With Application.FileDialog(msoFileDialogFilePicker)
.AllowMultiSelect = True
.InitialFileName = "C:\Bibliotheken\Bilder" 'Bilder _
Ordnerpfad
.ButtonName = "OK"
.Title = "Bilderauswahl"
.Show
If .SelectedItems.Count rngZielZelle.Height Then .Height = rngZielZelle.Height
If .Width > rngZielZelle.Width Then .Width = rngZielZelle.Width
End With
End With
i = i + 8
Next bytBild
Else
MsgBox "Maximal 5 Bilder auswählbar"
End If
End With
Application.ScreenUpdating = True
End Sub