Load Bitmap into button in Standard toolbar

loshy

New Member
Joined
Nov 16, 2005
Messages
1
Hello,

I want to add and bitmap image to my dynamically created button.
The button is created dynamically in the standard toolbar.I want to dynamically add a specific image to the button face.Please help me to implement this.

My Code which is writen in Auto_Open to create button :

-------------------------------------------
Dim tbutCount As ToolbarButton, tbutNew As ToolbarButton
Application.ScreenUpdating = False

' Check if toolbar button already exists
For Each tbutCount In Toolbars("Standard").ToolbarButtons
If tbutCount.name = "New Button" Then tbutCount.Delete
'Exit Function
Next tbutCount
'Add a blank toolbar button to the Standard toolbar.
Toolbars("Standard").ToolbarButtons.add Button:=231
'Create an object variable for the button
'(it is the last button on the toolbar).
Set tbutNew = Toolbars("Standard"). _
ToolbarButtons(Toolbars("Standard").ToolbarButtons.count)
'Set the macro the toolbar button will run.
tbutNew.OnAction = "showformFlash"
'Give the button a name to display in the Tool Tip balloon.
tbutNew.name = "New Button"

-------------------------------------------



Thanks in Advance,
Regards,
Loshy.
 

Some videos you may like

Excel Facts

Fastest way to copy a worksheet?
Hold down the Ctrl key while dragging tab for Sheet1 to the right. Excel will make a copy of the worksheet.

Watch MrExcel Video

Forum statistics

Threads
1,118,760
Messages
5,574,088
Members
412,566
Latest member
TexasTony
Top