Доступ к метке, нарисованной на листе

Question

Я рисую простой элемент управления меткой прямо на листе Excel. Но я не могу найти какой-либо способ получить к нему доступ через код в редакторе VBA. Это вообще возможно?

Answer 1

Возможно, вы нарисовали ярлык ActiveX или ярлык форм. Если это была первая метка на листе, следующий код выберет имя по умолчанию «label1», и либо objActiveXLabel, либо objFormslabel будут ссылаться на ваш элемент управления

Вы также можете поэкспериментировать с записью макросов с помощью VBA-рекордера при вставке меток, так как это даст вам указатели на тип метки и как манипулировать меткой

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