Ansicht - Verteilung unabhängig von der Bildschirm

Bild

Betrifft: Ansicht - Verteilung unabhängig von der Bildschirm
von: Tim
Geschrieben am: 24.04.2015 17:58:42

Hallo zusammen,
ich bin neu hier und hoffe auf eure Unterstützung...
Ich hätte gerne den Code der nachfolgendes unabhängig von der verwendeten Bildschirmgröße durchführt...mit prozentualen Verteilungen falls möglich:
Besten Dank im Vorraus


Sub Ansicht()
'
' Ansicht Makro
'
'
    ActiveWindow.NewWindow
    ActiveWindow.NewWindow
    Windows.Arrange ArrangeStyle:=xlHorizontal
    Sheets("Liste-B").Select
    With ActiveWindow
        .Top = 1
        .Left = 797.5
    End With
    With ActiveWindow
        .Width = 463.5
        .Height = 214.5
    End With
    Windows("Beispiel.xlsm:2").Activate
    Sheets("Liste-C").Select
    With ActiveWindow
        .Top = 217
        .Left = 797.5
    End With
    With ActiveWindow
        .Width = 463.5
        .Height = 214.5
    End With
    Windows("Beispiel.xlsm:1").Activate
    With ActiveWindow
        .Width = 794.25
        .Height = 216
    End With
    With ActiveWindow
        .Top = 1.75
        .Left = 1
    End With
    With ActiveWindow
        .Width = 794.25
        .Height = 647.25
    End With
    Sheets("Liste-A").Select
    ActiveWindow.SmallScroll Down:=39
    Range("A40").Select
    Windows("Beispiel.xlsm:2").Activate
    With ActiveWindow
        .Width = 463.5
        .Height = 431.25
    End With
    Windows("Beispiel.xlsm:1").Activate
    Range("A40").Select
End Sub

Bild

Betrifft: Ansicht - Verteilung unabhängig von der Bildschirm
von: Nepumuk
Geschrieben am: 24.04.2015 18:08:26
Hallo,
benutze zur Berechnung die Eigenschaften Windows(1).UsableWidth und Windows(1).UsableHeight. Die geben dir die Abmessungen innerhalb des Excelfensters zurück.
Gruß
Nepumuk

 Bild

Beiträge aus den Excel-Beispielen zum Thema "Ansicht - Verteilung unabhängig von der Bildschirm"