Locating Form Control Buttons

dbodimer

New Member
Joined
Jul 15, 2015
Messages
36
I am trying to create and locate Form Control Buttons in a Worksheet using VBA code. I am trying to get the buttons to align with cell boundaries on the worksheet. What I don't know is how to tell the ActiveSheet.Buttons.Add code to align the button boundaries with cell boundaries.

E.G. cell D3 is a merged cell (D3:E4). I would like to place a button on cell D3 such that the button boundaries match the cell boundaries.

Any thoughts?
 

Marcelo Branco

MrExcel MVP
Joined
Aug 23, 2010
Messages
16,317
One way

Code:
Sub CreateButton()
    Dim cb As Object, rCell As Range
            
    With Sheets("Sheet1") ' <--Adjust sheetname
        Set rCell = .Range("D3:E4")
        Set cb = .Buttons.Add(rCell.Left, rCell.Top, rCell.Width, rCell.Height)
        With cb
            .Caption = "Test"
            .OnAction = "Test"
        End With
    End With
End Sub

Sub Test()
    MsgBox "Hello World!"
End Sub
M.
 

Forum statistics

Threads
1,081,774
Messages
5,361,219
Members
400,617
Latest member
barron1

Some videos you may like

This Week's Hot Topics

  • populate from drop list with multiple tables
    Hi All, i have a drop list that displays data, what i want is when i select one of those from the list to populate text from different tables on...
  • Find list of words from sheet2 in sheet1 before a comma and extract text vba
    Hi Friends, Trying to find the solution on my task. But did not find suitable one to the need. Here is my query and sample file with details...
  • Dynamic Formula entry - VBA code sought
    Hello, really hope one of you experts can help with this - i've spent hours on this and getting no-where. .I have a set of data (more rows than...
  • Listbox Header
    Have a named range called "AccidentsHeader" Within my code I have: [CODE]Private Sub CommandButton1_Click() ListBox1.RowSource =...
  • Complex Heat Map using conditional formatting
    Good day excel world. I have a concern. Below link have a list of countries that carries each country unique data. [URL...
  • Conditional formatting
    Hi good morning, hope you can help me please, I have cells P4:P54 and if this cell is equal to 1 then i want row O to say "Fully Utilised" and to...
Top