ExcelBanter

ExcelBanter (https://www.excelbanter.com/)
-   Excel Programming (https://www.excelbanter.com/excel-programming/)
-   -   how do I add an option button in Excel (https://www.excelbanter.com/excel-programming/346040-how-do-i-add-option-button-excel.html)

Mo

how do I add an option button in Excel
 
I am trying to make a monthly check list where each cell represents one day
of the month and in each cell (day) I would like to put an option button.
any suggestion.
thanks

MO.

Norman Jones

how do I add an option button in Excel
 
Hi MO,

Try:

'=============
Public Sub InsertOptionButtons()
Dim c As Range

Application.ScreenUpdating = False
For Each c In Selection
With ActiveSheet.OptionButtons. _
Add(c.Left + 5, c.Top - 2, 5, 5)
.Caption = ""
.LinkedCell = c.Address(False, False)
End With
c.Font.Color = vbWhite
Next c
Application.ScreenUpdating = True

End Sub
'<<=============

---
Regards,
Norman


"MO" wrote in message
...
I am trying to make a monthly check list where each cell represents one day
of the month and in each cell (day) I would like to put an option button.
any suggestion.
thanks

MO.





All times are GMT +1. The time now is 06:21 AM.

Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
ExcelBanter.com