AW: Schriftgröße in Textbox anpassen
24.08.2008 15:42:43
Daniel
Hi
wenn die Textboxgrösse nicht geändert werden soll, dann brauchst du dieses Makro im Modul des Tabellenblatts mit der Textbox:
Private Sub Worksheet_Change(ByVal Target As Range)
Dim rngAktZelle As Range
Set rngAktZelle = ActiveCell
With TextBox1
If Not Intersect(Range(.LinkedCell), Target) Is Nothing Then
.Activate
.SelStart = 0
.Font.Size = 10
Do Until ((.Font.Size + 2) * .LineCount + 5)
dabei wird die Schriftgrösse soweit verkleinert, bis der ganze Text in die Textbox passt.
da die gesamthöhe des Textes berechnet wird und nicht aus dem System abgefragt wird, musst du u.U mit den Parameteren 2 und 5 etwas rumspielen, um für deinen Fall immer ein optimales ergebnis zu erhalten.
Gruß, Daniel