Application.Dialogs
04.07.2006 07:01:31
otto
ich habe folgenden Code, der eigentlich das Dialogfeld Zeichnung einfügen mit dem Ordner "Scanner" öffnen soll. Das mit Zeichnung einfügen ist ok, allerdings wird der Ordner "Eigene Bilder" angezeigt.
Sub Zgeinfügen()
Dim ziel
ziel = "C:\Scanner\"
ChDir ziel
dlgAnswer = Application.Dialogs(xlDialogInsertPicture).Show & ziel
End Sub
Wie bekomme ich gleich den Ordner "Scanner" angezeigt ?
Gruß otto