Bild einfügen im Freigabemodus

Sub Schaltfläche1_Klicken()
Dim rngActiveCell       As Range
Dim strAdresseBereich   As String
Dim strPicture          As String
On Error GoTo ERRORHANDLER
Application.ScreenUpdating = False
strAdresseBereich = Selection.Address
Set rngActiveCell = ActiveCell
'Dialogfenster zur Auswahl des Bildes öffnen
strPicture = Application.Dialogs(xlDialogInsertPicture).Show
If strPicture = False Then Exit Sub
'Bei dem eingefügten Bild...
With Selection
'die Position Links an der linken Seite der Zelle ausrichten
.Left = rngActiveCell.Left + 2
'die Position Oben an der oberen Seite der Zelle ausrichten
.Top = rngActiveCell.Top + 2
'die Bildbreite an die Breite des Zellverbundes anpassen
.Width = Range(strAdresseBereich).Width - 4
'Höhe der Zeile an Bild anpassen
rngActiveCell.RowHeight = .Height + 4
End With
ERRORHANDLER:
Set rngActiveCell = Nothing
End Sub