grootte aanpassen aan beeldscherm

[bowlingman]

Hallo,

Is het mogelijk om via code de grootte van een sheet aan te passen aan de beeldschermgrootte
Een beetje verduidelijking.
Mijn file maak ik op mijn pc (Schermgrootte 20 inch)
Op de startpagina staan enkele afbeeldingen en enkele afbeeldingen die worden gebruikt als buttons om frm's op te starten.
Nu zou ik graag als ik de file open via mijn netwerk op mijn laptop (Schermgrootte 17 inch) hetzelfde beeld krijgen als op de pc,
dus alles netjes op zijn plaats in verhouding met mijn beeldscherm
Dit gebeurd nu wel met de frm's als die opstarten (ook via code in vba), maar kan je dit ook met bv code in "ThisWorkbook" zodat de startpagina (Blad1) ook aangepast opstart.

Grtjs.
Armand

 

[sylvester-ponte]

Probeer dit eens uit

Sub Macro2()
    Application.WindowState = xlMaximized
    Wmax = Application.Width
    hmax = Application.Height
    Application.WindowState = xlNormal
    Application.Top = 10
    Application.Left = 20
    Application.Height = hmax / 2
    Application.Width = Wmax / 2
End Sub

groet sylvester

 

[bowlingman]

Hallo Sylvester,

Bedankt voor je reactie, maar dit werkt niet.
Ik heb deze code in ThisWorkbook gezet en als ik nu de file opstart wordt alles, excel inbegrepen, verkleint en de bedoeling is dus dat dit enkel gebeurd bij sheet1 en de rest blijft zoals het is

Grtjs.
Armand

 

[sylvester-ponte]

hoi Armand
plaats eens een bestandje en geef aan wat er moet gebeuren

groet sylvester

 

[bowlingman]

Hallo Sylvester,

Dit is mijn bestand
http://www.mijnbestand.nl/Bestand-A6ZCR3W8VRCC.xlsm

De bedoeling zou dus zijn om de startpagina (Blad1) op elke grootte van beeldscherm goed in beeld te krijgen bij het opstarten.
Moest dit niet lukken, kan ik uiteraard ook werken met een frm dat automatisch mee opstart.
Opgelet alleen de afbeelding "Gegevens Toevoegen" is de enige die nog maar werkt.

Grtjs.
Armand

 

[sylvester-ponte]

hallo Armand'
deze code past de breedte van de eerste 4 kolommen aan, zodat het alles in beeld komt.

Sub test()
    Dim R As Range
    Sheets("Start").Activate
    Application.WindowState = xlMaximized
    windowWmax = Application.Width
    Set R = [b2]
    q = R.Left / R.Offset(1, -1).ColumnWidth
    Set R = [E3]
    Plaatjelinks = R.Left
    Set R = [X3]
    plaatjeBreedte = R.Left - Plaatjelinks
    Kolombreedte = (windowWmax - plaatjeBreedte) / (8 * q)
    Range("A:D").ColumnWidth = Kolombreedte
End Sub

groet sylvester

 

[bowlingman]

Hallo Sylverster,

Bedankt, dit werkt perfect
Ik heb enkel vooraan nog enkele kolommen ingevoegd en in de code "A" aangepast naar "A:F"

Echt super.
Grtjs.
Armand