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

Works fine here (XP). Must be something else.

--
HTH

Bob Phillips

(replace somewhere in email address with gmail if mailing direct)

"John" wrote in message
...
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

It also works for me in XL97.
..FaceID = 200 is the Freeform icon in Autoshapes Lines, a strange choice
for the apparent purpose.

Regards,
Peter T


"John" wrote in message
...
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

Thanks Bob and Peter for your help. Bolstered by your lack of an issue with
it I've tried again and it works, but just no Intellisense support for it.
Very strange as Intellisense displays all the other properties and methods.

Anyway, it seems to work in practice so thanks for your help again.

Best regards

John

"John" wrote in message
...
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

PS - As I couldn't get it to work the first time, I just picked a random
number. I'll now pick some suitable images........

Thanks again

John

"Peter T" <peter_t@discussions wrote in message
...
It also works for me in XL97.
.FaceID = 200 is the Freeform icon in Autoshapes Lines, a strange choice
for the apparent purpose.

Regards,
Peter T


"John" wrote in message
...
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