Schermbreedte automatisch instellen tijdens opstart

[CPi]

Geacht forum,

Is het mogelijk (en hoe) om Excel tijdens het opstarten automatisch de schermbreedte te laten bepalen (en in te laten stellen)?

Ik hoor het graag, bvd!

 

[verhoog]

???? Wat bedoel je met schermbreedte? Je resolutie van je monitor? Of je zoompercentage?

 

[CPi]

Ik bedoel de zoom factor.

N.B.
Mijn applicatie 'draait' op beeld schermen met verschillende afmetingen, het zou handig zijn als Excel dit verschil zou corrigeren, nu gebeurt dit met de hand.

 

[snb]

Zie

deze oplossing

 

[CPi]

Dank voor uw reaktie.

Ik ben er nog niet uit.
Ik start mijn applicatie als .xls bestand op. Dit .xls bestand bevat een startscherm van waaruit een aantal macro's kunnen worden gestart. Nu staat er in zo'n macro bv. ActiveWindow.Zoom = 80
Dit wil ik dus vervangen door een automatisme.

Ik weet niet waar de door u aangegeven sub te plaatsen, kan dit niet binnen een (nieuwe) macro?

 

[Hans123]

Met behulp van onderstaande code zou het moeten lukken

Sub zoom()
Ondergrens = 10
bovengrens = 400

IW = 1200 'aantal zichtbare cellen

Do While Abs(ActiveWindow.VisibleRange.Cells.Count - IW) > kolommen * 3.7

    testwaarde = (bovengrens + Ondergrens) / 2
    If testwaarde < Ondergrens Or testwaarde > bovengrens Then Exit Sub
    ActiveWindow.zoom = testwaarde
    If ActiveWindow.VisibleRange.Cells.Count > IW Then
        Ondergrens = testwaarde
    Else
       bovengrens = testwaarde
    End If
    kolommen = ActiveWindow.VisibleRange.Columns.Count
  
Loop



End Sub

 

[CPi]

Hardstikke bedankt voor deze opossing, hier kan ik verder mee!

Ziet er nu zo uit:

Sub Zoom_factor()
'
' Automatische zoom factor toepassen
' Laatste maal aangepast 14-08-2008

Ondergrens = 10
bovengrens = 190

IW = 570 'aantal zichtbare cellen

Do While Abs(ActiveWindow.VisibleRange.Cells.Count - IW) > kolommen * 3.7

testwaarde = (bovengrens + Ondergrens) / 2
If testwaarde < Ondergrens Or testwaarde > bovengrens Then Exit Sub
ActiveWindow.zoom = testwaarde
If ActiveWindow.VisibleRange.Cells.Count > IW Then
Ondergrens = testwaarde
Else
bovengrens = testwaarde
End If
kolommen = ActiveWindow.VisibleRange.Columns.Count

Loop

End Sub