Bildschirmlupe zum Vergrößern verwenden
07.08.2019 18:50:11
Sören
gibt es die möglichkeit einen bestimmten radius größer abzeigen zulassen. Ich habe mir das so ähnlich forgestellt, wie auf websiten im Internet. Wenn man da auf das Bild klickt, wird dieser mit einem Zoom größer angezeigt.
Der Grund ist folgender. ich habe textboxen die haben eine bestimmte größe und länge. mit dem folgenden Code über Exit passt sich die Schriftgröße der TextBox an. Da aber in machen TextBoxen sehr viel reingeschrieben werden darf. Kann man den Text nicht mehr wirklich gut sehen. Warum die da so viel eintragen dürfen? Wurde vorgeben und kann ich leider nicht ändern. Die TextBoxen zu vergrößern geht leider auch nicht mehr.
Code zum anpassen der Schriftgröße an den Text:
Private Sub Textbox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
' anpassen des Textes auf die Textboxgröße
Const TEXTBOX_HEIGHT = 19
Const TEXTBOX_WIDTH = 222
Application.ScreenUpdating = False
With textbox1
If .TextLength > 0 Then
.AutoSize = True
If .Height > TEXTBOX_HEIGHT Then
Do While .Height > TEXTBOX_HEIGHT
.Font.Size = .Font.Size - 0.1
.Width = TEXTBOX_WIDTH
Loop
Else
Do While .Height TEXTBOX_HEIGHT Then _
.Font.Size = .Font.Size - 0.1
End If
.AutoSize = False
.Width = TEXTBOX_WIDTH
.Height = TEXTBOX_HEIGHT
Else
.Width = TEXTBOX_WIDTH
.Height = TEXTBOX_HEIGHT
.Font.Size = 10
End If
End With
Application.ScreenUpdating = True
End Sub
Im Internet habe ich ein paar Beiträge gefunden, aber nichts was wirklich mein Problem löst. Nur eine Sache war interessant, per Db Click auf das feld soll ein Zoom kommen. Habe dazu auch den Code genommen, aber leider funktioniert es nicht:
Private Sub Ausgabetext_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
DoCmd.RunCommand acCmdZoomBox
End Sub
Vielleicht hat jaeiner aus dem Forum eine gute Idee was ich machen kann, bzw. weis warum der Code hier drüber nicht funktioniert.Gruß Sören