Hallo zusammen
Ich habe ein kleines Makro geschrieben, welches eine bestimmte Schablone zu meiner Standardvorlage laden soll.
Bei der .vsd-Datei klappt dies prima, jedoch möchte ich das Makro auch in der Vorlage, also in der .vst-Datei einbinden. Doch da gibt es eine Fehlermeldung, nämlich, dass der Dateiname ungültig ist. Bitte um Hilfestellung, wäre super.
Hier der Code:
Public Sub SchabloneAuf()
Dim docSchablone As Document
Dim DateiPfad As String
Dim DateiPfad2 As String
DateiPfad = Application.ActiveDocument.Path
DateiPfad2 = DateiPfad + "VisioSchablone.vss"
On Error GoTo Beenden
Set docSchablone = Application.Documents.OpenEx(DateiPfad2, visOpenDocked)
Exit Sub
Beenden:
MsgBox "Die Schablone konnte nicht gefunden werden. Bitte überprüfen Sie, " & vbCr & "ob die Schablone und die Vorlage am gleichen Ort abgelegt sind."
End Sub
