Embed Command Button in Cell
Hello,
I would like to set a command button or other control inside a worksheet cell. Essentially I am hoping ot have a clearly identifable button which sits in the space of a particular cell. Does anyone know if this is possible? Thanks for your help! |
Embed Command Button in Cell
Following should size your control to a cell and set its "Move and Size"
property Sub test() Dim obj As Object Set obj = Selection ' eg, Forms button, rectangle etc ' maybe a Controls Toolbox button 'Set obj = ActiveSheet.OLEObjects("CommandButton1") ' some shape ' Set obj = ActiveSheet.Shapes("Rectangle 6") If TypeName(obj) = "Shape" Then Set obj = obj.DrawingObject SizeToCell obj, Range("D4") ' optionally set to a cell End Sub Sub SizeToCell(dwo As Object, Optional rTopLeft As Range) Dim c As Range With dwo If rTopLeft Is Nothing Then Set c = .TopLeftCell Else Set c = rTopLeft End If .Left = c.Left .Top = c.Top .Width = c.Width .Height = c.Height .Placement = xlMoveAndSize End With End Sub Regards, Peter T "Bythsx-Addagio" wrote in message ... Hello, I would like to set a command button or other control inside a worksheet cell. Essentially I am hoping ot have a clearly identifable button which sits in the space of a particular cell. Does anyone know if this is possible? Thanks for your help! |
All times are GMT +1. The time now is 04:05 PM. |
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
ExcelBanter.com