Hauteur de ligne et largeur de colonne sur excel 2002

Bonsoir,

Suite à ta question j'ai essayé de me cultiver en lisant,
ainsi selon l'aide :
RowHeight se mesure en points
"un point correspond à l/72 de pouce" soit 1/28 de cm
pour la lergeur c'est moins précis:
ColumnWidth
"Une unité de largeur de colonne est égale à la largeur d'un caractère du
style Normal."


(amha ce doit être du 10)
Ainsi une largeur de 4 sur une hauteur de 28 correspondrait à peu près à
1cm.

Cordialement.

lSteph


"JPB" <jpbonnefoy@free.fr> a écrit dans le message de news:
44dcd23c$0$4581$626a54ce@news.free.fr...

Bonsoir,
Un être cultivé pourrait il me dire à quelle unité correspond la hauteur
et la largeur de ligne et de colonne ????
Peut on afficher cela en millimètre ???

Merci pour les réponses

..re,
pour poursuivre un exemple en vba:

Sub papiermilli()
With Cells
.RowHeight = 28 / 10
.ColumnWidth = 0.25
End With
End Sub

'lSteph

"JPB" <jpbonnefoy@free.fr> a écrit dans le message de news:
44dcd23c$0$4581$626a54ce@news.free.fr...

Bonsoir,
Un être cultivé pourrait il me dire à quelle unité correspond la hauteur
et la largeur de ligne et de colonne ????
Peut on afficher cela en millimètre ???

Merci pour les réponses

BonsoEr GeeDee,
...oui j'insiste, ce n'était qu'une approximation...en 1024 *768
je range le ruban que j'ai dû coller sur mon écran pour y arriver,
d'ailleurs Coco en a besoin pour sa couture ;o))
Mais dis-moi ...KV270 c'est du Mozart!

Je te souhaite une bonne nuit.

Steph

"Modeste" <nomail@nomail.net> a écrit dans le message de news:
eYK%23ACZvGHA.356@TK2MSFTNGP04.phx.gbl...

Bonsour® lSteph avec ferveur ;o))) vous nous disiez :

..re,
pour poursuivre un exemple en vba:
Sub papiermilli()
With Cells
.RowHeight = 28 / 10
.ColumnWidth = 0.25
End With
End Sub

pour completer :
chaque marque et modéle d'imprimante introduit un ratio vertical et
horizontal (parfois different),
il conviendra donc également d'étalonner la ou les imprimantes en
imprimant une zone dont on connait les dimensions EXCEL
et calculer ensuite un coef de correction

une approche perso :
il faut dessiner un objet carré de dimensions quelconques :
par exemple 270 pixels ))

ActiveSheet.Shapes.AddShape(msoShapeRectangle, PosX, PosY,
Largeur,Hauteur)

l'imprimer,
mesurer sur le papier les dimensions hauteur et largeur
et memoriser les ratios obtenus KH (Korrrrrrection Horizontale) et KV (
Korrrrrrection Verticale)
KH= largeur en pixels / largeur lue sur papier en mm
KV= hauteur en pixels / hauteur lue sur papier en mm


macro à modifier en fonction des mesures lues

Sub Macro1()
ActiveSheet.Shapes.AddShape(msoShapeRectangle, 20, 20, 270, 270).Select
' ------en appliquant les coefficients trouvé sur mon ESPSON STYLUS COLOR
' ------mesure lue : largeur 98mm, Hauteur 94mm
KH = 270 / 98
KV = 270 / 94
' -------pour obtenir un carré de 100mm x 100mm
ActiveSheet.Shapes.AddShape(msoShapeRectangle, 40, 60, 100 * KH, 100 *
KV).Select
'-------pour obtenir un rectangle de 120mm x 60mm
ActiveSheet.Shapes.AddShape(msoShapeRectangle, 60, 100, 120 * KH, 60 *
KV).Select
End Sub



--
--
@+
;o)))

Bonjour,

J'ai repondu samedi 12 aout matin pour vous remercier de vos reponses mais
j'ai du faire une co....... car il me semble qu e vous n'avez rien reçu.
C'était pour faire des étiquettes:
Finalement j'ai fait une cellule hauteur 10 largeur de 50 je l'ai imprimée
j'ai mesuré l'impression puis excel ma fait 2 magnifiques règle de 3
quand je veux une étiquette de 2cm de haut et 5 cm de long mes 2 règles de 3
me donnent les hauteurs et longueur en pixel et le tour est joué.
Merci encore et bonjour à coco

ça

Sub papiermilli()
With Cells
.RowHeight = 28 / 10
.ColumnWidth = 0.25
End With
End Sub
je ne sais pas m'en servir !!!!!

"lSteph" <lecocosteph@frite.fr> a écrit dans le message de news:
OSBr0JZvGHA.4968@TK2MSFTNGP03.phx.gbl...

BonsoEr GeeDee,
...oui j'insiste, ce n'était qu'une approximation...en 1024 *768
je range le ruban que j'ai dû coller sur mon écran pour y arriver,
d'ailleurs Coco en a besoin pour sa couture ;o))
Mais dis-moi ...KV270 c'est du Mozart!

Je te souhaite une bonne nuit.

Steph

"Modeste" <nomail@nomail.net> a écrit dans le message de news:
eYK%23ACZvGHA.356@TK2MSFTNGP04.phx.gbl...

Bonsour® lSteph avec ferveur ;o))) vous nous disiez :

..re,
pour poursuivre un exemple en vba:
Sub papiermilli()
With Cells
.RowHeight = 28 / 10
.ColumnWidth = 0.25
End With
End Sub

pour completer :
chaque marque et modéle d'imprimante introduit un ratio vertical et
horizontal (parfois different),
il conviendra donc également d'étalonner la ou les imprimantes en
imprimant une zone dont on connait les dimensions EXCEL
et calculer ensuite un coef de correction

une approche perso :
il faut dessiner un objet carré de dimensions quelconques :
par exemple 270 pixels ))

ActiveSheet.Shapes.AddShape(msoShapeRectangle, PosX, PosY,
Largeur,Hauteur)

l'imprimer,
mesurer sur le papier les dimensions hauteur et largeur
et memoriser les ratios obtenus KH (Korrrrrrection Horizontale) et KV
( Korrrrrrection Verticale)
KH= largeur en pixels / largeur lue sur papier en mm
KV= hauteur en pixels / hauteur lue sur papier en mm


macro à modifier en fonction des mesures lues

Sub Macro1()
ActiveSheet.Shapes.AddShape(msoShapeRectangle, 20, 20, 270, 270).Select
' ------en appliquant les coefficients trouvé sur mon ESPSON STYLUS COLOR
' ------mesure lue : largeur 98mm, Hauteur 94mm
KH = 270 / 98
KV = 270 / 94
' -------pour obtenir un carré de 100mm x 100mm
ActiveSheet.Shapes.AddShape(msoShapeRectangle, 40, 60, 100 * KH, 100 *
KV).Select
'-------pour obtenir un rectangle de 120mm x 60mm
ActiveSheet.Shapes.AddShape(msoShapeRectangle, 60, 100, 120 * KH, 60 *
KV).Select
End Sub



--
--
@+
;o)))