TextBox 2 kanten uitlijnen

[DutchOirs]

Goedemorgen allen,

Zit met een vraagje dus dacht stel hem hier.

Is het mogelijk om in een Textbox twee teksten links en rechts uit te lijnen?

Weet dat je in eigenschappen van de Textbox links/midden/rechts kunt instellen.

Maar is het ook mogelijk via VBA om 2 teksten links en rechts te laten uitlijnen?

Alvast many thanks.

Vr. Gr.

Dutch

 

[edmoor]

Met allerlei berekeningen m.b.t. pixels, fontbreedtes en nog meer van dat soort zaken zou dat wel te doen zijn.
Maar waarom zou je niet gewoon 2 texboxen gebruiken? Daar zie je niks van:
Bekijk bijlage Kopie van TextBoxUitlijnen.xls

 

[DutchOirs]

He thanks, goeie optie..

Maar als je bekijkt uit oogpunt van grootte file, zou het veel uitmaken?

Gaat namelijk over behoorlijk wat textboxen.
Gebruik excel 2003 en file grootte is al 6 mb. Merk aan excel dat ie het moeilijker krijgt..
Trouwens enig idee tot welke grootte je goed kan programmeren?

Vr. Gr.

Dutch

 

[edmoor]

Wat bestandsgrootte betreft zit je vast aan het maximum dat Office 2003 aan kan. Ben wel benieuwd wat je document allemaal bevat dat deze 6 MB is.

 

[HSV]

Test het eens met wat andere tekst.
Zet in de eigenschap de 'Maxlength' op 67.

 TextBox1 = Text1 & Space(TextBox1.MaxLength - Len(Text1 + Text2)) & Text2

 

[DutchOirs]

Wat bestandsgrootte betreft zit je vast aan het maximum dat Office 2003 aan kan. Ben wel benieuwd wat je document allemaal bevat dat deze 6 MB is.

Hoi Edmoor,

Heb er nog eentje en die is 6 1/2 mb draait nog goed.

Dit is een aandelen file. 9 jaar geleden gemaakt in excel zelf, zonder VBA.
In 2007 een HB gehad en 2009 100% afgekeurd.
Hierna begonnen met VBA te leren en bevalt me prima. ( kon al overweg met Quick Basic)
Heb het file helemaal geautomatiseerd o.a. koersen na 6 uur automatisch dowloaden etc etc.
Leuke hobby, maar gaat veel tijd in zitten

Vr. Gr.

Dutch

 

[DutchOirs]

Test het eens met wat andere tekst.
Zet in de eigenschap de 'Maxlength' op 67.

 TextBox1 = Text1 & Space(TextBox1.MaxLength - Len(Text1 + Text2)) & Text2

Ga ik ff doen thanks HSV.

 

[DutchOirs]

Hoi HSV,

ff geprobeerd en het werkt, zie vb.

morgen ff uitzoeken wat het verschil is in grootte file.

Maar goeie oplossing...

Many thanks..

Dutch

 

[HSV]

Ik ben nog iets vergeten te vermelden.
Zet de 'Font' in de eigenschap op 'Courier New', en de 'Maxlength' op 67.

Werkt beter bij andere teksten.

 

[snb]

- verwijder opmaak die tot het einde van de kolom doorgaat
- verwijder opmaak die tot het einde van een rij doorgaat
- verwijder voorwaardelijke opmaak die tot het einde van een rij/kolom doorgaat
- verwijder overbodige voorwaardelijke opmaakregels
- verwijder verborgen afbeeldingen (msgbox shapes.count )

 

[DutchOirs]

Ik ben nog iets vergeten te vermelden.
Zet de 'Font' in de eigenschap op 'Courier New', en de 'Maxlength' op 67.

Werkt beter bij andere teksten.

Hoi HSV,

ff twee vraagjes.

heb het beidde uitgetest en qua grootte zit er geen verschil tussen
Gebruik meestal Times New Roman als lettertype. Zit daar dan ook verschil in, in opslag?
En wat betreft die max lenght, met die 67 komt de tekst dan altijd rechts of is daar dan iets anders mee? Had namelijk 117 ingesteld.

 

[HSV]

Hoi,

Je kan zonder de max in te stellen doorschrijven zodat het linker gedeelte van de tekst achter het textboxvenster verdwijnt.
Met 'courier new' heb je een lettertype die per symbool evenveel ruimte inneemt (non - proportioneel).
Maak van je tekst in je code maar eens: "Deze komt links te staan" en "Deze komt rechts te staan".
Doe dat eens in beide bestanden, en zie het verschil.

 

[edmoor]

Mijn opmerking m.b.t. het rekenwerk was dan ook met een proportioneel lettertype in gedachten. Bij een niet proportioneel lettertype speelt dat probleem inderdaad niet maar dat vind men meestal niet mooi.

 

[DutchOirs]

Hoi,

Je kan zonder de max in te stellen doorschrijven zodat het linker gedeelte van de tekst achter het textboxvenster verdwijnt.
Met 'courier new' heb je een lettertype die per symbool evenveel ruimte inneemt (non - proportioneel).
Maak van je tekst in je code maar eens: "Deze komt links te staan" en "Deze komt rechts te staan".
Doe dat eens in beide bestanden, en zie het verschil.

Thanks ff getest en inderdaad met MaxLength = 67 past ie keurig de volledige tekst rechts uitgelijnd.
Maar, misschien een domme vraag, waar zit het hem dan in daar als je MaxLength = 140 neer zet hij niet vast flexibel is en met 67 hij wel flexibel is..

 

[HSV]

Geen domme vraag hoor.
Dat is het aantal karakters dat het zichtbare venster breed is.
Gewoon even 1234567890 typen in het venster en zo vaak herhalen tot de eerste aan de linkerkant verdwijnt.
Dan kom ik uit op 67.

 

[DutchOirs]

dus mag ik concluderen dat dus de Maxlenght afhangt van het letter type

andere letter type dan courier new dan ook andere lengte

 

[HSV]

Een proportioneel lettertype varieert in lengte met wat voor letters je gebruikt.

 

[DutchOirs]

ok, ja had ik begrepen. Sinds kort weet ik van het proportioneel lettertype af. Is er in excel ergens een optie dat je kan zien wat een proportioneel lettertype is en wat niet?

 

[HSV]

Niet dat ik weet, even Google raadplegen.

 

[edmoor]

Je ziet dat snel genoeg in het font keuzemenu. Als een i net zoveel ruimt inneemt als een O dan is het een niet proportioneel lettertype. Kijk maar eens bij Courier New.