Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Développement Développement Visual Basic Dimension d'une image en cm

Dimension d'une image en cm

4 réponses
Avatar
mg
SAlut,
je souhaite redimensionner une image en donnant les parametre de sortie en
cmm au lieu des pixels ce que je fais actellement.
existe-t-il une solution.

merci davance.
Signaler un problème avec ce contenu

4 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
Patrice Henrio
"mg" a écrit dans le message de news:
ec$
SAlut,
je souhaite redimensionner une image en donnant les parametre de sortie en
cmm au lieu des pixels ce que je fais actellement.
existe-t-il une solution.

merci davance.






LargeurEnCm=Image.Width*Screen.TwipsPerPixelX/567
LongueurEnCm=Image.height*SCreen.TwipsPerPIxelY/567

1 cm= 567 twips

1 pixel = TwipsPerPixel Twips

(sur mon écran : 1 pixel = 15 twips)
Avatar
Picalausa François
"Patrice Henrio" a écrit dans le message de
news: %

"mg" a écrit dans le message de news:
ec$
SAlut,
je souhaite redimensionner une image en donnant les parametre de sortie
en
cmm au lieu des pixels ce que je fais actellement.



LargeurEnCm=Image.Width*Screen.TwipsPerPixelX/567
LongueurEnCm=Image.height*SCreen.TwipsPerPIxelY/567
1 cm= 567 twips
1 pixel = TwipsPerPixel Twips



Hello,

plus simplement, si l'image est affichée dans un
picturebox/form/printer/..., employer ScaleX et ScaleY:
MsgBox "10 cm font " & Object.ScaleX(10, vbCentimeters, vbPixels) & "
pixels (en X)"
MsgBox "10 cm font " & Object.ScaleY(10, vbCentimeters, vbPixels) & "
pixels (en Y)"

où Object peut être une form, un picturebox, l'objet printer, ...
--
Picalausa François
Avatar
Patrice Henrio
C'est vrai j'avais oublié cette possibilité.

"Picalausa François" a écrit dans le message de news:

"Patrice Henrio" a écrit dans le message de
news: %

"mg" a écrit dans le message de news:
ec$
SAlut,
je souhaite redimensionner une image en donnant les parametre de sortie
en
cmm au lieu des pixels ce que je fais actellement.



LargeurEnCm=Image.Width*Screen.TwipsPerPixelX/567
LongueurEnCm=Image.height*SCreen.TwipsPerPIxelY/567
1 cm= 567 twips
1 pixel = TwipsPerPixel Twips



Hello,

plus simplement, si l'image est affichée dans un
picturebox/form/printer/..., employer ScaleX et ScaleY:
MsgBox "10 cm font " & Object.ScaleX(10, vbCentimeters, vbPixels) & "
pixels (en X)"
MsgBox "10 cm font " & Object.ScaleY(10, vbCentimeters, vbPixels) & "
pixels (en Y)"

où Object peut être une form, un picturebox, l'objet printer, ...
--
Picalausa François



Avatar
Bonjour,

La solution de François ayant l'avantage d'être indépendante du
périphérique.
Un "cm" écran n'ayant rien à voir avec un "cm" imprimante.

Le scaleX et scaleY faisant en interne (je suppose) appel au propriété
du DC de l'objet.

Christophe


Patrice Henrio a écrit :
C'est vrai j'avais oublié cette possibilité.

"Picalausa François" a écrit dans le message de news:


"Patrice Henrio" a écrit dans le message de
news: %

"mg" a écrit dans le message de news:
ec$

SAlut,
je souhaite redimensionner une image en donnant les parametre de sortie
en
cmm au lieu des pixels ce que je fais actellement.



LargeurEnCm=Image.Width*Screen.TwipsPerPixelX/567
LongueurEnCm=Image.height*SCreen.TwipsPerPIxelY/567
1 cm= 567 twips
1 pixel = TwipsPerPixel Twips



Hello,

plus simplement, si l'image est affichée dans un
picturebox/form/printer/..., employer ScaleX et ScaleY:
MsgBox "10 cm font " & Object.ScaleX(10, vbCentimeters, vbPixels) & "
pixels (en X)"
MsgBox "10 cm font " & Object.ScaleY(10, vbCentimeters, vbPixels) & "
pixels (en Y)"

où Object peut être une form, un picturebox, l'objet printer, ...
--
Picalausa François