Excel VBA Textbox der Schriftgröße

Ich habe eine userform anzeigen meine Allgemeinen Geschäftsbedingungen, die abgeholt wird, direkt aus einer Zelle. Nach der Aktivierung nenne ich TandC.Text = Worksheets("Master").Range("L41") funktioniert perfekt, wenn ich das Formular direkt -- richtige schriftart-Größe, mehrere Zeilen, Zeilenumbruch etc. Allerdings, wenn ich das Formular aus einer anderen userform, die die TextBox-text plötzlich zeigt den text in einer winzigen Schrift unlesbar. Sogar, wenn ich eine test-Taste auf dem Formular, stellen Sie die Schriftgröße auf 28, es funktioniert nicht, wenn die form ist gekickt aus einem anderen Formular; es wird jedoch ändern, wenn es auf eigenen.

Scheint es ein Problem zu sein, wenn Multiline eingeschaltet ist, schalte ich es aus und die Schrift ist in der richtigen Größe aber der text erstreckt sich für Meilen auf der rechten Seite. Ich es wieder einschalten und wieder habe ich eine kleine Schrift unlesbar.

Es treibt mich in den Wahnsinn, kann mir jemand einen Rat?

Siehe unten mein code, den Füßen die form aus der ursprünglichen form ist nur eine einfache UF.Show.

Mir ist das eigentlich ähnlich wie andere dann in meinem initialisiert werden ich habe einige code, der zentralisiert die form auf dem Bildschirm, wenn Sie mehrere Monitore haben.

Private Sub CommandButton2_Click()
TandC.WordWrap = True
TandC.Font.Size = 8
TandC.MultiLine = True

End Sub

Private Sub UserForm_Initialize()

Dim TopOffset As Integer
Dim LeftOffset As Integer
TopOffset = (Application.UsableHeight / 2) - (Me.Height / 2)
LeftOffset = (Application.UsableWidth / 2) - (Me.Width / 2)
Me.Top = Application.Top + TopOffset
Me.Left = Application.Left + LeftOffset

TandC.Text = Worksheets("MasterData").Range("L21")
TandC.WordWrap = True
TandC.MultiLine = True
TandC.Font.Size = 8

End Sub

InformationsquelleAutor Ian Gough | 2013-10-30

Schreibe einen Kommentar