Centrere tekst lodret

Hej - Kan denne artikel hjælpe? http://www.eksperten.dk/spm/702704

Så vidt jeg kan se er det om at rotere tekst og det er ikke tilfældet her.

Jeg har kigget på det, men har måske også kigget mig blind på det. I hvert fald har jeg ikke kunnet komme frem til en løsning. Jeg troede man kunne sætte tekstfeltet til AllowShrink og så ændre .Top i Format eventet. Men desværre er .Height (som jo bliver tilpasset tekststrengen) ikke tilgængelig her (i hvert fald ikke den tilpassede). Den er så godt nok tilgængelig i Print eventet, men her er det til gengæld for sent at ændre på tekstfeltets horisontale placering (.Height).

Så desværre, det var lidt af en catch 22...

Det er et eksempel på Thomas Jepsens hjemmeside, som kan gøre ting og sager med et memo felt... bl.a. centrere!~)

http://www.nyholm.dk/makeiteasy/Home.asp?ContentID=30&MenuItemID=25

Hov, jeg havde vist misforstået problemstillingen, men hvis du vil have et tekstfelt til at blive højere for at vise hele teksten, så har jeg lige rodet med noget for nyligt. Ta'r ligger en kigger!~)

Kan du ikke bare lave tekstfeltet på 1 linie og så egenskaben til Can Grow!~)

Det jeg havde haft gang i det var at bruge can grow, og så få nogle linier til at følge med, så det så lidt smart ud. Det var såmen det eneste...

spg> så vidt jeg kan se så et det Thomas laver noget der kræver en speciel RTF control. Og det kan jeg ikke forvente at mine 'kunder' har
Endvidere ser det ikke ud til at den kan centrere lodret heller.

Det drejer sig om et tekstfelt der har andre controller både ovenfor og nedenfor og så synes jeg det kunne se godt ud hvis den tekst der skal stå i den kommer til at stå pænt midt mellem - det er såmænd det hele.
Man kan gøre det i et felt i Excel så hvorfor ikke også i Access?
Måske er det med i Office 2007 :-)

Ved du på forhånd hvor mange linier teksten vil fylde?

Hvis du gør det, vil du jo godt kunne flytte tekstboksen vha. dens Top property, så feltet kan placeres i midten:

Private Sub Detaljesektion_Format(Cancel As Integer, FormatCount As Integer)
      Me.Detaljesektion.Controls("txtTekst").Top = Me.Detaljesektion.Height - Int(Me.Detaljesektion.Controls("txtTekst").Height * Me.AntalLinier / 2)
End Sub

(forudsætter, at tekstboksens standardhøjde er sat til 1 linie og .CanGrow property sat til True).

Ingen brugbare forslag i dyngen så vi lukker.