Taille d'un graphique imprimé

Comment déterminer d'avance la taille exacte d'un graphique (en mm) sur la feuille imprimée.


sub DimGraph()
Dim Lg, Ht, Msg1, Msg2, Tte, LgStd, HtStd
Msg1 = "Quelle largeur en mm souhaitez-vous ?"
Msg2 = "Quelle hauteur en mm souhaitez-vous ?"
Tte = "Dimensions du graphique"
'largeur et hauteur standard d'un objet graphique incorporé
'en mm
LgStd = "107"
HtStd = "52,5"
Lg = InputBox(Msg1, Tte, LgStd)
If Lg = "" Then exit sub
Ht = InputBox(Msg2, Tte, HtStd)
On Error GoTo GesErr
With Selection
.Height = Ht * 2.925
.Width = Lg * 2.66
End With
exit sub
GesErr:
MsgBox "Vous devez d'abord sélectionner un graphique..."
exit sub
end sub

nb: Il faut pour chaque imprimante réaliser les ajustements nécessaires par tatonnement en jouant sur les paramètres des lignes 15 et 16. Mais ensuite c'est tout bon ! tests réalisés sur Epson C60

Auteur(s) : 

Ce mois-ci sur Excelabo

- Pas de nouvelle page.
- 1 page modifiée.