Hallo,
ich hab da noch ein Problem mit einer Textbox.
Die Textboxen werdem mittels einer Listbox gefüllt.
Es ist erforderlich, dass in einer Textbox die Schriftgrösse autom. je nach
Zeichenzahl angepasst wird.
Bitte entschuldigtdie schreibweise von (kleiner/gleich).Ich muß noch auf die
Suche nach einen pass. Programm gehen um den VBA Code einzufügen.
Wer kann helfen?
Danke im voraus
Peter
For Each oleObj In wks.OLEObjects
With oleObj
If TypeName(.Object) = "TextBox" Then
If .Name Like "txtZuname*" Then .Object.Text = UCase(Trim$(Left(Dat.Cells(lstMultiCol.ListIndex + 3, 5), InStr(1, Datdat.Cells(lstMultiCol.ListIndex + 3, 5), ",") - 1)))
Hier tritt der Fehler auf:
Select Case Len(.Name("txtZuname90").Text)
Case Is (kleiner/gleich) 10: .Object.Text.Font.Size = 36
Case Is (kleiner/gleich) 12: .Object.Text.Font.Size = 30
End Select