VBA -- get the font list

I made a small plug-in that could change the font format of all the ppt files, and used VBA for development. In the development process, because I don't want to add the Font types one by one into the combox (so tired), I wrote the following function to automatically retrieve the font type, and write it into the combox.

Sub getfont () set fontlist = application. commandbars ("formatting "). findcontrol (ID: = 1728) If fontlist is nothing then set tempbar = application. commandbars. add set fontlist = tempbar. controls. add (ID: = 1728) end if for I = 0 to fontlist. listcount-1 fontname. additem (fontlist. list (I + 1) Next I on error resume next tempbar. deleteend sub

The fontname is the combox control, and the running result is as follows.