07/11-2003 à 17:09Bonjour mike1155
Essaie cette macro :
Sub test_graphique()
' test_graphique Macro
Dim Lg, Ht, Msg1, Msg2, Tte, LgStd, HtStd
Msg1 = "Largeur en mm ?"
Msg2 = "Hauteur en mm ?"
Tte = "Dimensions du graphique"
LgStd = "100"
HtStd = "50"
Lg = InputBox(Msg1, Tte, LgStd)
Ht = InputBox(Msg2, Tte, HtStd)
On Error GoTo GesErr
With Selection
.Height = Ht * 3
.Width = Lg * 2.5
End With
Exit Sub
GesErr:
MsgBox "T'as oublier de sélectionner ton graphique !!!"
End Sub
OK ???[°)]
----------
Kimenbo
Tout le monde sait quelque chose, personne ne sait tout.