Office: Textfelder dynamisch anpassen

Hallo zusammen

ich möchte in einem Endlosformular mit zwei Textfeldern die Grösse der Textfelder dem entsprechenden Inhalt dynamisch anpassen. Es gibt bei den Textfeldeinstellungen die Möglichkeit "Vergrösserbar/Verkleinerbar ja-nein", aber funktionieren tut dies nicht.

Hat jemand eine Idee, wie man dies umsetzen kann.

Merci + Gruss

UBA

:)

 

Es gibt sicher bessere und elegantere und passendere Lösungen, aber vielleicht hier eine erste:
Code:

HTH

 

Hallo HTH

vielen Dank für den Tipp, ich bräuchte aber genauer eine Einstellungsmöglichkeit

-> Länge des Textfeldes fix
-> Höhe des Textfeldes variabel bzw. dynamisch ( zur Vermeidung von Lehrzeilen)

Gibts da auch eine Möglichkeit?

Gruss UBA

 

Hi uba,
bei eienr angenommenen Schriftart von Tahoma, 8 pt führt folgender Code zu einem hoffentlich brauchbaren Ergebnis:
Code:

Geht das?

 

OK, das war wieder mal ein Absendefeher - zu schnell...
Sofern Du Zeilenumbrüche hast, wäre das vielleicht ein Ansatz gewesen.
Sofern es auf die Länge ankommt, vielleicht auch so:
DeinFeld.Height = (Len(DeinFeld.Value) \ 13 + 1) * 220

Hier mit Tahoma, 8 pt. Ca. 13 Zeichen passen in mein Beispielfeld. Dann könnte es auch wie folgt funktionieren (Experimentalstadium!)

If IsNull(DeinFeld) Then Exit Sub
DeinFeld.Height = (Int(Len(DeinFeld.Value) / 13) + 1) * 220

?

 

Hallo Matthias

Danke für Deinen Vorschlag, es funktioniert soweit, dass der Text entsprechend angezeigt wird.

Was leider nicht funktioniert (vielleicht mache ich ja auch was falsch) ist der Abstand zur nächsten Textausgabe in der Endlostabelle. Konkret meine ich bei der ersten Zeile habe ich eine Textlänge von 50 Zeichen, bei der zweiten Zeile 200 Zeichen bei der dritten 100 Zeichen usw. Der Abstand zu den einzelnen nachfolgenden Feldern ist aber trotzdem immer gleich gross, bzw. das Textfeld erscheint immer gleich hoch, dieser müsste m.E. aufgrund der tgextlängen immer unterschiedlich sein Man hat halt den Eindruck, dass immer mit Leerzeichen aufgefüllt wird.

Ich hoffe die Verwirrung ist jetzt komplett, vielleicht kannst Du trotzdem was damit anfangen.

Gruss UBA

 

Hmmm, ich Dummbeutel hatte überlesen, dass Du in einem Endlosformular arbeitest...
Ich befürchte, ich muss passen. Aber vielleicht findet sich ja noch eine Lösung???
HELP!

 

aus der Online-Hilfe:

Da hast du wohl schlechte Karten. *mad.gif*

Probiers mal aus, in der Seitenansicht klappt´s.

Bernd

 

Hallo,

schau mal unter http://www.ms-office-forum.net/forum...threadid=97858