PhotoPaint per Makro beenden

[koter]

Hallo Günther,

Den Quit-Befehl gab es auch schon vor X7 und er hat bei mir immer funktioniert.
Jetzt funktioniert er wohl leider nicht mehr.

Du könntest versuchen die Tastenkombination Alt+F4 per Makro zu senden:

Code:

Sub FensterZuBeenden()
   Dim d As Document
   For Each d In Application.Documents
       d.Dirty = False
       d.Close
   Next
   SendKeys "%{F4}"
End Sub

 
ich mag die SendKeys-Funktion nicht besonders, mir ist aber bis jetzt nichts besseres eingefallen.

Gruß

Koter