Lint minimaliseren

W

W Bloemendal

Gebruiker

Lid geworden

28 jan 2001

Berichten

503

• 1 jun 2019

• #1

ik heb onderstaande maar nu wordt het gehele lint verwijderd is hey ook mogelijk dat het lint geminimaliseerd wordt.

Code:

Private Sub Workbook_Activate()
  Application.ExecuteExcel4Macro "SHOW.TOOLBAR(""Ribbon"",False)"
End Sub

Private Sub Workbook_Deactivate()
  Application.ExecuteExcel4Macro "SHOW.TOOLBAR(""Ribbon"",True)"
End Sub

 

A

alphamax

Terugkerende gebruiker

Lid geworden

16 mrt 2011

Berichten

2.654

Besturingssysteem

Windows 11 en-US

Office versie

Office 2007 nl-NL

• 1 jun 2019

• #2

Met de sneltoetsen CTRL+F1 kan je het lint minimaliseren.

 

edmoor

Inventaris

Lid geworden

8 sep 2000

Berichten

39.749

Besturingssysteem

Windows XP, 7, 10, 11-23H2

Office versie

Office 365

• 1 jun 2019

• #3

Dit is een toggle voor wat je vraagt:

Code:

CommandBars.ExecuteMso "MinimizeRibbon"

Als:

Code:

CommandBars("Ribbon").Height

groter dan 100 terug geeft is het lint gemaximaliseerd.

 

A

alphamax

Terugkerende gebruiker

Lid geworden

16 mrt 2011

Berichten

2.654

Besturingssysteem

Windows 11 en-US

Office versie

Office 2007 nl-NL

• 1 jun 2019

• #4

CommandBars.ExecuteMso "MinimizeRibbon" werkt dit ook in excel2007?

 

edmoor

Inventaris

Lid geworden

8 sep 2000

Berichten

39.749

Besturingssysteem

Windows XP, 7, 10, 11-23H2

Office versie

Office 365

• 1 jun 2019

• #5

Daar ga ik wel vanuit, maar ik heb hier geen Excel 2007 om het te testen.
Excel 2007 is de eerste versie die het ribbon heeft.

 

A

alphamax

Terugkerende gebruiker

Lid geworden

16 mrt 2011

Berichten

2.654

Besturingssysteem

Windows 11 en-US

Office versie

Office 2007 nl-NL

• 1 jun 2019

• #6

Net getest, werkt niet in excel 2007, dan zullen er toch wat kliene verschillen zijn tussen excel2007 en excel2010+.

 

edmoor

Inventaris

Lid geworden

8 sep 2000

Berichten

39.749

Besturingssysteem

Windows XP, 7, 10, 11-23H2

Office versie

Office 365

• 1 jun 2019

• #7

Dat is zeker mogelijk.
Ik heb hier Office 365.

 

W

W Bloemendal

Gebruiker

Lid geworden

28 jan 2001

Berichten

503

• 1 jun 2019

• #8

Ik had de regel in mijn code gezet maar dan krijg ik een fout melding

 

edmoor

Inventaris

Lid geworden

8 sep 2000

Berichten

39.749

Besturingssysteem

Windows XP, 7, 10, 11-23H2

Office versie

Office 365

• 1 jun 2019

• #9

Heb je #6 ook gelezen?
En als je zegt een foutmelding te krijgen, vertel deze er dan ook bij.

 

W

W Bloemendal

Gebruiker

Lid geworden

28 jan 2001

Berichten

503

• 1 jun 2019

• #10

Fout #91 object variabele of blok variabele With is niet ingesteld

Code:

Private Sub Workbook_Activate()


   CommandBars.ExecuteMso "MinimizeRibbon"

End Sub

 

edmoor

Inventaris

Lid geworden

8 sep 2000

Berichten

39.749

Besturingssysteem

Windows XP, 7, 10, 11-23H2

Office versie

Office 365

• 1 jun 2019

• #11

En #6?
Welke versie van Office heb je?

 

W

W Bloemendal

Gebruiker

Lid geworden

28 jan 2001

Berichten

503

• 1 jun 2019

• #12

ik heb office 365

 

edmoor

Inventaris

Lid geworden

8 sep 2000

Berichten

39.749

Besturingssysteem

Windows XP, 7, 10, 11-23H2

Office versie

Office 365

• 1 jun 2019

• #13

Dat gaat ook niet direct vanuit de Workbook_Open of Workbook_Activate.
Zet dit in de ThisWorkbook sectie:

Code:

Private Sub Workbook_Open()
    Application.OnTime Now + TimeValue("00:00:01"), "LintMinimaliseren"
End Sub

Private Sub Workbook_BeforeClose(Cancel As Boolean)
    LintMinimaliseren
End Sub

En dit in een module:

Code:

Sub LintMinimaliseren()
    CommandBars.ExecuteMso "MinimizeRibbon"
End Sub

 

Laatst bewerkt: 1 jun 2019

W

W Bloemendal

Gebruiker

Lid geworden

28 jan 2001

Berichten

503

• 3 jun 2019

• #14

dit is wat ik zocht