excel openen in fullscreen

[AD1957]

Het bestand opent in fullscreen, maar met enige vertraging.
Ik krijg toch eerst even excelscherm te zien, 0,5-1 sec.
Is dit te verhelpen ?. (bestandsgrootte 890Kb) .xlsb

Bij kleinere bestandsgrootte is het niet/nauwelijks waarneembaar.

Private Sub Workbook_Open()
    Application.DisplayFullScreen = True
    ActiveWindow.DisplayHeadings = False

End Sub

 

[jkpieterse]

Screenupdating uitzetten zal wel niet helpen denk ik? Excel moet nou eenmaal eerst het bestand openen voordat het je code kan uitvoeren, daar is niks aan te doen.

 

[sylvester-ponte]

zorg dat je afsluit in fullscreen

 

[AD1957]

@jkpieterse, Screenupdating uitzetten geeft inderdaad geen resultaat had ik al geprobeerd.

@sylvester-ponte, Afsluiten in fullscreen?, dan openen daarna al mijn bestanden in fullscreen en dat wil ik niet.

 

[jkpieterse]

Wat ook helpt is handmatig het bestand in kwestie niet full-screen zetten en dan resizen tot hij (bijna) fullscreen is. Daarna wel opslaan.

 

[mvdvlist]

Gebruik dit eens in WorkBook_Open()

Private Sub WorkBook_Open()
 ActiveWindow.DisplayHeadings = False
 ActiveWindow.DisplayGridlines = False
 Application.CommandBars("Standard").Visible = False
 Application.CommandBars("Formatting").Visible = False
 Application.CommandBars("Worksheet menu Bar").Enabled = False
 Application.DisplayFormulaBar = False
 Application.DisplayStatusBar = False
 Application.DisplayFormulaBar = False
 ActiveWindow.DisplayWorkbookTabs = False
 ActiveWindow.DisplayHeadings = False
 Application.AskToUpdateLinks = False
 Application.ShowSelectionFloaties = False
 Application.EnableLivePreview = False
 Application.ExecuteExcel4Macro "Show.Toolbar(""Ribbon"",False)"
End Sub

Om te sluiten dezelfde module maken, nu verander je True in False...

 

[AD1957]

@mvdvlist, code geeft geen verbetering.

@jkpieterse,

dan resizen tot hij (bijna) fullscreen is

Kun je dit eens uitleggen, eerlijkheidshalve begrijp ik niet wat je hiermee bedoeld.

 

[jkpieterse]

Gewoon, je bestand openen, het venster NIET maximaal zetten, dan de hoeken grijpen en groter slepen tot bijna je hele scherm gevuld is. Dan opslaan.

 

[mvdvlist]

Reactie op #7

Logisch, want deze code is niet voor fullscreen, ,maar verbergt het lint en tabbladen en dergelijke. Was een vergissing, maar misschien heb je er wat aan. Je kunt deze code(s) ook uitvoeren middels twee buttons op je werkblad.
Maarten

 

[AD1957]

Daar was ik al achter.
Die twee buttons heb ik al op de werkbladen:thumb: maar alleen voor de tijd dat ik nog bezig ben met optimaliseren van de codes.
Moet er maar mee leren leven, vind het alleen een beetje slordig uitzien.

 

[VenA]

1 knop is voldoende
Om code wat netter te maken gebruik je With en End With

Sub VenA(b As Boolean)
  With ActiveWindow
    .DisplayHeadings = b
    .DisplayGridlines = b
    .DisplayWorkbookTabs = b
    .DisplayHeadings = b
  End With
  
  With Application
    .CommandBars("Standard").Visible = b
    .CommandBars("Formatting").Visible = b
    .CommandBars("Worksheet menu Bar").Enabled = b
    .DisplayFormulaBar = b
    .DisplayStatusBar = b
    .DisplayFormulaBar = b
    .AskToUpdateLinks = b
    .ShowSelectionFloaties = b
    .EnableLivePreview = b
    .CommandBars.ExecuteMso "HideRibbon"
  End With
End Sub

 

[AD1957]

@VenA,

Weer wat om te bestuderen, bedankt.