Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11

parcourir des graphiques

2 réponses
Avatar
Le Nordiste
Bonjour =E0 tous,


J'ai une feuille contenant une 12aine de graphiques.
J'aimerais les dimensionner de mani=E8re identiques.

=C7a doit pas aller tr=E9s fort pour moi ce matin,
car m=EAme la macro DimGraph du Disciplus simplex ne marche pas :

J'ai le message "propri=E9t=E9 ou m=E9thode non g=E9r=E9 par cet objet"
lorsque en pas =E0 pas j'arrive =E0

For Each Chart In ActiveSheet

J'ai essay=E9 ceci :

For Each G In ActiveSheet.ChartObjects
G.ChartArea.Activate
G.ChartArea.Select
Next G

Mais je d=E9sesp=E9re, alors comment faire ?

Remerciements anticip=E9s =E0 tous

2 réponses

Avatar
JB
Bonjour,

Collection des graphes:

For Each g In ActiveSheet.ChartObjects
x = g.Name
g.Select
g.Delete
Next g

Taille:

For Each s In ActiveSheet.Shapes
If s.Type = 3 Then
s.Width = 200
s.Height = 200
End If
Next s

JB


On 6 mar, 11:29, "Le Nordiste"
wrote:
Bonjour à tous,

J'ai une feuille contenant une 12aine de graphiques.
J'aimerais les dimensionner de manière identiques.

Ça doit pas aller trés fort pour moi ce matin,
car même la macro DimGraph du Disciplus simplex ne marche pas :

J'ai le message "propriété ou méthode non géré par cet objet"
lorsque en pas à pas j'arrive à

For Each Chart In ActiveSheet

J'ai essayé ceci :

For Each G In ActiveSheet.ChartObjects
G.ChartArea.Activate
G.ChartArea.Select
Next G

Mais je désespére, alors comment faire ?

Remerciements anticipés à tous


Avatar
Le Nordiste
Je faisais la confusion et/ou ne distinguais pas ChartObjects de
Shapes.

Collection des graphes:
For Each g In ActiveSheet.ChartObjects

Taille:
For Each s In ActiveSheet.Shapes


Merci JB pour ton bout de code