Excel VBAリファレンス>>OLEObjectクラス【Office2013以降】

Private Sub OLEオブジェクトの取得()
'ActiveXコントロールを取得する

Dim MyOLE As Object

'コントロール名を指定する方法
Set MyOLE = ThisWorkbook.Worksheets("Sheet1").OLEObjects("btn1")
'インデックス番号をメッセージボックスに表示
MsgBox MyOLE.Index

End Sub

Private Sub OLEオブジェクトの取得()
'ActiveXコントロールを取得する

Dim MyOLE As Object

'インデックス番号を指定する方法
Set MyOLE = ThisWorkbook.Worksheets("Sheet1").OLEObjects(1)
'オブジェクト名を取得する。
MsgBox MyOLE.Name

End Sub

Private Sub OLEオブジェクトの値を取得()
'ActiveXコントロールの値を表示する。

Dim MyButton As Object
Dim MyTextBox As Object
Dim MyLabel As Object
Dim MyMsg As String

Set MyButton = ThisWorkbook.Worksheets("Sheet1").OLEObjects("btn1") 'トグルボタン
Set MyTextBox = ThisWorkbook.Worksheets("Sheet1").OLEObjects("txt1") 'テキストボックス
Set MyLabel = ThisWorkbook.Worksheets("Sheet1").OLEObjects("lbl1")   'ラベル

MyMsg = MyButton.Object.Caption & vbCrLf & MyTextBox.Object.Value & _
vbCrLf & MyLabel.Object.Caption

MsgBox MyMsg

End Sub

Private Sub OLEオブジェクトの複製と移動()
'ラベルを複製して指定の位置に移動する。

Dim MyLabel As Object

Set MyLabel = ThisWorkbook.Worksheets("Sheet2").OLEObjects("lbl1")   'ラベル

'ラベルをコピーしてシート上に貼り付け
MyLabel.Copy
ActiveSheet.Paste

'コピーして作成したActiveXコントロールは名前が初期値（ラベルはLabel**）になる。
'TOPを100ポイント、Leftを120ポイントに指定して移動する。
With ActiveSheet.OLEObjects("Label1")
    .Object.Caption = "ラベルコピー"
    .Top = 100
    .Left = 120
End With

MsgBox "ラベルをコピーしました"

End Sub