View Single Post
  #2   Report Post  
Posted to microsoft.public.excel.programming
lcoreyl[_28_] lcoreyl[_28_] is offline
external usenet poster
 
Posts: 1
Default Command Button from Control Toolbox


YOU CAN MAKE A SEPARATE TOOLBAR FOR EXCEL, WHICH CAN FLOAT OR YOU CAN
ATTACH TO THE OTHER TOOLBARS AT TOP. YOU CAN MAKE IT VISIBLE UPON
OPENING, AND THEN HIDE IT BEFORE CLOSING. THE FOLLOWING WILL CREATE
THIS TOOLBAR WITH TWO BUTTONS THAT LINK TO A MACRO

private sub workbook_open
goto skp
error1:
Call ButtonInstall
skp:
on error goto error1
Application.CommandBars("mybuttons").Visible = True
on error goto 0
end sub

private sub workbook_close
Application.CommandBars("mybuttons").Visible = false
end sub

sub ButtonInstall
Dim NewToolbar As Object
Dim NewButton As Object
Set NewToolbar = Application.CommandBars.Add(Name:="mybuttons",
temporary:=False)
NewToolbar.Visible = True
Set NewButton = NewToolbar.Controls.Add(Type:=msoControlButton,
ID:=2950)
With NewButton
..FaceId = 583
..OnAction = "Name of Macro1 here"
..Caption = "Macro1 description here"
End With
Set NewButton = NewToolbar.Controls.Add(Type:=msoControlButton,
ID:=2950)
With NewButton
..FaceId = 45
..OnAction = "Name of Macro2 here"
..Caption = "Macro2 description here"
End With
End Sub


--
lcoreyl
------------------------------------------------------------------------
lcoreyl's Profile: http://www.excelforum.com/member.php...fo&userid=2042
View this thread: http://www.excelforum.com/showthread...hreadid=557584