Forum |  HardWare.fr | News | Articles | PC | S'identifier | S'inscrire | Shop Recherche
3287 connectés 

  FORUM HardWare.fr
  Programmation

  VB ChartObjects

 


 Mot :   Pseudo :  
 
Bas de page
Auteur Sujet :

VB ChartObjects

n°76034
Iria_hime
Pseudo ACNH : Iria
Posté le 27-11-2001 à 17:46:45  profilanswer
 

bonjour,
 
g pas mal de pb avec un code VB (genre de temps en temps ca marche et puis tout d'un coup ca marche plus !!). g 1 classeur excell 97 avec 2 feuilles et des graphiques sur chacune.
g besoin de faire des actions sur chacun de ces graphiques donc je dois tous les parcourir.
pour cela je fais :
 
Dim graph As ChartObjects
Workbooks("ASNSMD2.xls" ).Activate
For i = 1 To Sheets.Count
   sheets(i).select      
   For Each graph In ActiveSheet.ChartObjects
      ActiveSheet.ChartObjects(b).Activate
      toto = ActiveChart.Name
   Next
Next
 
mais ca ne fonctionne pas, il me sort "propriété ou méthode non géré par cet objet"
 
g aussi essayé de faire différemment ma 2ème boucle comme ceci :
 
For j = 1 To ActiveSheet.ChartObjects.Count
   ActiveSheet.ChartObjects(b).Activate
   toto = ActiveChart.Name
Next
 
mais ca marche tjs po.
 
si qq aurait une idée ce serait sympa ou un site qui explique bien le fonctionnement de tout ça car je n'ai pas d'aide.
 
merci d'avance !!!:jap:

mood
Publicité
Posté le 27-11-2001 à 17:46:45  profilanswer
 

n°76193
Iria_hime
Pseudo ACNH : Iria
Posté le 28-11-2001 à 08:31:27  profilanswer
 

allez sivouplé !!!!

n°76236
Bloodymary​_
Posté le 28-11-2001 à 11:10:43  profilanswer
 

Dim graph As ChartObjects  
Workbooks("ASNSMD2.xls" ).Activate  
For i = 1 To Sheets.Count  
  sheets(i).select      
  For Each graph In ActiveSheet.ChartObjects  
ce serait pas :
ActiveSheet.graph.activate
ou un truc ds le style ?
 
'     ActiveSheet.ChartObjects(b).Activate  
c koi ton ChartObjects(b) ???
'     toto = ActiveChart.Name  
  Next  
Next


Aller à :
Ajouter une réponse
  FORUM HardWare.fr
  Programmation

  VB ChartObjects

 

Sujets relatifs
Plus de sujets relatifs à : VB ChartObjects


Copyright © 1997-2025 Groupe LDLC (Signaler un contenu illicite / Données personnelles)