VBA EXCEL Redimensionner un graphique (URGENT) - VB/VBA/VBS - Programmation
MarshPosté 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 :
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.