我在页面上有许多ActiveX控件/按钮,并且我想修改按钮的几个参数(在循环功能中)。
我可以编写循环函数来实现此目的,但我找不到使用字符串变量引用对象的方法。我已经设置了一个对象变量(如下所述)和一个字符串变量,该字符串变量用于更改对象变量的引用-但找不到使它起作用的方法。
这是无效的代码:
Private Sub TrialCode_Click()
Dim ButtonObj As Object
Dim ButtonCaption As String
Dim ButtonString As String
ButtonString = "CommandButton1"
Set ButtonObj = ButtonString
ButtonCaption = "Something"
ButtonObj.Caption = ButtonCaption 'example of the kind of parameters I want to change
End Sub
的Set ButtonObj = ButtonString
是失败,报告一个命令类型不匹配的错误。
我正在使用Excel 2013。
我真的希望有一些方法可以做到这一点。任何帮助将不胜感激!
CommandButton属于 OLEObject
尝试
ButtonString = "CommandButton1"
Set ButtonObj = ActiveSheet.OLEObjects(ButtonString)
ButtonCaption = "Something"
ButtonObj.Object.Caption = ButtonCaption 'example of the kind of parameters I want to change
请注意,有些属性直接出现在下方ButtonObj
,而其他标题(例如Caption)则位于对象下方
本文收集自互联网,转载请注明来源。
如有侵权,请联系[email protected] 删除。
我来说两句