J
John
Hi there,
I'm having a problem with a FaceID property of a control button on a popup
menu. Basically it doesn't appear (in Intellisense) to be available (so for
the moment I've commented it out). Can anyone tell me why it's not
availble? NB- I'm using Excel 2003 and the code below is adapted from
Stephen Bullen et al's book "Excel 2002 VBA"
Thanks
John
Private Sub MakePopups()
With Application.CommandBars.Add(Name:="JohnsPopup",
Position:=msoBarPopup)
With .Controls.Add(Type:=msoControlButton)
.OnAction = "AddCategoryRow"
'.FaceID = 200
.Caption = "Add Category"
.TooltipText = "Add a category"
End With
With .Controls.Add(Type:=msoControlButton)
.OnAction = "AddItemRow"
'.FaceID = 200
.Caption = "Add Item"
.TooltipText = "Add an item"
End With
With .Controls.Add(Type:=msoControlButton)
.OnAction = "DeleteRow"
'.FaceID = 200
.Caption = "Delete Row"
.TooltipText = "Delete selected row"
End With
End With
End Sub
I'm having a problem with a FaceID property of a control button on a popup
menu. Basically it doesn't appear (in Intellisense) to be available (so for
the moment I've commented it out). Can anyone tell me why it's not
availble? NB- I'm using Excel 2003 and the code below is adapted from
Stephen Bullen et al's book "Excel 2002 VBA"
Thanks
John
Private Sub MakePopups()
With Application.CommandBars.Add(Name:="JohnsPopup",
Position:=msoBarPopup)
With .Controls.Add(Type:=msoControlButton)
.OnAction = "AddCategoryRow"
'.FaceID = 200
.Caption = "Add Category"
.TooltipText = "Add a category"
End With
With .Controls.Add(Type:=msoControlButton)
.OnAction = "AddItemRow"
'.FaceID = 200
.Caption = "Add Item"
.TooltipText = "Add an item"
End With
With .Controls.Add(Type:=msoControlButton)
.OnAction = "DeleteRow"
'.FaceID = 200
.Caption = "Delete Row"
.TooltipText = "Delete selected row"
End With
End With
End Sub