VBA EXCEL Redimensionner un graphique (URGENT)

VBA EXCEL Redimensionner un graphique (URGENT) - VB/VBA/VBS - Programmation

Marsh Posté le 02-08-2004 à 11:29:38    

Bonjour,
 
J'utilise des macros pour créer des graphiques et les mettre en forme ; voici le code :
 
'je crée le graphe et je le renomme :
Charts.Add
ActiveChart.Name = "Graphe_1"
     
'plus loin dans le code j'insère le graphe sur une feuille existante :
ActiveChart.Location Where:=xlLocationAsObject, Name:="Feuille_1"
     
'puis après je veux redéfinir les dimensions du graphe et c'est là où j'ai un problème :
ActiveSheet.ChartObjects("Graphe_1" ).Activate
ActiveChart.ChartArea.Select
ActiveSheet.Shapes("Graphe_1" ).ScaleWidth 0.11, msoFalse, msoScaleFromTopLeft
ActiveSheet.Shapes("Graphe_1" ).ScaleHeight 0.11, msoFalse, msoScaleFromTopLeft
 
En fait la macro ne reconnaît pas le graphe comme s'appelant "Graphe_1" ; quand je crée une nouvelle macro, je sélectionne le graphe que j'ai créé, j'arrête la macro et je vais voir le code, et je vois que le graphe ne s'appelle pas "Graphe_1" car il y a cette ligne de code :
 
    ActiveSheet.ChartObjects("Graphique 43" ).Activate
 
 
Est-ce que quelqu'un peut m'aider ? Merci.

Reply

Marsh Posté le 02-08-2004 à 11:29:38   

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed