Persoonlijke tekst in de titelbalk (VBA)

Geplaatst in VBA door Exhelp | Tags: , , , , ,
Van toepassing op: Excel 2003, Excel 2007, Excel 2010, Excel 2013

Standaard staat er in je titelbalk: Microsoft Excel – [naam werkmap]. Indien je dit graag anders ziet, kan dit heel eenvoudig gewijzigd worden met enkele lijntjes VBA code.

Zoals je kan zien bestaat de titel uit 2 delen. Het eerste deel is van toepassing op het geopende bestand. Het tweede deel is van toepassing op alle geopende Excel vensters.

Deel 1

Plaats volgend stukje code in ThisWorkBook in de Visual Basic Editor om het eerste deel te wijzigen:

Private Sub Workbook_Open()

Windows(1).Caption = "Dit is het stukje voor het streepje"

End Sub

Als je het bestand nu opnieuw opent, zal je zien dat je titelbalk gewijzigd is:

Deel 2

Als we nu ook deel 2 willen wijzigen, doen we dit als volgt:

Private Sub Workbook_Open()

Application.Caption = "Dit is het stukje na het streepje"

End Sub

…en nu allebei tesamen

Private Sub Workbook_Open()

Windows(1).Caption = "Dit is het stukje voor het streepje"

Application.Caption = "Dit is het stukje na het streepje"

End Sub

Voorbeeld

Onderstaand voorbeeld plaatst vooraan onze zelfgekozen tekst en na het streepje het volledige pad naar het geopende bestand.

Private Sub Workbook_Open()

Windows(1).Caption = (ActiveWorkbook.FullName)

Application.Caption = "Microsoft Exhelp 2011"

End Sub

 

2 reacties op “Persoonlijke tekst in de titelbalk (VBA)”

  • Beste,

    Inderdaad, dit maakt je zelf ontworpen toepassing niet iets méér af!
    Ik kijk uit naar andere tips en trucs

    Maurice

  • Zojuist getest en werkt goed!

Plaats een reactie

U moet ingelogd zijn om te reageren.

Login

Forums

Exhelp

Meest recente berichten

TAGS



Creative Commons Licentie
Op dit werk is een Creative
Commons Licentie
van toepassing.