---

Hallo zusammen,

ich habe eine hoffentlich einfache Frage 

Ich möchte per Makro zwei Fenster auswählen und diese nebeneinander gleichgroß anordnen.

Ich bekomme im Endeffekt alles hin, jedoch weise ich aktuell den Fenstern statische Werte zu.
Top = x; Left = y; Height = z; Width = q;

Ich möchte, dass das Makro die beiden Fenster an Inventor anpasst und anordnet.

Der Befehl GetWindowExtents ist mir zwar bekannt, aber bringt mich nicht richtig weiter.

Muss man die Position und die Größe der Fenster wirklich berechnen lassen oder gibt es hierfür einen einfachen Befehl.

Eventuell ähnlich wie "Fit", bloß für zwei Fenster...

Prinzipiell käme ja Folgendes in Frage:
    Dim oCommandMgr As CommandManager
    Set oCommandMgr = ThisApplication.CommandManager
    Set oControlDef = oCommandMgr.ControlDefinitions.Item("AppArrangeAllWindowsCmd")
    Call oControlDef.Execute
Doch werden dabei ALLE Fenster angeordnet und nicht die zwei ausgewählten…

Vielen herzlichen Dank im Voraus für Eure Bemühungen.

Viele Grüße

MB-Ing.

------------------
Wissen ist Macht. Nichts wissen macht auch nichts 

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo zusammen,

also mein Makro läuft jetzt so wie es soll 

Ich maximiere das aktive Fenster "WindowState = kMaximize" und lese über den Befehl "GetWindowExtents" die Größe und die Position aus.
Die ermittelten Werte weise ich entsprechend den 2 Fesntern über Beziehungen zu.

Muss das Ganze wirklich so "umständlich" erfolgen?

Danke und Grüße

MB-Ing.

------------------
Wissen ist Macht. Nichts wissen macht auch nichts 

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP