Problem

Über einen Bericht soll beispielsweise ein Formular bedruckt werden, das in zwei verschiedenen Varianten vorliegt. Die jeweils zu bedruckende Variante stellt der Anwender in einem Formular ein. Abhängig davon müssen dann diverse Textfelder beim Öffnen des Berichtes per VBA neu positioniert und von den Maßen angepasst werden. Das ginge am einfachsten, indem man die Werte in Millimetern angeben könnte. Wie aber lassen sich Millimeter in die erforderliche Maßeinheit „Twips“ umrechnen?

Lösung

Ein Twip entspricht 1/20 eines Punktes, der wiederum 1/72 eines Inches entspricht. Auf einen Inch kommen somit 1440 Twips. Ein Inch entspricht 2,54 cm, 1440 geteilt durch 2,54 ergibt 567 Twips pro Zentimeter oder 56,7 Twips pro Millimeter. Die Umrechnung vereinfacht die folgende Funktion:

Public Function mm(Millimeter As Single) As Long 

mm = CLng(Millimeter * 56.7) 

End Function

In Zukunft können Sie dann beispielsweise ein Textfeld wie folgt einstellen:

Me.txtPreis.Top = mm(20) ‚2 cm von oben

Me.txtPreis.Width = mm(45) ‚4,5 cm breit