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 Autpen 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.
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 Autpen 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.