Recuperer ts les noms de ts les objets graphiques

Creepy · 17 Août 2005

Bonjour à tous,

Je cherche à recuperer en VBA tous les noms des objets graphiques se trouvant dans un classeur, à savoir

- Les feuilles graphiques
- les graphiques inserés dans les feuilles de calcul.

Franchement je me tape la tête contre les murs, je n'y arrive pas !

Quelqu'un aurait il une idée ?

Merci d'avance

@+

Creepy

Creepy · 17 Août 2005

RE bonjour à vous,

Bon j'ai à moitié solutionné mon problème.

J'ai trouvé le code pour afficher dans ma listeview tous les objets graphiques de toutes mes feuilles de calcul :

Code:

For Each Worksheet In Worksheets
    For Each objet In Worksheet.DrawingObjects
        If TypeName(objet) = 'ChartObject' Then
            ListGraph.ListItems.Add ItemNumber, , objet.Name
            ItemNumber = ItemNumber + 1
        End If
    Next
Next

Il me reste plus qu'à faire la même chose mais sur une feuille graphique.

Si quelqu'un a une idée !

++

Creepy

Creepy · 17 Août 2005

Re re all 🙂

Bon ba j'ai ma réponse complète je vous fais profité de l'information sait on jamais ca pourrait vous servir un jour.

Donc ce bout de code permet de mettre dans une ListView tous les nom des objets graphiques que ce soir des graphiques inserés sur une feuille de calcul ou une feuille graphique.

Dim ItemNumber As Integer, NombreFeuilleCharts As Integer

ItemNumber = 1
 
For Each Worksheet In ActiveWorkbook.Worksheets
    For Each objet In Worksheet.DrawingObjects
        If TypeName(objet) = 'ChartObject' Then
            ListGraph.ListItems.Add ItemNumber, , objet.Name
            ItemNumber = ItemNumber + 1
        End If
    Next
Next

If Charts.Count <> 0 Then
    For NombreFeuilleCharts = 1 To Charts.Count
        ListGraph.ListItems.Add ItemNumber, , Charts(NombreFeuilleCharts).Name
        ItemNumber = ItemNumber + 1
    Next
End If

End Sub

Voila

@ +

Creepy

2passage · 17 Août 2005

Re:Recuperer ts les noms de ts les objets graphiqu

Bonjour,

Alors ma solution est pas si mal, je pense :

Code:

For Each feuillegraphe In ActiveWorkbook.Charts
    Debug.Print 'Feuille graphique ' & feuillegraphe.Index & ' : ' & feuillegraphe.Name
Next
For Each gragraphe In ChartObjects
    Debug.Print 'Graphique ' & gragraphe.Index & ' : ' & gragraphe.Name
Next

Mais t'es gentil : cherche moins vite, là je peux pas suivre 😛 😛
A+

Recuperer ts les noms de ts les objets graphiques

Creepy

XLDnaute Accro

Creepy

XLDnaute Accro

Creepy

XLDnaute Accro

2passage

XLDnaute Impliqué

Discussions similaires

Recuperer ts les noms de ts les objets graphiques

Creepy

XLDnaute Accro

Creepy

XLDnaute Accro

Creepy

XLDnaute Accro

2passage

XLDnaute Impliqué

Discussions similaires

Privacy & Transparency

Privacy & Transparency