Standaard instelling voor verticale uitlijning in een cel?

[pno]

L.S.,

Bij het openen van een nieuwe werkmap in Excel2003 staat de standaardinstelling van de celeigenschappen betreffende de verticale uitlijning op 'onder'. Nu pas ik dit telkens weer manueel aan door alles te selecteren en de celeigenschap te veranderen naar 'boven'. Tot zover is het me niet gelukt dit automatisch in te stellen.


Weet iemand hoe ik deze standaardinstelling in Excel aanpas?

MvG PNO

 

[danny147]

Beste pno

Je kan dit niet instellen.

Het is waarschijnlijk te doen met een VBA code met de volgende regel erin

.VerticalAlignment = xlTop

Groetjes Danny. :thumb:

 

[danny147]

Beste pno

Heb nog eens gekeken en plak deze code in ThisWorkbook via AltF11

Private Sub Workbook_Open()

       Cells.Select
    With Selection
        .VerticalAlignment = xlTop

    End With
    Range("A1").Select
End Sub

Save dit en open dan terug het bestandje en je zal zien dat alles naar boven is uitgelijnd.

Groetjes Danny. :thumb:

 

[pno]

Beste pno

Heb nog eens gekeken en plak deze code in ThisWorkbook via AltF11


Code:
Private Sub Workbook_Open()

Cells.Select
With Selection
.VerticalAlignment = xlTop

End With
Range("A1").Select
End SubSave dit en open dan terug het bestandje en je zal zien dat alles naar boven is uitgelijnd.

Groetjes Danny.

Dag Danny,

Van VBA (Visual Basic toch?) heb ik niet zoveel kaas gegeten Heb je ook het het menupad naar de workbench, als ik namelijk op F11 druk dan krijg ik een nieuw werkblad met de titel grafiek.

Gr. Peter

 

[pno]

Beste pno

Heb nog eens gekeken en plak deze code in ThisWorkbook via AltF11


Code:
Private Sub Workbook_Open()

Cells.Select
With Selection
.VerticalAlignment = xlTop

End With
Range("A1").Select
End SubSave dit en open dan terug het bestandje en je zal zien dat alles naar boven is uitgelijnd.

Groetjes Danny.



Dag Danny,

Van VBA (Visual Basic toch?) heb ik niet zoveel kaas gegeten Heb je ook het het menupad naar de workbench, als ik namelijk op F11 druk dan krijg ik een nieuw werkblad met de titel grafiek.

Gr. Peter

 

[danny147]

Beste pno

Druk op ALT + F11.
Dan dubbelklik op ThisWorkbook.
Plak dan de code hierin.
Save dit en open terug het bestand.
Deze code werkt enkel in een bestand waar je deze code inplakt.

Groetjes Danny. :thumb:

 

[pno]

Helaas dat Excel geen standaard oplossing biedt voor dit probleem, maar deze work arround werkt. Vooral met grote sheets werkt het sneller dan de celeigenschappen telkens aanpassen.

Bedankt!

 

[Wigi]

Selecteren is niet nodig:

Private Sub Workbook_Open()
       On Error Resume Next
       Cells.VerticalAlignment = xlTop
End Sub

Wigi