[Toutes versions] Parcourir les propriétés de l'objet Chart

[xerces]

Bonjour à tous,

Je cherche une macro qui me liste l'ensemble des propriétés d'un objet.
du style :

getObjectProperty(chartObject)

avec en retour

Code :

1
2
3
4
chartObject.ChartTitle.Text ="le titre"
chartObject.Parent.Left=10
chartObject.Parent.Top =15
....

Macro forcement récursive pour scruter les collections.
(Qui pourrait s'appliquer sur n'importe quel objet Excel : Chart, Form, etc.)

Merci d'avance pour votre réponse

[ZebreLoup]

J'ai fait ce petit programme qui peut être une première piste pour toi.
Il faut cocher "TypeLib Information" dans les références VBA.

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Public Sub listeProprietes()
    'Pour test, un objet feuille
    Dim ws As Worksheet
    Set ws = Worksheets("Feuil1")
 
    'Création de mon objet TLI
    Dim oApp As TLI.TLIApplication
    Dim iInfo As TLI.InterfaceInfo
    Dim mInfo As TLI.MemberInfo
 
    Set oApp = New TLI.TLIApplication
    Set iInfo = oApp.InterfaceInfoFromObject(ws)
 
    'Boucle sur les propriétés
    For Each mInfo In iInfo.Members
        Debug.Print mInfo.Name
    Next
 
End Sub

[xerces]

Merci, je vais explorer cette piste.