VISIO - VBA Fehlermeldung bei Exportversuch

Fragen zu allen anderen Office Anwendungen

Moderator: ModerationP

VISIO - VBA Fehlermeldung bei Exportversuch

Beitragvon wrsm.code » 26. Sep 2021, 12:01

Hallo an die Visio-Experten,

ich habe da ein Problem, wo ich aktuell nicht weiter komme.
Ich habe einige Visio-Dateien, die in der Fa. von allen Kollegen genutzt werden. Vorgehensweise aktuell:
Jede(r) öffnet die Dateien, um nach einer best. "Vorlage" zu suchen, um dann das Blatt zu kopieren und in einer neuen Datei nutzen und verändern zu können. Daher habe ich vor, eine Art Inhalts-Übersicht zu erstellen. Ich öffne nun eine Excel-Datei, worin alle Screenshots der Visio-Dateien enthalten sind. So ist die Suche wesentlich schneller und effektiver.

Jedoch kommt - nicht immer - bei einigen Dateien die Fehlermeldung

Laufzeitfehler '-2032466048 (86db0780)'

Fehler. Visio kann den Exportvorgang nicht abschließen.

Hier mein "eigentlich" lauffähiger Code:

Code: Alles auswählen
Sub Screenshots()
  Dim folder As String, filename As String
  Dim doc As Visio.Document
  Dim pg As Visio.Page
  Dim i As Integer
'// Initialisierung Pfad, Zähler, Dokumentenname, etc.
folder = ThisDocument.Path & "Bilder\"
Set doc = Visio.ActiveDocument
i = 0
'// alle Seiten durchlaufen
For Each pg In doc.Pages
'Set pg = ActivePage
pg.Application.ActiveWindow.Page = pg

 Application.ActiveWindow.ViewFit = visFitPage
  '// Dateiname festlegen:
  filename = (doc.Name & " - " & pg.Name)
 
  '// '(BG)' an Hintergrundseiten anhängen:
  If (pg.Background) Then _
    filename = filename & " (BG)"
   
  '// Dateiendung
  filename = filename & ".png"
 
  '// speichern:
  pg.Export (folder & filename)

  i = i + 1
   
Next


End Sub


pg.Export (folder & filename) - hier entsteht die Fehlermeldung :/

kann mir da jmd nen Tipp geben, warum das so ist?
wrsm.code
Im Profil kannst Du frei den Rang ändern
 
Beiträge: 14
Registriert: 05. Jan 2016, 15:07

Re: VISIO - VBA Fehlermeldung bei Exportversuch

Beitragvon wrsm.code » 26. Sep 2021, 12:37

Hallo nochmals...

habe eben den Fehler selbst herausfinden können. Ursache war der Name des Zeichnungs-Blattes! :roll:

sobald ein "/" oder ein ":" im Blattname vorkam, ist der Export abgebrochen worden.

Kann also geschlossen werden, sorry - hatte seit Gestern Abend den Fehler gesucht und nicht gefunden...
wrsm.code
Im Profil kannst Du frei den Rang ändern
 
Beiträge: 14
Registriert: 05. Jan 2016, 15:07


Zurück zu Andere Office Fragen (provisorisch)

Wer ist online?

Mitglieder in diesem Forum: 0 Mitglieder und 3 Gäste