jinroh_107
Messages postés1Date d'inscriptionmardi 25 avril 2006StatutMembreDernière intervention25 avril 2006
-
25 avril 2006 à 23:59
michelxld
Messages postés402Date d'inscriptionvendredi 6 août 2004StatutMembreDernière intervention12 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
A voir également:
La cellule ou le graphique que vous essayez de modifier se trouve sur une feuille protégée