Bild in Rahmen einfügen
Steffen
ich möchte gerne, dass ich ein Bild in Excel in einen Rahmen einfüge.
Der Rahmen ist vorgegeben und wenn ich nun mit Doppelklick auf den Rahmen (Active-X Steuerelement Bild) klicke, soll ein Fenster "Datei suchen" kommen, sodass ich das entsprechende Bild auswählen kann.
Ich habe bisher folgenden Code: (hier wird bei Doppelcklick auf entsprechende Zellen das Bild eingefügt. Ich weis aber nicht, wie ich den jetzt für mich umschreiben muss)
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim rngB As Range, rngZ As Range
Set rngB = Range("C4:E27,H4:J27,M4:O27,R4:T27")
For Each rngZ In rngB.Areas
If Not Application.Intersect(Target, rngZ) Is Nothing Then
If Application.Dialogs(xlDialogInsertPicture).Show = True Then
With Selection
.Top = rngZ.Top
.Left = rngZ.Left
.Height = rngZ.Height
.Width = rngZ.Width
End With
Target.Select
End If
Exit For
End If
Next rngZ
End Sub