word vba popup menu

i have a popup menu and i want there to be no more than two controls on it as some of the controls i add are duplicating

is there anyway of saying only add control if there are less than two controls already.

or else saying if controls.count > 2 then delete the last one in?

here's my code for adding a control

With clarpop.Controls.Add(Type:=msoControlButton, Temporary:=True)
.Caption = Trim(mi)
.Visible = True
.BeginGroup = True
.FaceId = 163
End With

thanks

hi
assuming that clarpop is a CommandBarPopup...

VB Code:

If (clarpop.Count < 2) Then
  With clarpop.Controls.Add(Type:=msoControlButton, Temporary:=True) 
    .Caption = Trim(mi)
    .Visible = True
    .BeginGroup = True
    .FaceId = 163
  End With
End If

You need to use the Control collection of the popup.

VB Code:

If (clarpop.Controls.Count < 2) Then
  With clarpop.Controls.Add(Type:=msoControlButton, Temporary:=True) 
    .Caption = Trim(mi)
    .Visible = True
    .BeginGroup = True
    .FaceId = 163
  End With
End If

:)

RobDog please implement some kind of Code-Completion into the message editor ;)

im not sure

Something like this. It will search for the menuitem and if it doesnt already exist then it will add it.

VB Code:

Option Explicit
 
Private Sub Form_Load()
    Dim oApp As Word.Application
    Dim oMenu As Office.CommandBar
    Dim clarpop As Office.CommandBarPopup
    Dim oTemp As Office.CommandBarButton
    
    Set oApp = New Word.Application
    Set oMenu = oApp.CommandBars("Menu Bar")
    Set clarpop = oMenu.Controls("YourPopup")
    Set oTemp = oMenu.FindControl(msoControlButton, "ItsID", "AnyTagValue", False, True)
    If TypeName(oTemp) <> "Nothing" Then
        'Already exists
    Else
        With clarpop.Controls.Add(msoControlButton, True)
            .Caption = Trim(mi)
            .Visible = True
            .BeginGroup = True
            .FaceId = 163
        End With
    End If
End Sub