toggle button size modified via vba

[sassriverrat]

I'm 99% you can't make a toggle button using code, so can you change the size and location of one via code?

I have a few on a sheet and they seem to have resized/relocated on their own when switch computers and it's quite annoying so I was just going to have code (if possible) to ensure they don't do that again.

Thanks!

 

[My Aswer Is This]

Have you right clicked on the Toggle Buttons and Clicked on Format Control and looked at the Properties?
There are several options there.

 

[My Aswer Is This]

If you really need to try this script:
Modify to your needs:

Private Sub CommandButton1_Click()
'Modified  6/1/2019  1:52:42 AM  EDT
With ActiveSheet.ToggleButton1
    .Left = ActiveCell.Left
    .Top = ActiveCell.Top
    .Width = 250
    .Height = 50
End With
End Sub

 

[sassriverrat]

perfect! That should do it. Thank you!

 

[My Aswer Is This]

Glad I was able to help you.
Come back here to Mr. Excel next time you need additional assistance.

perfect! That should do it. Thank you!

 

[sassriverrat]

For some reason all of the buttons changed sizes/locations as well....but they were easy for me to go back in and code locations/sizes to make sure that doesn't happen again..and this is happening on sheets that are protected.

 

[My Aswer Is This]

When you said that's perfect I was not sure you meant the code I provided or setting the formatting.
So is all working now?
And did you fix the problem with the code or by Changing formatting in properties.

I think this happens when you add or delete cells or rows.

For some reason all of the buttons changed sizes/locations as well....but they were easy for me to go back in and code locations/sizes to make sure that doesn't happen again..and this is happening on sheets that are protected.

 

[sassriverrat]

by the coding- I appreciate all of the help but the coding was what I was looking for.

I haven't deleted/added any rows, that's what caught me off guard- it just up and changed one day....

 

[My Aswer Is This]

Glad I was able to help you.
Come back here to Mr. Excel next time you need additional assistance.

by the coding- I appreciate all of the help but the coding was what I was looking for.

I haven't deleted/added any rows, that's what caught me off guard- it just up and changed one day....

 

[sassriverrat]

Since there isn't such a thing as ActiveCell.Right
How would I go about setting the right side and bottom parameters of the togglebutton (if I wanted it to match teh cell size, instead of specifying a size)? Thanks