PhotoPaint per Makro beenden

[Karthagos]

Hallo Koter,
 
Du hattest mir freundlicherweise in dem Beitrag https://forum.juergens-workshops.de/show...?tid=38290
ein Makro geschrieben, mit dem ich alle Fenster ohne Rückfrage schließen kann, das ich gerne und häufig nutze.
Könntest Du mir das Makro so ergänzen, dass PhotoPaint dann auch automatisch beendet wird. Es reicht natürlich auch die Code-Zeile/n für diesen Vorgang.
Natürlich nur, wenn es keine zu großen Umstände macht.
 
Dann hätte ich 3 Alternativen:
ŸAlle Fenster bis auf das aktive schließen
ŸAlle Fenster schließen
ŸAlle Fenster schließen und PhotoPaint benden
 
Schon mal danke im Voraus

[koter]

Hallo Günther,

frohes neues Jahr!

...wenn es keine zu großen Umstände macht...

Weniger Umstände gehen fast nicht, es muss nur der Befehl „Quit“ angehängt werden:

Code:

Sub FensterZuUndBeenden()

   Dim d As Document
   For Each d In Application.Documents
       d.Dirty = False
       d.Close
   Next

   Application.Quit

End Sub

Gruß

Koter

[Karthagos]

Hallo Koter,

zunächst auch für Dich ein gutes Neues Jahr und danke für Deine Antwort.
Habe das Makro eingefügt, es verhält sich wie das "alles Schliessen" aber PP wird nicht beendet.

[koter]

Hallo Günther,

da habe ich mich mit meiner Einschätzung der Umstände wohl gründlich geirrt!
Leider kann ich es nur mit X7 testen, und da funktioniert es.

Du kannst versuchen die Funktion wie in der Hilfe aufzurufen:

Code:

Sub FensterZuBeenden()
   Dim d As Document
   For Each d In Application.Documents
       d.Dirty = False
       d.Close
   Next
   Call QuitApp
End Sub

Sub QuitApp()
 Quit
End Sub

Wenn PP durch FensterZuBeenden nicht beendet wird, versuche die Sub QuitApp einzeln auszuführen.
Dann wissen wir wenigstens ob der Quit-Befehl überhaupt funktioniert.

Weil ich es nicht testen kann, bleibt leider nur dieser Schuss ins Blaue.

Gruß

Koter

[Karthagos]

Hallo Koter,

danke für Deine Antwort. Ich habe etwas gesucht und getestet, bin aber leider nicht weitergekommen.
Die Funktion "Quit" alleine schließt auch alle geöffneten Registerblätter ohne Rückfrage, aber leider nicht PP.
Habs mit "Windows.CloseAll" und mit "Application.Quit" probiert, auch ohne Erfolg.

Seltsamerweise sagt Dein Link auf die Developer Area, dass der Quit-Befehl für die Versionen X7 bis 2021 Gültigkeit haben soll, das weiß nur PhotoPaint nicht 

[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

[Karthagos]

Hallo Koter,

Du hast ja "krasse Arbeitszeiten"  , da hab ich schon friedlich geschlummert 

Das Makro mit sendKey funktioniert einwandfrei, ich hatte mich schon damit abgefunden, dass es nicht geht.
Super, vielen Dank für Deine Hartnäckigkeit und Hilfe.