mit VBA Fenstergröße und Position verändern

[Izzy]

Hallo,

gibt es die möglichkeit bei VBA die größe und position der Fenster fest zu legen?

[Izzy]

Lösung gefunden

Code:

Private Sub Workbook_Open()
ActiveWindow.WindowState = xlNormal
With ActiveWindow
       .Top = 86.5
       .Left = 13.75
       .Width = 745.5
       .Height = 345.75
   End With
End Sub

[dieter meyer]

Hallo,

wie kann ich ändern, das die mit einem Link neu geöffnete Fenster die gleichen Einstellungen (Größe und Position) haben wie das Hauptfenster?

Excel 2013

Danke im Voraus
Dieter

[Izzy]

Ich kann es dir nicht wirklich sagen.
Aber ich kann mir gut vorstellen, dass du dies bei dem Link hinterlegen kannst.

[dieter meyer]

"Aber ich kann mir gut vorstellen, dass du dies bei dem Link hinterlegen kannst."

Muss ich den Link dann per VBA einfügen? Als normalen Link finde ich keine Einstellungsmöglichkeiten.

[schauan]

Hallöchen,

wenn Du den Code in jede Datei einfügst, die verlinkt ist, und in die Hauptdatei, könnte es funktionieren. Dabei darfst Du natürlichnach dem Öffnen der Hauptdate an selbiger nichts mehr verändern.

Eventuell geht es auch über die Hauptdatei, wenn DU den Code im Deactivate-Ereignis unterbringst. Sieht dann etwa so aus, hier mal nur für den Top-Wert. Du stellst beim Öffnen der Hauptdatei den Top-Wert fest und speicherst ihn in einer Variable. Beim Wechsel in eine andere Datei wird die Hauptdatei deaktiviert, und das dann aktive Fenster erhält die Position.

Dim awdTop
Private Sub Workbook_Deactivate()
ActiveWindow.Top = awdTop
End Sub

Private Sub Workbook_Open()
awdTop = ActiveWindow.Top
End Sub

Du kannst die Position auch noch zwischendurch aufnehmen, z.B. mit dem Resize-Ereignis.

[Izzy]

dieter meyer  bitte kurze Rückmeldung, wenn deine Frage gelöst ist.
habe aktuell den Beitrag noch ald "nicht erledigt" stehen, damit auf deine Frage auch noch reagiert werden kann :)