Bilder einfügen
OttoH
ich stehe vor einem kleinen Problem. Ich möchte in Excel automatisch Bilder einfügen von einem Kamerachip. Der Chip steckt in einem Lesegerät und das wiederum trägt je nach Bestückung des Laptops verschiedene Laufwerksbezeichnungen ( entweder E oder F ).
also habe ich mir folgende Lösung ausgedacht:
Sub Datei_einbinden()
Dim a As String
'On Error GoTo fehler
a = Dir("e:\dcim", vbDirectory)
If a = "DCIM" Then
ChDir "e:\DCIM"
Else
ChDir "f:\DCIM"
End If
Application.Dialogs(xlDialogInsertPicture).Show
Ich hatte gedacht, mit dem ChDir das richtige Laufwerk voreingestellt zu haben, aber Excel lässt sich dadurch auch nicht beirren, und geht immer auf ein Standardverzeichnis.
Wie kann ich xlDialogsInsertPicture auf ein Verzeichnis meiner Wahl lenken?
Für Ideen wäre ich dankbar.
Gruß OttoH