Bild einfügen
14.07.2003 11:12:57
Joe
ich versuche gerade, per VBA ein Bild einzufügen. Allerdings sucht er nicht standardmäßig auf Laufwerk a: sondern nimmt immer den zuletzt verwendeten Ordner. Was fehlt da im Quelltext?
Vielen Dank im Voraus,
Joe
Sub Bild_import()
Dim fFile As String
Dim sPath As String
On Error GoTo Fehler
fFile = Application.GetOpenFilename("Bild-Dateien (*.jpg), *.jpg")
sPath = "a:\"
If fFile = "False" Then Exit Sub
ActiveSheet.Pictures.Insert (fFile)
Fehler: Exit Sub
End Sub