VBA将“PrintObject”属性设置为false，内联代码

Question

我在SourceCode中创建了一个ActiveX按钮并将其定位。 之后我更改了Caption protery并获得了一个click事件。 现在我必须更改源代码中的“打印对象”属性。

但我不知道如何。

我试过那个：

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

（22是Button的索引）

和

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。

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