2017-05-09 86 views
-2

我在我的SourceCode中創建了一個ActiveX按鈕並將其置於其中。 之後,我改變了標題protery並得到一個點擊事件。 現在我必須更改我的源代碼中的「打印對象」屬性。VBA將「PrintObject」屬性設置爲false,內聯代碼

但我不知道如何。

我試過一個:

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) 

但沒有任何工程。

+2

你的問題很不清楚,你甚至沒有問過。另外「*我無法找到任何有關*的信息」意味着你甚至沒有使用Google,因爲[Button.PrintObject Property](https://msdn.microsoft.com/en-us/library/microsoft.office。 tools.excel.controls.button.printobject.aspx)是第一個結果,如果你谷歌的「打印對象」。告訴我們你試圖做什麼(例如你的代碼)它實際上做了什麼以及你期望它做什麼。見[問]如何寫出一個好問題。 –

+0

對不起。我知道我可以在PropertyView中從該對象中更改此屬性。但是我想在我的SourceCode中設置這個屬性。 – Nyxero

回答

0

您可以使用

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

其中CommandButton1是你的按鈕的名稱(不是字幕)。

或者,如果你喜歡用指數

ActiveSheet.OLEObjects(1).PrintObject = False 

寫在參考文獻:Button.PrintObject Property


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

相關問題