create button on the fly in worksheet
Hi, could anybody give me some hint or example on
how to create button on the fly on a worksheet? AndrewCerritos |
create button on the fly in worksheet
1. View Toolbars Forms
2. click on the Button button 3. draw the button on the sheet 4. assign a macro to the button -- Gary''s Student - gsnu200820 "AndrewCerritos" wrote: Hi, could anybody give me some hint or example on how to create button on the fly on a worksheet? AndrewCerritos |
create button on the fly in worksheet
Try some code like the following:
Sub CreateButton() ' create the button Dim Btn As Excel.Button Dim WS As Worksheet Set WS = Worksheets("Sheet1") Set Btn = WS.Buttons.Add(Top:=50, Left:=100, Width:=40, Height:=20) With Btn .Caption = "Click Me" .OnAction = "'" & ThisWorkbook.Name & "'!TheProc" End With End Sub Sub TheProc() ' called with button is clicked. MsgBox "Hello World" End Sub Cordially, Chip Pearson Microsoft MVP Excel Product Group Pearson Software Consulting, LLC www.cpearson.com (email on web site) On Wed, 17 Dec 2008 12:50:08 -0800, AndrewCerritos wrote: Hi, could anybody give me some hint or example on how to create button on the fly on a worksheet? AndrewCerritos |
create button on the fly in worksheet
Thanks. But I like to create the button on the fly from VBA only.
For example, when the book is open, it will invoke a routine to loop through all the worksheets's name start with "ABC" and place a button on it, including assign a macro to it. AC "Gary''s Student" wrote: 1. View Toolbars Forms 2. click on the Button button 3. draw the button on the sheet 4. assign a macro to the button -- Gary''s Student - gsnu200820 "AndrewCerritos" wrote: Hi, could anybody give me some hint or example on how to create button on the fly on a worksheet? AndrewCerritos |
create button on the fly in worksheet
Chip:
Thanks a lot. Works exactly as I intended. AC "Chip Pearson" wrote: Try some code like the following: Sub CreateButton() ' create the button Dim Btn As Excel.Button Dim WS As Worksheet Set WS = Worksheets("Sheet1") Set Btn = WS.Buttons.Add(Top:=50, Left:=100, Width:=40, Height:=20) With Btn .Caption = "Click Me" .OnAction = "'" & ThisWorkbook.Name & "'!TheProc" End With End Sub Sub TheProc() ' called with button is clicked. MsgBox "Hello World" End Sub Cordially, Chip Pearson Microsoft MVP Excel Product Group Pearson Software Consulting, LLC www.cpearson.com (email on web site) On Wed, 17 Dec 2008 12:50:08 -0800, AndrewCerritos wrote: Hi, could anybody give me some hint or example on how to create button on the fly on a worksheet? AndrewCerritos |
All times are GMT +1. The time now is 05:17 AM. |
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
ExcelBanter.com