PasteFace issue

[Sige]

Hi There,

I would like to set a "picture" on a Subitem ... but I bug on:
"PasteFace"!
===> Method PasteFace of object "CommandBarButton" failed!
Using XL97SR2 - I cannot use PasteFace method on Subitems?

Any Ideas?
Sige


Sub AddShortCuts()
Dim cb As CommandBar, Item As CommandBarControl, Subitem As Object

ThisWorkbook.Sheets(1).Pictures("Picture 8").Copy

Set cb = Application.CommandBars("Cell")
'item
Set Item = cb.Controls.Add(Type:=msoControlPopup,temporary:=True)
With Item
.BeginGroup = True
.Caption = "Sige View..."
End With

'sub-items

Set Subitem = Item.Controls.Add(Type:=msoControlButton,
temporary:=True)
With Subitem
.BeginGroup = False
.Caption = "Clean"
.OnAction = "Trim"
.PasteFace
End With
End Sub

[Jim Rech]

I tried your code in Excel 97 SR-2(n) and it ran fine. I used an image I
copied from another toolbutton so I know it's okay on a toolbutton. Does
you image paste okay manually?

--
Jim

"Sige" <SIGE_GOEVAERTS@HOTMAIL.COM> wrote in message
news:1128693364.418813.263420@g43g2000cwa.googlegroups.com...
| Hi There,
|
| I would like to set a "picture" on a Subitem ... but I bug on:
| "PasteFace"!
| ===> Method PasteFace of object "CommandBarButton" failed!
| Using XL97SR2 - I cannot use PasteFace method on Subitems?
|
| Any Ideas?
| Sige
|
|
| Sub AddShortCuts()
| Dim cb As CommandBar, Item As CommandBarControl, Subitem As Object
|
| ThisWorkbook.Sheets(1).Pictures("Picture 8").Copy
|
| Set cb = Application.CommandBars("Cell")
| 'item
| Set Item = cb.Controls.Add(Type:=msoControlPopup,temporary:=True)
| With Item
| .BeginGroup = True
| .Caption = "Sige View..."
| End With
|
| 'sub-items
|
| Set Subitem = Item.Controls.Add(Type:=msoControlButton,
| temporary:=True)
| With Subitem
| .BeginGroup = False
| .Caption = "Clean"
| .OnAction = "Trim"
| .PasteFace
| End With
| End Sub
|

[Sige]

Yes Jim ...it was no issue at all....
I inserted a picture by Insert>Picture>FromFile...
But no matter what picture I use... my PasteFace returns the error. Not
the faintest idea why.


Sige

[Jim Rech]

Just curious. Clicking the button on the attached errors?



--
Jim
"Sige" <SIGE_GOEVAERTS@HOTMAIL.COM> wrote in message
news:1128696908.556192.291170@g44g2000cwa.googlegroups.com...
| Yes Jim ...it was no issue at all....
| I inserted a picture by Insert>Picture>FromFile...
| But no matter what picture I use... my PasteFace returns the error. Not
| the faintest idea why.
|
|
| Sige
|

[SIGE]

What do you mean Jim?

"NOSPAM" to be removed for direct mailing...

*** Sent via Developersdex http://www.developersdex.com ***