Вот набросал, только подключите TlbInf32.dll (ставится с Visual Studio)
Дает список всех Enum-ов с константами для всех подключенных библиотек.
(Конечно лучше в в списки загонять, но так проще показать пример)
Дополнительно можно пройти по свойствам объектов и определить какие свойства задаются через Enum. Я подобное делал, только для функций.
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
Public Sub EnumEnums()
Dim ref As Object
Dim m_TLInf As TypeLibInfo
Dim SIType As SearchItem
Dim SIMember As SearchItem
Dim MInfo As MemberInfo
On Error GoTo HandleErr
Set m_TLInf = New TypeLibInfo
With m_TLInf
1 For Each ref In VBE.ActiveVBProject.References
2 .ContainingFile = ref.FullPath
3 Debug.Print ref.name
4 For Each SIType In .GetTypes
5 If SIType.SearchType = tliStConstants Then '4'
6 If .GetTypeInfo(SIType.TypeInfoNumber).TypeKind = TKIND_ENUM Then ' TKIND_ENUM=0'
7 Debug.Print " " & SIType.name
8 For Each SIMember In .GetMembers(SIType.SearchData)
9 Set MInfo = m_TLInf.GetMemberInfo(SIType.SearchData, SIMember.InvokeKinds, , SIMember.name)
10 Debug.Print " " & SIMember.name & " Value: " & MInfo.Value
11 Next SIMember
12 End If
13 End If
14 Next SIType
15 Next ref
End With
HandleExit:
Exit Sub
HandleErr:
Debug.Print "GetEnums error: " & Err.number & " " & Err.Description & " Line: " & Erl
Resume HandleExit
End Sub
