Live-Forum - Die aktuellen Beiträge
Datum
Titel
20.04.2024 00:49:19
Excel Sheet in einen Excel Kalender einfügen
20.04.2024 00:08:11
In Ordner nur das Speichern von Dateien erlauben
19.04.2024 21:26:15
mehrfache Texte finden
19.04.2024 19:41:34
Bei VBA Ausführung Anzeige einfrieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1224to1228
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1224to1228
1224to1228
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Grafik einfügen

Grafik einfügen
WHN
Hallo Leute,
ich rufe per VBA den Menüpunkt "Grafig einfügen aus Datei" auf:
Application.Dialogs(xlDialogInsertPicture).Show
Es wird immer das Verzeichnis "Eigene Dateien" angezeigt.
Ist es möglich, dass ich hier das Verzeichnis in dem sich die gerade aktive Excel-Mappe befindet, anzeigen lasse. Dann müsste ich nicht immer das Verzeichnis wechseln.
Kann mir Jemand helfen?
Freundliche Grüße
Werner

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Grafik einfügen
06.08.2011 09:14:03
Matthias
Hallo
Dim MyPfad$
MyPfad = ThisWorkbook.Path
Dim MyObj As Object
SendKeys MyPfad & "\~", False
Set MyObj = Application.Dialogs(342)
MyObj.Show
Gruß Matthias
AW: Grafik einfügen
06.08.2011 09:46:17
Beverly
Hi Werner,
vielleicht wäre das eine Möglichkeit: 
    Dim fdBilder As FileDialog
Set fdBilder = Application.FileDialog(msoFileDialogFilePicker)
With fdBilder
.AllowMultiSelect = False
.InitialFileName = ActiveWorkbook.Path
.ButtonName = "OK"
.Title = "Bilder auswählen"
.Filters.Clear
.Filters.Add "Bilder", "*.gif; *.jpg; *.jpeg", 1
.Show
End With


Anzeige
AW: Grafik einfügen
06.08.2011 11:14:26
WHN
Hallo, Danke für die Hilfe.
Ich werde es gleich ausprobieren.
Freundliche Grüße
Werner
AW: Grafik einfügen
06.08.2011 14:54:26
WHN
Danke für die Hilfe, es klappt prima.
Gruß Werner

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige