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)

Access-Version: Der Code wurde in Access 2000 erstellt.