• Liebe User, bitte beachtet folgendes Thema: Was im Forum passiert, bleibt im Forum! Danke!
  • Hallo Gemeinde! Das Problem leidet zurzeit unter technischen Problemen. Wir sind da dran, aber das Zeitkontingent ist begrenzt. In der Zwischenzeit dürfte den meisten aufgefallen sein, dass das Erstellen von Posts funktioniert, auch wenn das Forum erstmal eine Fehlermeldung wirft. Um unseren Löschaufwand zu minimieren, bitten wir euch darum, nicht mehrmals auf 'Post Reply' zu klicken, da das zur Mehrfachposts führt. Grußworte.

Word-VBA: Grafik einfügen Dialog Filter

Mitglied seit
01.09.2002
Beiträge
1.456
Reaktionen
0
Hallo,

€: neues Problem, siehe unten

ich öffne mit VBA n GrafikEinfügen Dialog:
Code:
    Dim grafikDialog As Dialog
    
    bildpfad = "c:\bilderbilderbilder\"
    Options.DefaultFilePath(Path:=wdPicturesPath) = bildpfad
    Set grafikDialog = Application.Dialogs(wdDialogInsertPicture)

In dem Order liegen allerhand Dateien, und man soll eigentlich nur die jeweils nötigen angezeigt /zu Auswahl bekommen, bspw. nur jpgs.

Wie bekomme ich da jetzt n Filter rein?
grafikDialog.Filters.add oder sowas will nicht...

Danke...

€: 13:37 (yeah) und bei google "vba word filters" auf Platz 3!

€2: da ich eh nur den namen brauche, hab ich das mal umgebaut mit einem allgemeinen FileDialog.
Code:
Dim td As FileDialog
Set td = Application.FileDialog(msoFileDialogFilePicker)
td.Filters.Clear
td.Filters.Add "bilder mit jpgeh", "*.jpg"

neues Problem: Kann ich n Filter auch auf den Dateinamen anbringen?
Bspw. sollen nur Bilder ausgewählt werden, welche mit der Projektnummer anfangen.
Code:
td.Filters.Add "bilder von P1001", "1001*.jpg"
geht leider nicht...
 
Zuletzt bearbeitet:
Oben