Can't change my Checkbox Size

[MaxVigeant]

Hi everyone,

I need to make my checkbox bigger in my spreadsheet.

Ive been looking everywhere and I cant seem to find a way to enlarge the checkbox...

Can anyone help ?

Im using excel 2013 if that's usefull.

thanks !

 

[Scott T]

To select the checkbox to resize you need to be in design mode. The icon is next to insert on the developer ribbon. If it is a forms control you can right click on it to select it.

 

[mikerickson]

Note that resizing a checkbox does not change the size of the little square. It only changes the size of the field in which the caption resides. AFAIK, there is no way to change the size of the square in a check box control.

 

[MaxVigeant]

That's what I fear... Design mode won't let me change the size of the little square.

But I can't believe that there is now way to do it !

 

[DogsbodyBoy]

Hi everyone,

I need to make my checkbox bigger in my spreadsheet.

Ive been looking everywhere and I cant seem to find a way to enlarge the checkbox...

Can anyone help ?

Im using excel 2013 if that's usefull.

thanks !

Hi

I'm late to this post, but I also find the Excel check boxes too small and am disappointed they cannot be resized. I came up with a workaround that I thought I would share here. I wrote a macro that acts like a checkbox whereby if a designated cell (X20 in my example) is currently set to FALSE then the macro sets it to TRUE; if its currently TRUE it sets it to FALSE. I then inserted a button image into my spreadsheet and assigned my macro to it. The only problem with this approach was that button did not indicate whether it was currently true or false ( unlike a check box where you can see it is is checked or not). I therefore came up with the idea of adding a round shape that is slightly larger than the button and then placed the button on top of the shape. I then added code to my macro so the shape changes to green when TRUE or red when FALSE. This places a halo ring around the button so I know how it is currently set. I've included a couple of images as well as my VBA code.

Sub Blank_Wildcard()
'
' Blank_Wildcard Macro
'

' Memorize current active cell position
Set PrevCell = ActiveCell

' If current value of cell X20 is false, set it to true. If it is currently true, set it to false. When set to true,
' change the oval shape to green; change it to red when false.
    If Range("X20").Value = False Then
        Range("X20").Value = "TRUE"
        ActiveSheet.Shapes.Range(Array("Oval 7")).Select
    With Selection.ShapeRange.Fill
        .Visible = msoTrue
        .ForeColor.RGB = RGB(38, 167, 17)
        .Transparency = 0
        .Solid
    End With
    Else
        Range("X20").Value = "FALSE"
        ActiveSheet.Shapes.Range(Array("Oval 7")).Select
    With Selection.ShapeRange.Fill
        .Visible = msoTrue
        .ForeColor.RGB = RGB(192, 0, 0)
        .Transparency = 0
        .Solid
    End With
    End If
 ' Make the memorized cell position the active position.
    PrevCell.Select
End Sub

 

[mikerickson]

Try creating a rectangle and assigning it to this code. It will act and look like a check box.

Sub Rectangle1_Click()
    With ActiveSheet.Shapes("Rectangle 1")
        With .TextFrame2.TextRange.Characters
            .Text = IIf(.Text = "a", "", "a")
            .Font.Name = "Marlett"
            .Font.Size = 33
        End With
    End With
End Sub

 

[DogsbodyBoy]

Try creating a rectangle and assigning it to this code. It will act and look like a check box.

Sub Rectangle1_Click()
    With ActiveSheet.Shapes("Rectangle 1")
        With .TextFrame2.TextRange.Characters
            .Text = IIf(.Text = "a", "", "a")
            .Font.Name = "Marlett"
            .Font.Size = 33
        End With
    End With
End Sub

Thanks. This looks very useful. Does it have the ability to assign a true or false value (or equivalent) to a cell or variable so that action can be taken depending on whether or not it is checked?

 

[mikerickson]

Sub Rectangle1_Click()
    With ActiveSheet.Shapes("Rectangle 1")
        With .TextFrame2.TextRange.Characters
            .Text = IIf(.Text = "a", "", "a")
            .Font.Name = "Marlett"
            .Font.Size = 33

             Range("A1").Value = (.Text = "a")

        End With
    End With
End Sub

If you have several of these shapes, you can use the .AlternateText property to store each shape's linked cell address.