title image


Smiley Spaltenbreiten und Zeilenhöhe für Datenblatt setzen




Sub AutofitUF() 'Spaltenbreiten und Zeilenhöhe anpassen

Dim ctl As Control

    For Each ctl In Me.Controls

     Select Case ctl.ControlType

      Case acTextBox, acComboBox

        ctl.ColumnWidth = -2 'Spaltenbreite an sichtbare Textgröße anpassen

     End Select

    Next ctl

    Set ctl = Nothing

    

Me.RowHeight = True 'Standardhöhe für die aktuelle Schriftart setzen

End Sub



Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)

 On Error Resume Next

 AutofitUF

End Sub



Code eingefügt mit Syntaxhighlighter 2.1




Gruss aus dem (wilden) Süden ;-) Karl-Heinz

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: