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 und Stifttablet Karthagos 5 668 27.01.2021, 00:46
Letzter Beitrag: Unkraut
  Bilddarstellung in PhotoPaint vs. IrfanView Karthagos 10 1.147 27.11.2020, 01:44
Letzter Beitrag: koter
  Radiergummi-Form (Photopaint H&S 2018) Alphazalpha 2 740 31.01.2020, 00:11
Letzter Beitrag: Alphazalpha
  Programmfehler PhotoPaint 2019 Marcell 4 1.731 23.01.2020, 12:07
Letzter Beitrag: norre
  Corel Photopaint Cursor springt Momo61 6 2.280 15.01.2020, 12:42
Letzter Beitrag: Alphazalpha
  Bild/Foto im Ausschnitt-Editor von PhotoPaint bearbeiten Karthagos 4 1.986 01.10.2019, 10:24
Letzter Beitrag: Karthagos
  Makro in PhotoPaint Karthagos 14 2.307 24.09.2019, 17:12
Letzter Beitrag: Karthagos
  PhotoPaint als Standard für JPG / Version 2019 niereeck 3 1.091 23.05.2019, 14:18
Letzter Beitrag: norre
  Automatisierung über Makro zu langsam 93dd 1 563 26.08.2018, 15:36
Letzter Beitrag: koter
  Schriftgröße Photopaint X8 mikety 2 899 30.07.2018, 21:36
Letzter Beitrag: mikety