Pixel in Twips umrechen und umgekehrt (VB)

Da in Visual Basic standardmäßig (leider) Twips als Maßeinheit genommen wird, und nicht die viel einfacheren Pixel, gibt es oft Probleme mit API-Funktion usw., da diese meistens mit Pixeln arbeiten. Doch mit Hilfe von vier praktischen Funktionen können Sie die Werte ohne Weiteres umrechnen. Ganz ohne API-Funktionen.

Bewertung dieses Tipps:

(bewertet von insgesamt 36 Besuchern)

Wenn Sie die folgenden Funktionen in ein Modul setzen, sind sie im gesamten Projekt nutzbar:

'Twips in Pixel X
Function TwipsToPixelsX(Twips As Long) As Long
   TwipsToPixelsX = Twips / Screen.TwipsPerPixelX
End Function

'Pixel in Twips X
Function PixelsToTwipsX(Pixels As Long) As Long
   PixelsToTwipsX = Pixels * Screen.TwipsPerPixelX
End Function

'Twips in Pixel Y
Function TwipsToPixelsY(Twips As Long) As Long
   TwipsToPixelsY = Twips / Screen.TwipsPerPixelY
End Function

'Pixel in Twips Y
Function PixelsToTwipsY(Pixels As Long) As Long
   PixelsToTwipsY = Pixels * Screen.TwipsPerPixelY
End Function

Beachten Sie bitte, dass Sie zwischen X- und Y-Werten unterscheiden müssen, da Twipsbreiten und -höhen auf Systemen variieren. Es gilt also: Alles, was irgendwie waagerecht ist, ist ein X-Wert und alles was das Gegenteil, also senkrecht ist, ist ein Y-Wert.

Quellen: SHADOWare.de
Letzte Änderung: 14.06.00