rijhoogte na samenvoegen cellen en terugloop

[urtus]

Hallo,

Ben momenteel bezig om me te verdiepen in de wereld van VBA. Heb een boek van Walkenbach gekocht. Erg leerzaam.

Ben nu bezig om een macro te koppelen aan een knop en dat werkt goed, alleen de macro werkt niet helemaal lekker.

Ik heb een aantal cellen samengevoegd en gekozen voor terugloop. Nu wil ik dat de rijhoogte automatisch wordt aangepast aan de tekst. Maar als 'autoaanpassen' werkt helaas niet. En dubbelklikken aan de linkerkant bij de rijnummers is ook niet de oplossing. Als de tekst langer is dan 1 regel, moet de rijhoogte worden aangepast zodat de gehele tekst zichtbaar is.

Kan iemand mij hiermee verder helpen?

Groet,
Richard

 

[leofact]

rijhoogte>autoaanpassen zou naar mijn idee eigenlijk moeten werken.
Voor de zekerheid getest, met cellen in rij samnegevoegd, maar ook dat werkt bij mij.
wanneer je het bestand (of een gestripte versie) even hier post kunnen we er even naar kijken, waar t precies zit.
mvg leo

 

[urtus]

Hallo,

Bedankt voor je reactie.

Hierbij volgt het bestand.

Zo luidt de macro:

Sub WrapNMerge()
'
' WrapNMerge Macro
'
    With Selection
        .HorizontalAlignment = xlGeneral
        .VerticalAlignment = xlBottom
        .WrapText = True
        .Orientation = 0
        .AddIndent = False
        .IndentLevel = 0
        .ShrinkToFit = False
        .ReadingOrder = xlContext
        .MergeCells = True
    End With
    Selection.Rows.AutoFit
End Sub

Groet,
Richard

 

[leofact]

Bij mij werkt het goed, wanneer de formule balk uit staat, de weergegeven tekst zit in de weg
(alleen autofit doet het ook)
mvg leo

 

[urtus]

Wat raar dat het zowel thuis (Office 2007) als op m'n werk (Office 2003) niet werkt. Enig idee waar dit aan kan liggen? Een of andere instelling?

Na opnieuw de macro uit te voeren op een nieuwe selectie van tekst werken dubbelklik in de rand als auto-fit niet.

Groet,
Richard

 

[leofact]

Sorry, ik heb niet goed opgelet.
Bij een samengevoegde cel werkt autofit niet.
De regel is dan alleen met rowheight in te stellen.
Misschirn kun je van de samengevoegde cellen af.
Anders ongeveer uitrekenen hoe hoog de rij moet zijn
aan de hand van het aantal regels maal de gewenste hoogte per regel BV

selection.rows.rowheight = aantal_regels * 14

mvg leo