2011-11-28 135 views
5

我想通过VBA代码在单元格中放置一个命令按钮。说出位置B3。我为此使用了宏记录器,但它给了我按钮的最低值。如果我用其他屏幕分辨率将我的代码带到其他计算机上,我不希望这样,代码将失败。单元格位置(示例B3)将是绝对位置。在单元格中放置一个命令按钮MS Excel vba

你能建议我一种方法来做到这一点。

P.S它的一个ActiveX按钮

感谢

回答

20

不能放置任何物品“在”一个细胞,只有在它。您可以将按钮的左侧和顶部属性设置为单元的左侧/顶部。

Sub Tester() 
    Dim rng As Range 
    Set rng = ActiveSheet.Range("B3") 
    With ActiveSheet.OLEObjects("CommandButton1") 
     .Top = rng.Top 
     .Left = rng.Left 
     .Width = rng.Width 
     .Height = rng.RowHeight 
    End With 
End Sub 
+3

+1很好地完成。 – brettdj

相关问题