RadiObuttons

The Shape use for the Radiobutton is linked to the main 'RadiobuttonClick()' Macro. This Macro enables the animation from a Deselected Radiobutton to a Selected Radiobutton. The 'Tick' Macro is called here and it takes 2 Parameters, the Name of the Shape (I use Application.Caller) and an Optional FrameSpeed (default is 0#). You can react here to the click if you want to and if so, add your own Code. Please Note: you should change these Public Macros to Private Macros using the 'Private' prefix as calling them via ALT+F8 will result in an error - it's up to you, I left them as Public so that you can link more Checkboxes if required. You could of course replicate this Macro and change it to your own Code, just remember to set the 'IsRunning' Boolean variable to True after an initial check and Exit if it is already True to prevent multiple Mouse clicks

' RadiobuttonClick, handles all clicks and animation
Public Sub RadiobuttonClick()

    ' prevent multiple clicks
    If IsRunning Then Exit Sub
    IsRunning = True

    ' perform Tick animation
    Tick AnimationShape:=ActiveSheet.Shapes(Application.Caller), _
         FrameSpeed:=0.03

    IsRunning = False

End Sub
                            

The Shape use for the Circle or Tick to display a Selected Radiobutton is linked to the 'TickClick()' Macro. This Macro enables the animation from Circle or Tick back to a Radiobutton BUT only for when you may want to allow all Radiobuttons to be Deselected. The 'Radiobutton' Macro is called here and it takes 4 Parameters, the Name of the Shape (I use Application.Caller), an Optional FrameSpeed (I use 0.06), an Optional LineColour and an Optional LineWeight value. You can react here to the click if you want to and if so, again, add your own Code. Please Note: you should change these Public Macros to Private Macros using the 'Private' prefix as calling them via ALT+F8 will result in an error - it's up to you, I left them as Public so that you can link more Checkboxes if required. You could of course replictae this Macro and change it to your own Code, just remember to set the 'IsRunning' Boolean variable to True after an initial check and Exit if it is already True to prevent multiple Mouse clicks

' TickClick, the one and only Tick Subroutine.  handles all clicks and animation
Public Sub TickClick()

    ' prevent an empty Radiobutton Group ie. no Radiobuttons Selected
    If InStr(1, RadioButtonGroups, Left(Application.Caller, 1), vbTextCompare) > 0 Then Exit Sub

    ' prevent multiple clicks
    If IsRunning Then Exit Sub
    IsRunning = True

    ' perform Radiobutton animation
    Radiobutton AnimationShape:=ActiveSheet.Shapes(Application.Caller), _
                FrameSpeed:=0.06, _
                LineColour:=RGB(120, 40, 58)

    IsRunning = False

End Sub
                            

The Radiobutton Shape is a Shape with an Image of a small Circle. It is a transparent PNG Image. It is also where you should link your 'RadiobuttonClick()' Macro ie. right-click on Shape and choose Assign Macro... (make sure the Worksheet Protection is removed first). To view the Shape and change the Formatting or Image, right-click on a Shape and use the Selection Pane on the Arrange Group of the PAGE LAYOUT Tab of the Ribbon. Right-Click and then choose 'Format Picture...' Use the Paint Pot Tab to choose a File or Pattern

The Circle or Tick Shape is the Radiobutton's Selected Image, usually a Circle with a smaller inner Circle, but it can be any Image you like. It is a transparent PNG Image. It is also where you should link your 'TickClick()' Macro ie. right-click on Shape and choose Assign Macro... (make sure the Worksheet Protection is removed first). To view the Shape and change the Formatting or Image, right-click on a Shape and use the Selection Pane on the Arrange Group of the PAGE LAYOUT Tab of the Ribbon. Right-Click and then choose 'Format Picture...' Use the Paint Pot Tab to choose a File or Pattern

You will want to prevent a user from Deselecting a Radiobutton by Clicing on the same Button again. To do this press ALT+F11 and enter the VBA Code Editor. At the top of the Code Module you will find the following Code - simply add your new Radiobutton Group prefix ie. 'X' to this Variable

Option Explicit

' - AllowEmptyRadioButtonGroups, used to allow you to have a Radiobutton Group that can have no Radiobuttons Selected.  Just add the letters A-Z
Const RadioButtonGroups As String = "BDEFGH"
                            

You can add some nice effects to the Radiobutton Shapes to make them stand out more or 'jazz' up the Circle or Tick for the Selected Radiobutton Image. For example to add a Drop Shadow, right-click on an Image and on the WordArt Styles Group of the DRAWING TOOLS Tab on the Ribbon, select Text Effects->Shadow->Outer (pick the Shadow that you want) - you can also do this on the Picture Styles Group of the PICTURE TOOLS Tab on the Ribbon. Here is an image of some lovely Styles I have applied - these are in the File available for purchase

Radiobutton Groups are determined by using a prefix fro each Group as the Name for the Radiobutton and Circle or Tick Shapes ie. 'Aradiobutton10', 'Atick10', 'Aradiobutton11', 'Atick11' etc. This way the Code can differentiate each separate Radiobutton Group. You have a maximum 26 Groups made up of the letters 'A-Z'. To prevent a user Deselecting the Radiobutton by clicking the same Radiobutton you will need to include this Sufix in a Constant Variable at the top of the Code Module. To do this press ALT+F11 and enter the VBA Code Editor. At the top of the Code Module you will find the following Code - simply add your new Radiobutton Group prefix ie. 'X' to this Variable. The numbers for each Radiobutton serve to identify a unique individual Radiobutton, so you should always stagger these numbers - you have a maximum of 90 Radiobuttons without any Code modification

The Code is limited to 100 Radiobuttons and Circles or Ticks and 26 Radiobutton Groups without modification

The RadiObutton Workbook

This is a Screen Shot of the RadiObutton available for Purchase. You can see all of the different Radiobutton Groups with various Styling

Video of the Radiobuttons in Action

Here I run through the Radiobutton Groups testing all of the available animations including the additional styled RadiObuttons and the Checkbox style RadiObuttons