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
A voir également:
La cellule ou le graphique que vous essayez de modifier se trouve sur une feuille protégée