Autosize Label-Breite zu weit gestaucht
26.02.2004 13:41:29
Jessica
ich habe eine Userform1 mit einem Label1, welches unterschiedlich lange Werte zurückgibt. An der Höhe des Labels orientiert sich die Scrollhöhe der Userform.
Der Inhalt des Labels wird von einem Makro als Public Variable übergeben und sieht in etwa so aus, quasi eine aneinanderReihung dieser Werte mit CHR(10) als Zeilenumbruch.
a = a + gleis & " Palettenzahl= " & paletten & ": Restkapazität = " & Format(kap - paletten, "00") & " Erster Produktionscode: " & code1 & " Letzter Produktionscode: " & code2 & Chr(10)
Ich möchte jetzt, dass beim Autosize diese Zeilenumbrüche übernommen werden. Leider wird die Breite auf etwa 8 Zeichen gestaucht, so dass ich ein elend langes Label bekomme.
Der Code lautet in etwa:
Public
Sub UserForm_Initialize()
Label1.AutoSize = True
Label1.Caption = a_Userform
UserForm1.ScrollBars = fmScrollBarsVertical
UserForm1.KeepScrollBarsVisible = fmScrollBarsVertical
UserForm1.ScrollHeight = Label1.Height
End Sub
Wer kann mir helfen?
Vielen Dank.
Gruß,
Jessica