Discussion :

[irouni]

Bonjour,

Je voudrais modifier la taille de mon graphe via une macro alors je ai crée une macro pour modifier mais hélas ca ne marche pas il me dit qu' "il est impossible de lire la propriété ChartObjects de la classe Worksheet", Veuiller me dire ce qui ne va pas dans ma macro SVP.
Voici les codes:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub Macrotaille()
 
    ActiveSheet.ChartObjects("Graphique 47").Activate
    ActiveChart.ChartArea.Select
    ActiveSheet.Shapes("Graphique 47").ScaleWidth 1.48, msoFalse, _
        msoScaleFromBottomRight
    ActiveSheet.Shapes("Graphique 47").ScaleHeight 1.49, msoFalse, _
        msoScaleFromBottomRight
    ActiveSheet.Shapes("Graphique 47").ScaleWidth 1.32, msoFalse, _
        msoScaleFromTopLeft
    ActiveSheet.Shapes("Graphique 47").ScaleHeight 1.26, msoFalse, _
        msoScaleFromTopLeft
End Sub

Merci d'avance

[House MD]

Je penche pour le fait qu'il n'existe pas de "Graphique 47" : lorsque je copie colle ton code et remplace "Graphique 47" par "Graphique 1", cela fonctionne.
Par contre si je laisse "Graphique 47", j'obtiens le même message (assez peu explicite d'ailleurs.)

[kiki29]

Jour Bon, pour ce qui est de la taille / position d'un graphe voir http://excel.developpez.com/faq/?pag...ionneGraphique

[irouni]

Merci Hous MD et kiki29 mais ca ne fonctionne tjrs pas!!

[SilkyRoad]

bonsoir

ca ne fonctionne tjrs pas!!

Tu peux etre plus précis ?


bonne soirée
michel

[cb_60]

Bonsoir
si tu n'a qu'un seul graph sur ta feuille:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
Sub Macrotaille()
 
ActiveSheet.ChartObjects(1).Activate
ActiveChart.ChartArea.Select
With ActiveSheet.Shapes(1)
    .ScaleWidth 1.48, msoFalse, msoScaleFromBottomRight
    .ScaleHeight 1.49, msoFalse, msoScaleFromBottomRight
    .ScaleWidth 1.32, msoFalse, msoScaleFromTopLeft
    .ScaleHeight 1.26, msoFalse, msoScaleFromTopLeft
End With
 
End Sub