
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で質問しましょう!
このQ&Aを見た人はこんなQ&Aも見ています
-
Excelの任意セル上に図形がのっているかどうか?
Excel(エクセル)
-
特定の名前のオートシェイプの有無を知りたい(エクセルVBA)
Excel(エクセル)
-
指定範囲内のオートシェイプを数えるには?
Excel(エクセル)
-
-
4
VBA Shapes コピーと名前
Excel(エクセル)
-
5
Excel VBAでセル内の画像を選択したい
Excel(エクセル)
-
6
エクセル VBA 特定の範囲内に一部分でも入っていたら、そのオートシェイプを削除
Excel(エクセル)
-
7
エクセルVBAでセル番地を指定してオブジェクト名取得
Excel(エクセル)
-
8
VBAでエクセルシートを更新(リフレッシュ)する方法を教えて下さい。
Excel(エクセル)
-
9
VBAでテキストボックス内の編集をする方法
Visual Basic(VBA)
-
10
VBA 別ブックからコピペしたいのですが、軽くしたいです
Visual Basic(VBA)
-
11
エクセルVBA 画像を貼り付けるセル位置を指定する方法
Excel(エクセル)
-
12
エクセル マクロで、選択している画像の数を数えたい
Excel(エクセル)
-
13
Excel VBAで、実行時にsheet上のコマンドボタンのCaptionを変更する。
Excel(エクセル)
-
14
EXCEL VBA で指定した範囲に入力があるかどうか?
Visual Basic(VBA)
-
15
エクセル:マクロ「Application.CutCopyMode = False」って?
Excel(エクセル)
-
16
エクセルのラベルの値(文字列)を垂直方向で中央揃えにするには?
Excel(エクセル)
-
17
メッセージボックスのOKボタンをVBAでクリックさせたい
Visual Basic(VBA)
-
18
エクセルVBA シート上にあるコマンドボタンを削除するには?
Excel(エクセル)
-
19
コマンドボタンがあるかどうかを取得するには?
PowerPoint(パワーポイント)
-
20
VBA アプリケーション定義またはオブジェクト定義エラーについて
Visual Basic(VBA)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
Excel2010の指マークと白十字マ...
-
数式を残したまま、別のセルに...
-
対象セル内(複数)が埋まった...
-
Excel 例A(1+9) のように番地の...
-
エクセルの書式設定の表示形式...
-
IF関数でFALSEが表示されないよ...
-
貼り付けで複数セルに貼り付けたい
-
【エクセル】IF関数 Aまたは...
-
Excelでのコメント表示位置
-
エクセル オートフィルタで絞...
-
エクセルで指定したセルのどれ...
-
エクセルの一つのセルに複数の...
-
エクセルのセルの枠を超えて文...
-
セルをクリック⇒そのセルに入力...
-
Excel for Mac使用中ポインタが...
-
ハイパーリンクの参照セルのズ...
-
公共建築工事 共通仮設費率 エ...
-
エクセルの関数VLOOKUP...
-
エクセルのセル交点に丸印をつ...
-
(Excel)数字記入セルの数値の後...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
貼り付けで複数セルに貼り付けたい
-
エクセルで指定したセルのどれ...
-
数式を残したまま、別のセルに...
-
Excel for Mac使用中ポインタが...
-
Excel 例A(1+9) のように番地の...
-
セルをクリック⇒そのセルに入力...
-
エクセルの書式設定の表示形式...
-
枠に収まらない文字を非表示に...
-
エクセル オートフィルタで絞...
-
対象セル内(複数)が埋まった...
-
【エクセル】IF関数 Aまたは...
-
(Excel)数字記入セルの数値の後...
-
エクセルのセルの枠を超えて文...
-
EXCEL VBA セルに既に入...
-
Excelでのコメント表示位置
-
公共建築工事 共通仮設費率 エ...
-
Excelで数式内の文字色を一部だ...
-
Excelで教えてください。 バー...
-
エクセルの一つのセルに複数の...
-
Excel2003 の『コメント』の編...
おすすめ情報