好吧,我的问题是我创建了一个 VBA Sub,它接收一个 excel 单元格引用和 2 个文本值和一个 Variant 作为参数。
Sub CreateButton(oCell, sLabel, sOnClickMacro, oParameters)
这个 Sub 成功地在 oCell 上创建了一个按钮,但我必须向宏发送一个参数,实现这一目标的最佳方法是什么?
如果挖掘了一些不起作用的方法,还有一些肮脏的方法让我感到不舒服
在我设法解决问题的帮助下,我在这里提出了一个更简单的工作解决方案
Sub Button_Click(sText)
MsgBox "Message: " & sText
End Sub
Sub Test_Initiallize()
Dim oCell
Dim oSheet
Dim oShape
Set oCell = Range("A1")
Set oSheet = ThisWorkbook.Sheets(1)
For Each oShape In oSheet.Shapes
oShape.Delete
Next
Set oShape = oSheet.Shapes.AddShape(msoShapeRectangle, oCell.Left, oCell.Top, oCell.Width, oCell.Height)
oShape.TextFrame.Characters.Text = "Click Me"
oShape.OnAction = "'Button_Click ""Hello World""'"
End Sub