Convertir unite de mesure du texte en pixels [Résolu]

bilaloch 554 Messages postés lundi 6 octobre 2003Date d'inscription 9 juillet 2014 Dernière intervention - 19 sept. 2004 à 19:29 - Dernière réponse : bilaloch 554 Messages postés lundi 6 octobre 2003Date d'inscription 9 juillet 2014 Dernière intervention
- 20 sept. 2004 à 10:39
Bonjour,

Comment convertir l'unite de mesure du texte (pts je crois) en pixels ?!?

Merci :approve) et @ Plus ;)

BIL@Loch
:)
Afficher la suite 

4 réponses

cs_Jack 14010 Messages postés samedi 29 décembre 2001Date d'inscription 28 août 2015 Dernière intervention - 19 sept. 2004 à 19:47
+3
Utile
Salut bilaloch
Ton texte est dans quoi, quel controle ?

Pour avoir la taille en twips d'un texte :
Largeur = Me.TextWidth("Mon texte")
Hauteur = Me.TextHeight("Mon texte")
"Me" correspond à la forme dans laquelle se trouve le code.
Les valeurs seront renvoyées en rapport avec la fonte et la taille du texte de la Forme. Ces paramètres peuvent donc être différents pour le controle dans lequel le texte se trouve.
Comme, en général, on ne se sert pas de la forme pour écrire, tu peux initialiser les paramètres de la forme avec ceux du controle qui contient ton texte :
Me.Font = MonControle.Font

Pour convertir les twips en pixel :
Horizontalement : Pixels = Twips / Screen.TwipsPerPixelX
Verticalement : Pixels = Twips / Screen.TwipsPerPixelY
Là aussi, cette valeur peut changer selon que tu calcule tes données pour l'afficher à l'écran ou vers une imprimante : Tu peux remplacer Screen par Printer.

Vala
Jack
Cette réponse vous a-t-elle aidé ?  
Gobillot 3140 Messages postés vendredi 14 mai 2004Date d'inscription 31 mars 2015 Dernière intervention - 19 sept. 2004 à 21:13
+3
Utile
' les Points en Pixels
x = ScaleX(Text1.Width, vbPoints, vbPixels)

' Les Twips en Pixels
x = ScaleX(Text1.Width, vbTwips, vbPoints)
Cette réponse vous a-t-elle aidé ?  
Gobillot 3140 Messages postés vendredi 14 mai 2004Date d'inscription 31 mars 2015 Dernière intervention - 19 sept. 2004 à 21:14
+3
Utile
oups!

' Les Twips en Points
x = ScaleX(Text1.Width, vbTwips, vbPoints)
Cette réponse vous a-t-elle aidé ?  
bilaloch 554 Messages postés lundi 6 octobre 2003Date d'inscription 9 juillet 2014 Dernière intervention - 20 sept. 2004 à 10:39
0
Utile
Merci Jack et Gobillot

@ Plus ;)

BIL@Loch
:)

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.