Convertir unite de mesure du texte en pixels

Résolu
Signaler
Messages postés
556
Date d'inscription
lundi 6 octobre 2003
Statut
Membre
Dernière intervention
31 octobre 2019
-
Messages postés
556
Date d'inscription
lundi 6 octobre 2003
Statut
Membre
Dernière intervention
31 octobre 2019
-
Bonjour,

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

Merci :approve) et @ Plus ;)

BIL@Loch
:)

4 réponses

Messages postés
14008
Date d'inscription
samedi 29 décembre 2001
Statut
Modérateur
Dernière intervention
28 août 2015
81
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
3
Merci

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

Codes Sources 109 internautes nous ont dit merci ce mois-ci

Messages postés
3140
Date d'inscription
vendredi 14 mai 2004
Statut
Membre
Dernière intervention
11 mars 2019
31
' les Points en Pixels
x = ScaleX(Text1.Width, vbPoints, vbPixels)

' Les Twips en Pixels
x = ScaleX(Text1.Width, vbTwips, vbPoints)
3
Merci

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

Codes Sources 109 internautes nous ont dit merci ce mois-ci

Messages postés
3140
Date d'inscription
vendredi 14 mai 2004
Statut
Membre
Dernière intervention
11 mars 2019
31
oups!

' Les Twips en Points
x = ScaleX(Text1.Width, vbTwips, vbPoints)
3
Merci

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

Codes Sources 109 internautes nous ont dit merci ce mois-ci

Messages postés
556
Date d'inscription
lundi 6 octobre 2003
Statut
Membre
Dernière intervention
31 octobre 2019
1
Merci Jack et Gobillot

@ Plus ;)

BIL@Loch
:)