Place commandbuttons in a specific cell

[UHsoccer]

Say row 1 height is 60 and button height is 30

CommandButton 1 in cell BP1 at the top (BP is column 68)
CommandButton 2 in cell BP1 below Button 1

.OLEObjects("Commandbutton1").Top = .Cells(1, 68).Top ' place in top of cell
.OLEObjects("Commandbutton1").Left = .Cells(1, 68).Top


.OLEObjects("Commandbutton2").Top = .Cells(1, 68).??? ' ?? Halfway down ??
.OLEObjects("Commandbutton2").Left = .Cells(1, 68).Top

An additional nice feature would be to actually "fit" the button to whatever the width of the column is

 

[JoeMo]

Assuming you have two active-x command buttons named CommandButton1 and CommandButton2 (change names to suit) on the active sheet, this will position them one above the other and size then to fill the specified cell.

Sub Position2ButtonsIn1Cell()
Const WhatCell As String = "BP1"   'change cell to suit
Dim Btn1 As OLEObject, Btn2 As OLEObject
Set Btn1 = ActiveSheet.OLEObjects("Commandbutton1")
Set Btn2 = ActiveSheet.OLEObjects("Commandbutton2")
With Btn1
    .Top = Range(WhatCell).Top
    .Left = Range(WhatCell).Left
    .Width = Range(WhatCell).EntireColumn.Width
    .Height = Rows(Range(WhatCell).Row).Height / 2
End With
With Btn2
    .Top = Btn1.Top + Rows(Range(WhatCell).Row).Height / 2
    .Left = Range(WhatCell).Left
    .Width = Range(WhatCell).EntireColumn.Width
    .Height = Rows(Range(WhatCell).Row).Height / 2
End With
End Sub

 

[UHsoccer]

Thanks JoeMo that worked fin

 

[JoeMo]

Thanks JoeMo that worked fin

You are welcome - thanks for the reply.