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
29
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