VBA 设置 "PrintObject" 属性 false，内联代码

Question

我在我的源代码中创建了一个 ActiveX 按钮并定位了它。之后我更改了 Caption protery 并让它成为一个点击事件。现在我必须更改源代码中的 "Print Object" 属性。

但我不知道怎么做。

我试过那个：

ActiveSheet.OLEObjects((22 + counter)).Object.PrintObject= False

（22 是按钮的索引）

和

Dim rangeString As range
Dim name As String
name = "J" & verifyRow & ":" & "K" & verifyRow
Set rangeString = ActiveSheet.range(name)
Set obj = ActiveSheet.OLEObjects.Add(ClassType:="Forms.CommandButton.1", Link:=False, DisplayAsIcon:=False, Left:=rangeString.Left, Top:=rangeString.Top, Width:=rangeString.Width, Height:=rangeString.Height, PrintObject:=False)

但没有任何效果。

Answer 1

您可以使用

ActiveSheet.OLEObjects("CommandButton1").PrintObject = False

其中 CommandButton1 是按钮的名称（不是标题）。

或者如果你喜欢使用索引

ActiveSheet.OLEObjects(1).PrintObject = False

如参考文献中所写：Button.PrintObject Property。

我建议使用 ThisWorkbook.Worksheets("Sheet1") 而不是 ActiveSheet 来完全指定工作表。

VBA 设置 "PrintObject" 属性 false，内联代码

VBA set "PrintObject" property false, inlinecode

excel

vba

properties

inline-code