No.2ベストアンサー
- 回答日時:
Shapeには、TopLeftCellプロパティ、BottomRightCellプロパティがあります。
下記マクロは、図形の左上角(TopLeftCell)が、セル範囲B3:E10にかかっている図形があれば、○をメッセージします。
セル範囲内に、図形全体が収まっているかどうかは、BottomRightCellプロパティも併用すれば判定できます。
Sub test1()
Dim shp As Shape
For Each shp In ActiveSheet.Shapes
MsgBox shp.TopLeftCell.Address & vbCrLf & shp.BottomRightCell.Address
If Not Intersect(shp.TopLeftCell, Range("B3:E10")) Is Nothing Then
MsgBox "○"
Else
MsgBox "×"
End If
Next
End Sub
回答ありがとうございます。
回答が遅れまして申し訳ございません。
私の方でもやってみましたが、微妙に私のイメージとちがいます。
しかし、良いヒントになりました。ありがとうございました。
No.1
- 回答日時:
まず、オートシェイプを選択するのは
ActiveSheet.Shapes("TextBox1").Select です。
あと、セルの座標の取得方法があって、
セルR1C1のXY座標の表示が
x = Cells(1,1).Left
y = Cells(1,1).Top です。
これでヒントになると思いますが。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) Excel VBAについて 2 2022/08/02 06:19
- Access(アクセス) accessデータを指定したExcel、そして指定したセルへエクスポートするaccess VBAコー 2 2023/05/17 17:02
- Excel(エクセル) マクロVBA別Excelブックにデータ転記 2 2022/07/10 23:35
- Excel(エクセル) Excel VBA 指定セルに入力されているパスからシートをコピーして別のブックに転記するVBAのコ 2 2022/04/19 15:53
- Excel(エクセル) Excel VBAで、行の高さを、上下1文字分程度高くしたい 3 2023/04/23 00:17
- Excel(エクセル) Excel VBAどこが間違ってますか? 4 2023/07/17 10:04
- Excel(エクセル) Excel VBA 空白行があるセル範囲に色を付ける 3 2022/06/13 15:58
- Visual Basic(VBA) Excel VBA オブジェクトマクロ 使用指定について お詳しい方教えてください。 共通エクセルフ 2 2023/03/14 17:26
- Excel(エクセル) Excelのvbaについて教えてください。 図形一つ一つに名前がついています。 指定した図形の名前を 2 2022/08/04 15:13
- その他(データベース) Accessフォームからパラメーターで表示したレコードを指定のExcelのセルへ転送する方法について 2 2022/08/22 18:04
このQ&Aを見た人はこんなQ&Aも見ています
-
性格の違いは生まれた順番で決まる?長男長女・中間子・末っ子・一人っ子の性格の傾向
同じ環境で生まれ育っても、生まれ順で性格は違うものなのだろうか。家庭教育研究家の田宮由美さんに教えてもらった。
-
Excelの任意セル上に図形がのっているかどうか?
Excel(エクセル)
-
エクセルVBAでセル番地を指定してオブジェクト名取得
Excel(エクセル)
-
特定の名前のオートシェイプの有無を知りたい(エクセルVBA)
Excel(エクセル)
-
-
4
VBAのロジックでEXCEL上にShape図形があるかないかをチェック
Excel(エクセル)
-
5
EXCEL VBAでオートシェイプの重なりを検知するには?
Excel(エクセル)
-
6
Excel VBAでセル内の画像を選択したい
Excel(エクセル)
-
7
VBA Shapes コピーと名前
Excel(エクセル)
-
8
VBAで特定のセルに画像があれば削除、なければ貼り付けを行いたい
Excel(エクセル)
-
9
マクロを実行すると画像がズレてしまいます
その他(Microsoft Office)
-
10
指定範囲内のオートシェイプを数えるには?
Excel(エクセル)
-
11
エクセル VBA 特定の範囲内に一部分でも入っていたら、そのオートシェイプを削除
Excel(エクセル)
-
12
エクセルのラベルの値(文字列)を垂直方向で中央揃えにするには?
Excel(エクセル)
-
13
エクセル:マクロ「Application.CutCopyMode = False」って?
Excel(エクセル)
-
14
[ EXCEL VBA ] 図形を読み込む順番を制御するには?
Visual Basic(VBA)
-
15
エクセルVBA 図形の選択法は?
Visual Basic(VBA)
-
16
エクセルマクロで指定範囲内の図形を削除
Excel(エクセル)
-
17
VBA シートのボタン名を変更したい
Visual Basic(VBA)
-
18
VBA:結合されたセルに対する「Target」について
Access(アクセス)
-
19
エクセル ユーザーフォームにオートシェープ(図形)を貼り付けるこは可能なのでしょうか?
Excel(エクセル)
-
20
Excel マクロ 画像をリンクせずかつ圧縮して貼りつける方法を教えてください
Excel(エクセル)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
エクセル 足して割る
-
貼り付けで複数セルに貼り付けたい
-
エクセルのセルの枠を超えて文...
-
【Excel】 セルの色での判断は...
-
対象セル内(複数)が埋まった...
-
セルをクリック⇒そのセルに入力...
-
excelのCOUNTIF関数で、『範囲=...
-
EXCEL 結合されたセルを関数で...
-
エクセルで指定したセルのどれ...
-
エクセルにリンクされるのをし...
-
【マクロ】ボタンを押すごとに...
-
【エクセル】IF関数 Aまたは...
-
エクセルの数式で教えてください。
-
エクセルで空白セル”” と未入...
-
excelのにおいてtabキーで右セ...
-
html テーブルのセルにリンクを...
-
枠に収まらない文字を非表示に...
-
【Excel】特定の文字から文字ま...
-
EXCELで一番安い金額と名前を抜...
-
Excelでのコメント表示位置
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
エクセルで指定したセルのどれ...
-
【エクセル】IF関数 Aまたは...
-
対象セル内(複数)が埋まった...
-
エクセル 足して割る
-
Excelで数式内の文字色を一部だ...
-
貼り付けで複数セルに貼り付けたい
-
Excelでのコメント表示位置
-
セルをクリック⇒そのセルに入力...
-
EXCEL VBA セルに既に入...
-
excelのCOUNTIF関数で、『範囲=...
-
【Excel】 セルの色での判断は...
-
エクセル オートフィルタで絞...
-
エクセルのセルの枠を超えて文...
-
(Excel)数字記入セルの数値の後...
-
Excelで、「特定のセル」に入力...
-
エクセルの一つのセルに複数の...
-
複数のセルのいずれかに数字が...
-
excelの特定のセルの隣のセル指...
-
数式を残したまま、別のセルに...
-
ハイパーリンクの参照セルのズ...
おすすめ情報