Would Like VBA that Lists All QAT Controls, Displays their Icon andDescription

[socrtwo]

This is a cross post from 3 other groups, sorry for annoying the MVPs
who have read this in other groups.

Me and a partner are trying to make an index of the QAT controls so
that users will have an easier time finding the menu functions they
need. Apparently this does not exist yet.

I realize in Office 2007 and 2020 there are descriptions of what the
controls do if you have added them to the QAT and hover your mouse
over them.

I was wondering if someone could help me with the VBA that would make
a table of 3 columns that lists out all the Control names, display
their associated icons and list their tooltip descriptions (is this
the "Super tool tip"?).

Thanks very much in advance.

 

[socrtwo]

This is a cross post from 3 other groups, sorry for annoying the MVPs
who have read this in other groups.

Me and a partner are trying to make an index of the QAT controls so
that users will have an easier time finding the menu functions they
need.  Apparently this does not exist yet.

I realize in Office 2007 and 2020 there are descriptions of what the
controls do if you have added them to the QAT and hover your mouse
over them.

I was wondering if someone could help me with the VBA that would make
a table of 3 columns that lists out all the Control names, display
their associated icons and list their tooltip descriptions (is this
the "Super tool tip"?).

Thanks very much in advance.

I have gotten farther: I was able to make functions in order to
retrieve the labels and super tooltips of the MsoId's. Here are the
functions:

Function CMDSUPTIP(CMDNAME As String)
CMDSUPTIP = Application.CommandBars.GetSupertipMso(CMDNAME)
End Function

Function CMDLABEL(CMDNAME As String) As String
CMDLABEL = Application.CommandBars.GetLabelMso(CMDNAME)
End Function

I having trouble creating a similar function to display the images in
the same rows. I have tried:

Function CMDBARIMG(CMDNAME As String) As Object
CMDBARIMG = Application.CommandBars.GetImageMso(CMDNAME, 16, 16) End
Function

And a few other things, but they don't seem to work. Anybody can offer
help?