Macro pour modifier la taille d'un graphique

Fermé
Sara.bou - Modifié le 2 mai 2018 à 18:03
f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 - 3 mai 2018 à 08:37
Bonjour,

Je suis en train de créer une macros qui permet d'agrandir la taille d'un graphe en cliquant sur le graphe et puis la diminuer en cliquant encore sur le meme graphe. Et comme je suis encore débutante en VBA, je vous demande s'il y a quelqu'un qui peut m'aider là dessus ?

Merci d'avance.



A voir également:

1 réponse

f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 1 701
3 mai 2018 à 08:37
Bonjour,

Avec enregistreur de macro

Sub Macro1()
'
' Macro1 Macro
'

'
    ActiveChart.ChartArea.Select
    'agrandi
    ActiveSheet.Shapes("Graphique 1").ScaleWidth 2.19375, msoFalse, _
        msoScaleFromTopLeft
    ActiveSheet.Shapes("Graphique 1").ScaleHeight 1.8645833333, msoFalse, _
        msoScaleFromTopLeft
    'retreci
    ActiveSheet.Shapes("Graphique 1").ScaleWidth 0.5261159592, msoFalse, _
        msoScaleFromTopLeft
    ActiveSheet.Shapes("Graphique 1").ScaleHeight 0.4823093203, msoFalse, _
        msoScaleFromTopLeft
End Sub
0