VBA Tipp: Maßangaben in cm bzw. mm statt in Twips eingeben

Aus DBWiki
Wechseln zu: Navigation, Suche

Anforderung

Ich möchte Maßangaben in Zentimeter bzw. Millimeter statt in Twips eingeben. Dadurch möchte ich mir das dauernde Umrechnen von cm- und mm-Angaben in Twips (1cm = 567 Twips) ersparen.

Lösung

Das geht mit den folgenden Umwandlungsfunktionen:

Public Function cm(cmwert As Single) As Long
 
   'cmwert = Zahl in Zentimeter, Dezimaltrennzeichen ist der Punkt (z.B. 5.4)
   'Quelle: http://www.dbwiki.net/
 
   cm = CLng(cmwert * 567)
 
End Function
Public Function mm(mmwert As Single) As Long
 
   'mmwert = Zahl in Millimeter, Dezimaltrennzeichen ist der Punkt (z.B. 119.3)
   'Quelle: http://www.dbwiki.net/
 
   mm = CLng(mmwert / 10 * 567)
 
End Function

Verwendung

Die Funktion wird in einem globalen Modul hinterlegt.

Beispiel für die Anwendung der cm-Funktion:

   DoCmd.OpenForm "Artikel"
 
   'Rechts, Unten, Breite, Höhe - jeweils in cm angegeben
   DoCmd.MoveSize cm(9.55), cm(1.05), cm(5), cm(10)