.TopLeftCell.Addressで「型が一致しません。」コンパイルエラーに

動作検証バージョン：64bit Windows 10 Pro + 32bit Excel（バージョン2207 ビルド15427.20210 Microsoft Store）

「Set rng = ActiveSheet.Shapes(Application.Caller).TopLeftCell.Address 型が一致しない」
という検索キーワードでアクセスがありました。

変数に代入を行うコード

Set rng = ActiveSheet.Shapes(Application.Caller).TopLeftCell.Address

を書いてみたものの、「型が一致しません。」コンパイルエラーが表示されてしまったので、その原因を調べていらしたのでしょう。

TopLeftCellプロパティの戻り値はRangeオブジェクト

コード「.TopLeftCell」や「.TopLeftCell.Address」の戻り値が何なのかを、しっかり意識しましょう。

TopLeftCellプロパティの戻り値は、拙著『理解するExcel VBA／図形操作の基本』の「chapter 2. Shapeの位置や大きさを操作する」等でも解説しているとおり、Shape等の左上隅のセルを表すRangeオブジェクトです。

TopLeftCellプロパティの戻り値がRangeオブジェクトですから、「.TopLeftCell.Address」は、RangeオブジェクトのAddressプロパティを使用しているコードということになります。

「Set rng = ActiveSheet.Shapes(Application.Caller).TopLeftCell.Address 型が一致しない」
と検索なさった方は、変数rngを「As Range」で宣言しているはずです。

Range.Addressプロパティの戻り値であるString型のデータを、Range型のオブジェクト変数rngに代入しようとしているために、

Set rng = ActiveSheet.Shapes(Application.Caller).TopLeftCell.Address

で「型が一致しません。」コンパイルエラーになってしまいます。

ですから、「.Address」を削除した、

Set rng = ActiveSheet.Shapes(Application.Caller).TopLeftCell

にすれば、「型が一致しません。」コンパイルエラーは出なくなるはずです。

理解するExcel VBA／図形操作の基本

伊藤潔人 2021-11-28

最終更新日時：2022-09-09 17:40

［スポンサードリンク］

『インストラクターのネタ帳』では、2003年10月から平日のほぼ毎日、Microsoft Officeの使い方などを紹介し続けています。
図形を操作するExcel VBAの基本を解説したキンドル本を出しました↓↓

Excel VBAユーザーを対象とした、Word VBAの入門書をキンドル本として出しました↓↓

グラフを操作するExcel VBAの基本を解説したキンドル本です↓↓

数式を使った条件付き書式設定が苦手な方に向けたKindle本を書きました↓↓

『インストラクターのネタ帳』を運営する伊藤潔人が、初めて書かせていただいた書籍です↓↓

PowerPoint VBA本は、実はオブジェクトブラウザーの使い方を徹底的に解説した本です↓↓

Pythonの外部ライブラリOpenPyXL（オープンパイエクセル）の入門書を、Excel VBAユーザーに向けに書きました↓↓

Pythonの文字列フォーマットの基本をキンドル本としてまとめました↓↓

小数とPythonのdecimalモジュールの基本をキンドル本としてまとめました↓↓

日経BP社から出版された、Excel VBAユーザー向けのPython超入門書です↓↓

上記の『Excel VBAユーザーのためのPythonプログラミング』の元になったキンドル本です↓↓

3年前(2021年4月)の
人気記事

「Shapesコレクション・Shapeオブジェクト」の記事一覧