---

Hallo zusammen,

wie im Betreff beschrieben suche ich nach einer Lösung die von mir erstellte UserForm mittig auf Bildschirm 1 darzustellen.

Momentan wird mein Userform einfach irgendwo an undefinierter Stelle auf Bildschirm 2 angezeigt.

Unter Excel hatte ich das Problem so gelöst:

Code:

---

Option Explicit
Sub Test()
With UserForm1
.StartUpPosition = 0
.Left = Application.Left + (0.5 * Application.Width) - (0.5 * .Width)
.Top = Application.Top + (0.5 * Application.Height) - (0.5 * .Height)
.Show
End With
End Sub

---

Da kommt mir jetzt aber die Meldung "Compile Error: Variable nicht definiert" und das Wort "Application wird markiert.

Wie kann ich das Problem lösen? Application.Height ermittelt ja die Höhe des Fensters meiner Exceltabelle, um davon dann die Häflte zu ermitteln und es genau mittig darzustellen. Wie ist das jetzt aber bei Inventor?

------------------

Du bist die Aufgabe - Franz Kafka

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

---

Hab's rausgefunden. So sieht der Code dann aus:

Code:

---

Option Explicit
Sub Test()
With UserForm1
.StartUpPosition = 0
.Left = ThisApplication.Left + (0.5 * ThisApplication.Width) - (0.5 * .Width)
.Top = ThisApplication.Top + (0.5 * ThisApplication.Height) - (0.5 * .Height)
.Show
End With
End Sub

---

Application muss in ThisApplication umgeschrieben werden.

------------------

Du bist die Aufgabe - Franz Kafka

[Diese Nachricht wurde von Honigbär am 04. Jul. 2018 editiert.]

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

---

API_Help.png

Moin  ,

Das Objekt der aktiven Anwendung/Application bekommst du in Inventor VBA über "Thisapplication".
Ich denke es wäre am besten wenn du dir die API Help mal zu Gemüte führst. Die findest in Inventor über die Hilfe (Bild im Anhang).
Dort gibt es neben einigen Beispielen auch Dokumentationen/Erläuterungen über alle Objekte.

Gruß

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

---

Danke für den Tipp

------------------

Du bist die Aufgabe - Franz Kafka

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