Makro für Visio - Datei speichern unter

Computer: Software & Programmierung Visual Basic
#1

Hallo ihr Wissenden,

heute mal eine Visio/Makro-Frage:

Folgenden Code habe ich im Weltnetz gefunden, wo man im Excel „Datei speichern unter“ aufrufen kann.

Sub Speichern_unter_neuem_Namen()
Dim Neuer_Dateiname
Neuer_Dateiname = Application.GetSaveAsFilename(InitialFileName:="", fileFilter:=„Excel-Arbeitsmappe, *.xls“)
If Neuer_Dateiname = False Then Exit Sub
ActiveWorkbook.SaveAs Filename:=Neuer_Dateiname
End Sub

Funktioniert das auch für visio oder gibts da anderen Code?

Problem ist nämlich, dass Visio die Methode GetSaveAsFilename nicht findet in dem Objektkatalog.

Warum ich das brauche?
Muss Visio-Dateien einmal normal speichern und einmal als .jpg (einfügen in Word, aber soll später noch bearbeitbar sein --> Verknüpfung). Damit ich abr nicht alles 3x mal machen muss, wollte ich mir ein Makro schreiben, das das nur mit wenigen Klicks löst.

Weiß jemand rat?

#2

Hallo Phyxius, Experte in OO, Word, Excel :smile:

Du hast Glück das hier bei w-w-w leider Crossposting geduldet wird.

Zu deiner Anfrage, vielleicht hilft dir das weiter:

http://msdn.microsoft.com/de-de/library/cc160741.aspx

Gruß
Reinhard

#3

Die Seite hatte ich schon gefunden und bestimmt auch 20mal durchgelesen, hat mir aber leider nichts gebracht.

Problem ist, dass ich, wenn ich den Pfad direkt in den Code schreibe, die Datei ohne Probleme als .vsd oder .jpg speicher/exportieren kann.

Aber sobald ich den Code vom Benutzer per UserForm abfrage und praktisch an die Speicher-Methode übergeben will, spielt er nicht mehr mit mir :frowning:

#4

btw das war kein Crossposting, ich wusste nur nicht wo ich den Artikel sonst hätte reinstellen können.