Benötige mal eine kleine Unterstützung mit folgendem Quellcode.
Möchte in eine selektierte Zelle über Application.Dialogs(xlDialogInsertPicture)
eine Grafik einfügen. Dies funktioniert auch soweit (s. Quellcode)
Was ich nicht hinkriege ist, das bei Application.Dialogs(xlDialogInsertPicture).Show nicht in ein vorgegebenes Verzeichnis gesprungen wird.
Habe es schon mit chdir und chdrive probiert aber leider ohne Erfolg.
Sub Bild_einfügen()
Dim x, rngS As Range
Set rngS = Selection
'Laufwerk und Verzeichnis bestimmen
ChDrive D:
ChDir "D:\Temp\"
'Dialogform aufrufen
x = Application.Dialogs(xlDialogInsertPicture).Show
'Bild in markierter Zelle einfügen
If x False Then
With Selection
.Top = rngS.Top
.Left = rngS.Left
.ShapeRange.Width = rngS.Width
.ShapeRange.LockAspectRatio = False
.Placement = xlMoveAndSize
End With
Else
'Wenn kein Bild ausgewählt wurde ->MSgbox Meldung
MsgBox "No image selected!! "
End If
End Sub