1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28
| // Résumé : Change la largeur de la colonne
PROCEDURE setLargeur(rNewLargeur est un réel, sUnité est une chaîne = "EXCEL")
//Points Pixels Centimètres
//18 24 0,635
//36 48 1,27
//72 96 2,54
//108 144 3,81
//144 192 5,08
SELON sUnité
CAS "EXCEL"
m_rLargeurColonne = rNewLargeur
m_rLargeurColonneCm = (rNewLargeur*0.254)
m_rLargeurColonnePixel = ((rNewLargeur-1)*9)+16
CAS "CM"
m_rLargeurColonne = (rNewLargeur*18)/0.635
m_rLargeurColonneCm = rNewLargeur
m_rLargeurColonnePixel = (rNewLargeur*8)/0.635
CAS "PIXEL"
m_rLargeurColonne = (rNewLargeur*18)/24
m_rLargeurColonneCm = (rNewLargeur*0.635)/24
m_rLargeurColonnePixel = rNewLargeur
AUTRE CAS
FIN |
Partager