Mega Code Archive

 

Categories / VisualBasic Script / Application

 

Translates a MsoBarType enumeration into a text description of the bar type

Sub Inventory()     Dim cb As commandBar     For Each cb In Application.CommandBars         Debug.Print TranslateCommandBarType(cb.Type)     Next     Set cb = Nothing End Sub Function TranslateCommandBarType(vType As MsoBarType) As String     Dim sType As String     Select Case vType         Case Is = MsoBarType.msoBarTypeMenuBar             sType = "Menu Bar"         Case Is = MsoBarType.msoBarTypeNormal             sType = "Normal"         Case Is = MsoBarType.msoBarTypePopup             sType = "Popup"         Case Else             sType = "Unknown type"     End Select     TranslateCommandBarType = sType End Function