SetPopupToolBar Method

Description

Sets the specified toolbar to popup.

Syntax

Public Sub SetPopupToolBar( _
    ByVal ToolBarType As Boolean _
)

Parameters

ToolBarType: The type of toolbar to be popped up.

Return Type

If true, specifies that the controls in the command bar will be displayed as a popup toolbar when the command bar is displayed as a popup. If false, the controls are displayed as a normal menu.

Example

This sample code illustrates how to create and add controls to a popup menu and display the controls in a popup toolbar.

Dim Standard As CommandBar  
Dim BoardersPopup As CommandBarPopup  

Set Standard = CommandBars.Add("Standard", xtpBarTop)  
With Standard.Controls  
    Set BoardersPopup = .Add(xtpControlSplitButtonPopup, ID_BDR_BUTTON, "Boarders")  
    BoardersPopup.IconId = ID_BDR_NONE  
    BoardersPopup.CommandBar.Controls.Add xtpControlButton, ID_BDR_OUTSIDE, "Outside"  
    BoardersPopup.CommandBar.Controls.Add xtpControlButton, ID_BDR_ALL, "All"  
    BoardersPopup.CommandBar.Controls.Add xtpControlButton, ID_BDR_TOP, "Top"  
    BoardersPopup.CommandBar.Controls.Add xtpControlButton, ID_BDR_LEFT, "Left"  
    BoardersPopup.CommandBar.Controls.Add xtpControlButton, ID_BDR_INSIDE_HORZ, "Inside Horizontal"  
    BoardersPopup.CommandBar.Controls.Add xtpControlButton, ID_BDR_INSIDE, "Inside"  
    BoardersPopup.CommandBar.Controls.Add xtpControlButton, ID_BDR_NONE, "None"  
    BoardersPopup.CommandBar.Controls.Add xtpControlButton, ID_BDR_BOTTOM, "Bottom"  
    BoardersPopup.CommandBar.Controls.Add xtpControlButton, ID_BDR_RIGHT, "Right"  
    BoardersPopup.CommandBar.Controls.Add xtpControlButton, ID_BDR_INSIDE_VERT, "Inside Vertical"  

    ' This line of code specifies that the popup menu will be displayed as a toolbar popup  
    BoardersPopup.CommandBar.SetPopupToolBar True  
    BoardersPopup.CommandBar.Width = 120  
End With