Problemstellung:

Für 32Bit und 64Bit Office Versionen

Es ist immer wieder mit Aufwand verbunden Positionsangaben in VBA-Code in Twips angeben zu müssen.
Kann man nicht die Werte auch in Millimetern angeben?
Ja, das geht.

Lösung:
Folgende Funktion in ein öffentliches Modul kopieren:

Public Function Get_MM(sngMM As Single) As Long
     Get_MM = CLng(sngMM * 56.7)
End Function

Der Zugriff erfolgt dann so:

Me.txtFeld1.Top = Get_MM(25) '2,5 cm von oben
Me.txtFeld1.Width = Get_MM(35) '3,5 cm breit

Ähnliche Artikel