Picture-Property outside an application not possible?

[Peter Marchert]

Hello together,

I want to load a own picture to an CommandBarButton outside the
application where it ist used. For example: I try to create a button in
word from excel vba. To do this I set a reference to word. Here ist the
code:

Sub Test()

Dim objCommandBar As Office.CommandBar
Dim objButton As Office.CommandBarButton
Dim pic1 As stdole.IPictureDisp
Dim msk1 As stdole.IPictureDisp

Set pic1 = stdole.StdFunctions.LoadPicture("C:\pic1.bmp")
Set msk1 = stdole.StdFunctions.LoadPicture("C:\msk1.bmp")

Set objCommandBar = Word.Application.CommandBars.Add(Name:="TEST",
Temporary:=True)
Set objButton = objCommandBar.Controls.Add(Type:=msoControlButton)

With objButton
.Style = msoButtonIcon
.Picture = pic1
.Mask = msk1
.Caption = "Test"
End With

objCommandBar.Visible = True

End Sub

The code does not work. Only if the same code is placed in Word there
is no problem.

The faceId-Property I don`t want to use, because the same button is
used on another place
with a userdefined picture.

Is it not possible or is there a workarround?

Thanks for any help or suggestions!

Peter

 

[Dmitry Streblechenko]

IPicture cannot be marshalled across the process boundaries. You can copy a
bitmap to the clipboatrd and then call CommandBarButton.PasteFace.

Dmitry Streblechenko (MVP)
http://www.dimastr.com/
OutlookSpy - Outlook, CDO
and MAPI Developer Tool

 

[Peter Marchert]

Hello Dmitry

thanks for your response - I will try the way you described.

Peter