訪問在工作表上繪製的標籤

Question

我直接在Excel工作表上繪製一個簡單的標籤控件。但我似乎無法找到通過VBA編輯器中的代碼訪問它的任何方式。這甚至有可能嗎？

Answer 1

您可能繪製了一個ActiveX標籤或一個Forms標籤。如果它是表單中的第一個標籤，那麼下面的代碼將選擇默認的「label1」名稱，objActiveXLabel或objFormslabel將引用您的控件

您也可以在將標籤插入爲這會給你指向標籤類型的指針，以及如何操縱標籤

Dim objActiveXLabel As OLEObject 
Dim objFormsLabel As Shape 
On Error Resume Next 
Set objActiveXLabel = ActiveSheet.OLEObjects("Label1") 
Set objFormsLabel = ActiveSheet.Shapes("Label 1") 
On Error GoTo 0 
If Not objActiveXLabel Is Nothing Then MsgBox "Found an ActiveX label", vbExclamation 
If Not objFormsLabel Is Nothing Then MsgBox "Found an Forms label", vbExclamation