Gegevensblad kolombreedte wijzigen

[linkav]

Beste,

Kan ik in code de kolombreedte wijzigen van 1 of meerdere kolommen in een gegevensblad?

 

[OctaFish]

Dat kan op 2 manieren:
1. De kolombreedte automatisch aanpassen op basis van de breedte van de kolom(kop)
2. De breedte handmatig instellen.
De tweede optie werkt met twips en vereist dus wat rekenwerk (1 inch = 1440 twips)

Met code, en ik gebruik daarbij beide opties in één routine:

Private Sub Form_Current()
Dim ctl As Control
    For Each ctl In Me.Controls
        On Error Resume Next
        ctl.ColumnWidth = -2
    Next ctl
    Me.AandachtspuntenID.ColumnWidth = 1000
End Sub