VB ChartObjects

VB ChartObjects - Programmation

Marsh Posté le 27-11-2001 à 17:46:45    

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:

Reply

Marsh Posté le 27-11-2001 à 17:46:45   

Reply

Marsh Posté le 28-11-2001 à 08:31:27    

allez sivouplé !!!!

Reply

Marsh Posté le 28-11-2001 à 11:10:43    

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

Reply

Sujets relatifs:

Leave a Replay

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