ワークシートに描かれたラベルへのアクセス

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