Erreur d'execution '438'

[tjihy]

Bonjour tout le monde,

avant tout je tiens à préciser que j'ai bien vu le topic qui porte le même intitulé sauf qu'il ne répond pas à ma question.

au fait j'ai un graphe sur une feuille Excel que je voudrais redimensionner à l'aide d'une macro. j'ai utilisé l'enregistreur de macros d'Excel sauf qu'il renome à chaque fois mon graphe du coup la macro ne marche plus.

j'ai essayé de contourner le problème ainsi :

Dim graph As Object

Worksheets("Normalite").Activate

For Each graph In ActiveSheet.ChartObjects
graph.Activate
ActiveChart.ChartArea.Select
graph.ScaleHeight 1.51, msoFalse, _
msoScaleFromBottomRight
graph.ScaleHeight 1.35, msoFalse, _
msoScaleFromTopLeft
Next

mais ça bloque au niveau indiqué...

je ne sais pas si j'ai été assez clair...

merci d'avance...

 

[Cousinhub]

Re : Erreur d'execution '438'

Bonsoir,

Et bienvenue sur le forum

essaie avec ce code :

Dim graph As Object

Worksheets("Normalite").Activate

For Each graph In ActiveSheet.ChartObjects
    ActiveSheet.Shapes(graph.Name).ScaleHeight 1.51, msoFalse, _
        msoScaleFromBottomRight
    ActiveSheet.Shapes(graph.Name).ScaleHeight 1.35, msoFalse, _
        msoScaleFromTopLeft
Next

 

[tjihy]

Re : Erreur d'execution '438'

Bonjour,


Merci ça fait exactement ce que je voulais.