|
 |
 |
 |
| |
 Convertir des pixels en Twips
Paramètres en entrée : X (chaîne), Y (chaîne), Texte (booléen)
Paramètres en sortie : PixelsVersTwips (chaîne)
Public Function PixelsVersTwips(X As String, Y As String, Texte As Boolean) As String
ux = Screen.TwipsPerPixelX
uy = Screen.TwipsPerPixelY
X = X * ux
Y = Y * uy
If Texte = True Then
PixelsVersTwips = Int(X) & " x " & Int(Y) & " Twips"
Else
PixelsVersTwips = Int(X) & " x " & Int(Y)
End If
End Function
|
|
 |
 |
 |
|