Question

我正在尝试在运行时在工作表中添加一个ActiveX命令按钮。命令按钮的数量取决于工作表中的行数。我计划在命令按钮属性中给出x和y坐标以正确定位它们。我知道我们可以通过这种方式在用户表单中插入命令按钮。

Private Sub CommandButton1_Click()

Me.Controls.Add _
"Forms.CommandButton.2", "CopyOf"
End Sub

我们如何在工作表（非用户表单）中插入命令按钮。工作表（“abc”）。添加不起作用。另外，我如何为它们定义独立的点击事件。例如，如果我单击一个命令按钮，它应该告诉我它在哪一行。

由于

-------------- UPDATE -----------------------------

因此，我可以根据工作表中的行数动态地在所需的位置添加命令按钮。

Private Sub addb3(ByVal rows_present_alerts As Integer)
Dim topcounter As Double
topcounter = 15.75
For i = 2 To rows_present_alerts ' The first row has the column headers
   With Worksheets("abc").OLEObjects
   .Add(ClassType:="Forms.CommandButton.1", Link:=False _
    , DisplayAsIcon:=False, Left:=509.25, Top:=topcounter, Width:=48, Height:=14.25 _
    ).Select
    End With
topcounter = topcounter + 15    ' (not sure this approach will work in monitors with diff screen resolution but anyways) 
Next i
End Sub

我想为每个命令按钮分配点击事件。当我单击命令按钮时，它应该告诉我它在哪一行。

Answer 1

最简单的方法是记录一个宏，然后执行操作，并查看记录的代码。在这种情况下，我录制了一个宏并在工作表中添加了一个按钮，并获得了代码片段：

Sub Macro1()
'
' Macro1 Macro
'

'
    ActiveSheet.Buttons.Add(126.75, 39.75, 46.5, 19.5).Select
End Sub

你应该可以从那里拿走......

Answer 2

它可以提供帮助，可能您会想知道如何访问它;

Sub addButton()

Dim myButton As OLEObject



Set myButton = ActiveSheet.OLEObjects.Add(ClassType:="Forms.CommandButton.1", Left:=0, Top:=300, Height:=20, Width:=200)

myButton.Placement = XlPlacement.xlFreeFloating

myButton.Object.Caption = "Click Me..."

myButton.Name = "DynamicButton"


End Sub

Private Sub DynamicButton_Click()



   MsgBox "Hello sheet"



End Sub

在运行时向工作表添加命令按钮，并定义事件

2 个答案: