Pas lijnhoogte en lijnbreedte automatisch aan via macro

Hoe de lijnhoogte en lijnbreedte op de optimale hoogte in te stellen met behulp van een macro.

De rijhoogte automatisch aanpassen met een macro

Wil je de hoogte van een rij aanpassen aan de inhoud van de cellen, dan is dat geen probleem met Excel. Door te dubbelklikken op de ruimte tussen twee regels, pas je de regelhoogte van de bovenste regel aan tot een hoogte waarmee alle inhoud kan worden weergegeven.

Maar hoe doe je dat met een macro? Gebruik de volgende programmacode:

Subhoogte aanpassen ()
ActiveSheet.Range ("a1: a10"). Rijen.EntireRow.AutoFit
Einde sub

U moet altijd de hoogte van lijnen in uw macro's aanpassen wanneer u tabellen opslaat met behulp van macro's. Vooral bij het gebruik van regeleinden in een cel kunnen delen van de inhoud snel onzichtbaar worden, zoals de volgende afbeelding laat zien:

Na het starten van de macro worden de hoogtes van regel 1 t/m 10 van de actieve tabel ingesteld op de optimale waarden zodat alle inhoud zichtbaar is. De volgende afbeelding laat het resultaat zien:

Pas de verwijzing "a1:a10" in de macro aan op de regelnummers waarin u de hoogte wilt optimaliseren.

Het maakt niet uit welke kolomnamen u in de afdruk gebruikt, de regelnummers zijn belangrijk. U kunt daarom de uitdrukking "c200:c1000" gebruiken om bijvoorbeeld regels 200 aan 1000 aan te passen.

De lijndikte wijzigen met een macro

Het wordt tijdrovend als u alle gebruikte rijen en kolommen op de optimale hoogte en breedte wilt instellen. Gebruik dan deze macro:

Stel subkolommenrij in ()
Met ActiveSheet.UsedRange
.Kolommen.AutoAanpassen
.Rijen.AutoFit
Eindigt met
Einde sub

De macro past alle rijen en kolommen in het actieve werkblad aan naar de optimale hoogte en breedte. De volgende afbeelding laat bijvoorbeeld zien hoe het resultaat eruit ziet:

Cellen zonder inhoud worden niet gewijzigd door de macro; de standaard hoogte en breedte blijven voor u actief.

U zal helpen de ontwikkeling van de site, het delen van de pagina met je vrienden

wave wave wave wave wave