Shape beim SChließen zeichnen per Makro

25/10/2008 - 19:32 von Anubis | Report spam
Hallo,

ich möchte auf einem Blatt noch ein Rechteck zeichennen lassen, wenn der
Benutzer das Dokument schließt.
Die Sache funktioniert soweit ganz gut, solange der Benutzer erst das
Dokument und dann Visio schließt. Wird aber gleich Visio geschlossen (und
nicht erst das Dokument), dann kommt es zu einem Laufzeitfehler!

Ich benutze folgendes Makro:

Private Function Document_QueryCancelDocumentClose(ByVal doc As IVDocument)
As Boolean
Dim vShape As Visio.Shape

Set vShape = doc.Pages(1).DrawRectangle(1, 1, 5, 5)
doc.Save
Document_QueryCancelDocumentClose = False
End Function

Der Fehler tritt beim Zeichnen des Rechtecks auf. Scheinbar habe ich dann
kein Zugriff mehr auf die Zeichenflàche (PageSheet).

Kann mir jemand helfen???
 

Lesen sie die antworten

#1 Senaj Lelic [DE MVP Visio]
27/10/2008 - 18:13 | Warnen spam
Hallo,

und wieso versuchst du es nicht mit dem BeforeDocumentCLose event ?

Senaj Lelic
DE MVP Visio

"Anubis" schrieb im Newsbeitrag
news:
Hallo,

ich möchte auf einem Blatt noch ein Rechteck zeichennen lassen, wenn der
Benutzer das Dokument schließt.
Die Sache funktioniert soweit ganz gut, solange der Benutzer erst das
Dokument und dann Visio schließt. Wird aber gleich Visio geschlossen (und
nicht erst das Dokument), dann kommt es zu einem Laufzeitfehler!

Ich benutze folgendes Makro:

Private Function Document_QueryCancelDocumentClose(ByVal doc As
IVDocument)
As Boolean
Dim vShape As Visio.Shape

Set vShape = doc.Pages(1).DrawRectangle(1, 1, 5, 5)
doc.Save
Document_QueryCancelDocumentClose = False
End Function

Der Fehler tritt beim Zeichnen des Rechtecks auf. Scheinbar habe ich dann
kein Zugriff mehr auf die Zeichenflàche (PageSheet).

Kann mir jemand helfen???


Ähnliche fragen