VBA设置“PrintObject”属性为假，内联代码答案

【问题标题】：VBA set "PrintObject" property false, inlinecodeVBA设置“PrintObject”属性为假，内联代码
【发布时间】：2017-10-20 19:19:25
【问题描述】：

我在我的 SourceCode 中创建了一个 ActiveX 按钮并找到它。之后，我更改了 Caption protery 并获得了点击事件。现在我必须更改源代码中的“打印对象”属性。

但我不知道怎么做。

我试过那个：

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)

但没有任何效果。

【问题讨论】：

你的问题很不清楚，你一个都没问。此外，“我找不到任何相关信息”意味着您甚至没有使用 Google，因为如果您使用 Google 搜索“PrintObject”，Button.PrintObject Property 是第一个结果。向我们展示您尝试做的事情（例如您的代码）它实际做了什么以及您期望它做什么。请参阅How to Ask 获取如何写出好问题的帮助。
对不起。我知道我可以从这个对象更改 PropertyView 中的这个属性。但我想在我的源代码中设置这个属性。

标签： vba excel properties inline-code

【解决方案1】：

你可以使用

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

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

或者如果你喜欢使用索引

ActiveSheet.OLEObjects(1).PrintObject = False

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

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

【讨论】：