Graphique: Adapter la taille d'un graphique à la cellule en VBA

[MJ13]

Bonjour à tous

Je copie un graphique dans une cellule, mais il n'est pas à la taille de la cellule.

Comment puis-je avoir, en VBA, le graphique (activechart) à la taille de la cellule où je copie le graph.

Merci d'avance .

 

[kjin]

Re : Graphique: Adapter la taille d'un graphique à la cellule en VBA

Bonjour
Je m'étonne !
Il suffit de retrancher les valeurs des propriétés Top et Left des cellules adjacentes à la cellule où tu copies le graph, pour obtenir sa largeur et sa hauteur
A+
kjin

 

[MJ13]

Re : Graphique: Adapter la taille d'un graphique à la cellule en VBA

Re

Je m'étonne !
Il suffit de retrancher les valeurs des propriétés Top et Left des cellules adjacentes à la cellule où tu copies le graph, pour obtenir sa largeur et sa hauteur

Merci Kjin.

Mais avec activechart, tu n'as pas la propriété Width, height

Sinon, je n'aurais pas posé la question .

Il y a des choses que je sais faire et d'autres pas .

J'ai bien essayé avec Henry mais le bougre, il n'est pas très loquace sur XL 2007 .

 

[job75]

Re : Graphique: Adapter la taille d'un graphique à la cellule en VBA

Bonjour kjin, (re)bonjour Michel,

ActiveSheet.ChartObjects(1).Width = [A1].Width
ActiveSheet.ChartObjects(1).Height = [A1].Height

Si l'objet est sélectionné (pas le graphique, attention), on peut aussi écrire :

ActiveChart.Parent.Width = [A1].Width
ActiveChart.Parent.Height = [A1].Height

A+

 

[MJ13]

Re : Graphique: Adapter la taille d'un graphique à la cellule en VBA

Re Job

Merci beaucoup. Cela va bien m'aider .

Voici le code pour boucler sur mes graphs:

Sub A_test_Redimensionne_Graphiques()
For i = 1 To ActiveSheet.ChartObjects.Count
ActiveSheet.ChartObjects(i).Width = [C2].Width
ActiveSheet.ChartObjects(i).Height = [C2].Height - 5
Next
End Sub

Qu'est ce que j'ai progressé cette semaine sur les les graphiques grâce au forum.

Bon Week-end .