Galere de modifier un graphique

jinroh_107 Messages postés 1 Date d'inscription mardi 25 avril 2006 Statut Membre Dernière intervention 25 avril 2006 - 25 avril 2006 à 23:59
michelxld Messages postés 402 Date d'inscription vendredi 6 août 2004 Statut Membre Dernière intervention 12 octobre 2008 - 1 mai 2006 à 14:09
Salut a tous premier post, premiere galere. Est ce ke quelqu'un
pourrait me dire comment modifier la taille d'un graphique d'une
longueur que l'on rentre en inputbox.

meme si j'applique une val() il bug quand je veux concatener.
r =
Application.InputBox(" Voulez-vous étirer le graphique?" & Chr(13)
& " Oui: rentrer la longuer désirée." & Chr(13) & "
Non:clicker sur annuler.", "Possible Agrandissement")

If r <> False Then

s = Val(r)

ActiveSheet.ChartObjects(1).Activate

ActiveChart.ChartArea.Select

ActiveSheet.Shapes(1).ScaleWidth " & s & ", msoFalse, _ ca bug ici, meme si je met r au lieu de s

msoScaleFromTopLeft

End If

merci d'avance,
may the force be with u

1 réponse

michelxld Messages postés 402 Date d'inscription vendredi 6 août 2004 Statut Membre Dernière intervention 12 octobre 2008 31
1 mai 2006 à 14:09
bonjour

tu peux essayer

Dim r As Long


r = Application.InputBox(" Voulez-vous étirer le graphique?" & Chr(13) & _
" Oui: rentrer la longuer désirée." & Chr(13) & _
" Non:cliquez sur Annuler.", "Possible Agrandissement")


ActiveSheet.ChartObjects(1).Width = r

bon apres midi
michem
0