vba - VBAでonActionサブルーチンを呼び出すチェックボックスへのLinkedCell?

Question

チェックボックスがオン/オフされるたびにサブルーチンを呼び出すチェックボックスが多数あります。次に、サブを呼び出したチェックボックスのリンクされたセルへのアドレスを取得したいと思います。私はもう試した

Application.Caller.LinkedCell

Application.Caller が文字列を返すため、「オブジェクトが必要です」というエラーが表示されます。

linkedCell のアドレスを取得する方法はありますか?

助けてくれてありがとう！

Answer 1

これは、コントロールを認識Checkboxしないと思うため、[フォーム] メニューからを使用していることを前提としています。(チェックボックスはシェイプです)の奇妙な名前のプロパティを使用します。Application.CallerActiveXControlFormatShape

Sub GetLinkedCell()
Dim shp As Shape
Dim chk As ControlFormat

Set shp = ThisWorkbook.Worksheets(1).Shapes(Application.Caller)
Set chk = shp.ControlFormat
MsgBox chk.LinkedCell
End Sub