Button image on toolbar

Hi,
I've created an addin that puts a button on the "standard" toolbar (see
code below) using the clipboard - as this is the only way I could get it
working. The side-effect of this is that the clipboard is cleared - is
there a better way of getting my resource bitmap as the button image?

regards
Fred



Clipboard.Clear
Clipboard.SetData LoadResPicture(IIf(ToggleEnabled, 101, 102),
vbResBitmap) 'depends on enabled or not!!!!

'Attach our button to the Standard menu bar
Set ToggleBtn =
objInsp.CommandBars("Standard").Controls.Add(Type:=msoControlButton,
Temporary:=True)
With ToggleBtn
.Style = msoButtonIcon
.PasteFace
.Enabled = True
.ToolTipText = LoadResString(150)
End With

--
Direct access to this group with http://web2news.com
http://web2news.com/?microsoft.publ....program_addins

In Outlook 2002 and up, you can use the Picture and Mask properties.
Otherwise your only choice is restoring the clipboard. For a Delphi sample,
see the Babelfish addin source code on my site (uSaveClipboard.pas file).

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


"FredGill" <fredgill.news.invalid@web2news.net> wrote in message
news:45972N683@web2news.com...
> Hi,
> I've created an addin that puts a button on the "standard" toolbar (see
> code below) using the clipboard - as this is the only way I could get it
> working. The side-effect of this is that the clipboard is cleared - is
> there a better way of getting my resource bitmap as the button image?
>
> regards
> Fred
>
>
>
> Clipboard.Clear
> Clipboard.SetData LoadResPicture(IIf(ToggleEnabled, 101, 102),
> vbResBitmap) 'depends on enabled or not!!!!
>
> 'Attach our button to the Standard menu bar
> Set ToggleBtn =
> objInsp.CommandBars("Standard").Controls.Add(Type:=msoControlButton,
> Temporary:=True)
> With ToggleBtn
> .Style = msoButtonIcon
> .PasteFace
> .Enabled = True
> .ToolTipText = LoadResString(150)
> End With
>
> --
> Direct access to this group with http://web2news.com
> http://web2news.com/?microsoft.publ....program_addins