galere de modifier un graphique

Question

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 &#233;tirer le graphique?" & Chr(13)
& " Oui: rentrer la longuer d&#233;sir&#233;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

michelxld · Answer

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

Galere de modifier un graphique

1 réponse