Bild einfügen im Freigabemodus
René
ich habe eine Arbeitsmappe die im Freigabemodus laufen soll, so das mehrere Nutzer gleichzeitig die Mappe bearbeiten können. Nun habe ich ein Makro zum Bilder einfügen. Dieses Makro läuft aber nicht im Freigabemodus.
Habt ihr eine Idee was man da tun kann?
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
MfG René