PhotoPaint per Makro beenden
#1
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
Zitieren
#2
Hallo Günther,

frohes neues Jahr!

(12.01.2022, 18:01)Karthagos schrieb: ...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
[-] 1 Benutzer bedankt sich bei koter für diesen Beitrag:
  • Karthagos
Zitieren
#3
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.


Angehängte Dateien Thumbnail(s)
       
Zitieren
#4
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
Zitieren
#5
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  Sad
Zitieren
#6
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
[-] 1 Benutzer bedankt sich bei koter für diesen Beitrag:
  • Karthagos
Zitieren
#7
Hallo Koter,

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

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.
Zitieren



Möglicherweise verwandte Themen...
Thema Verfasser Antworten Ansichten Letzter Beitrag
  PhotoPaint Abstürze Karthagos 3 212 18.10.2024, 21:54
Letzter Beitrag: mvm
  2019: Fenster beim Beenden von Photo-Paint lässt sich nicht schließen Anselm 2 320 28.05.2024, 19:02
Letzter Beitrag: Anselm
  PhotoPaint lässt sich nach minimieren aus der Taskleiste nicht mehr öffnen Karthagos 2 349 16.04.2024, 11:05
Letzter Beitrag: Karthagos
  Makro in PhotoPaint Karthagos 16 4.633 23.03.2024, 12:02
Letzter Beitrag: Karthagos
  PhotoPaint Standard Marcell 1 765 20.11.2022, 17:48
Letzter Beitrag: Karthagos
  PhotoPaint und Stifttablet Karthagos 5 1.696 27.01.2021, 00:46
Letzter Beitrag: Unkraut
  Bilddarstellung in PhotoPaint vs. IrfanView Karthagos 10 2.938 27.11.2020, 01:44
Letzter Beitrag: koter
  Radiergummi-Form (Photopaint H&S 2018) Alphazalpha 2 1.457 31.01.2020, 00:11
Letzter Beitrag: Alphazalpha
  Programmfehler PhotoPaint 2019 Marcell 4 3.049 23.01.2020, 12:07
Letzter Beitrag: norre
  Corel Photopaint Cursor springt Momo61 6 4.203 15.01.2020, 12:42
Letzter Beitrag: Alphazalpha