No.4ベストアンサー
- 回答日時:
#03です。
先のマクロを少しスリムにしましたので再掲しますSub Macro1()
Const trg As String = "A1"
Dim res
Dim psw As Boolean
Dim idx As Integer
With ActiveSheet
For idx = 1 To .Shapes.Count
If .Shapes(idx).Type = msoLine Then
Set res = Intersect(.Range(trg), Range(.Shapes(idx).TopLeftCell, _
.Shapes(idx).BottomRightCell))
If Not res Is Nothing Then
psw = True
Exit For
End If
End If
Next idx
If psw Then
MsgBox "ラインが" & trg & "と重なっています"
Else
MsgBox "重なっていません"
End If
End With
End Sub
この回答への補足
ご回答ありがとうございます。
>>このラインにセルが引っかかっているかどうか
>どのライン? どのセルですか。
このライン = ライン(Shapeオブジェクト)
どのセル = 任意のセル
です。
要は両方とも任意です。
いただいたソースコードは非常に参考になります。
これを元にちょっと進めてみたいと思います。
ありがとうございました。
No.3
- 回答日時:
微妙に何をどうすればよいのかが分からない質問ですね。
>このラインにセルが引っかかっているかどうか
どのライン? どのセルですか。
セルとラインが特定できれば、以下のようにIntersect関数で範囲重複があるかないかを判定すればよいと思いますが、質問には一切書かれていないので想像で書かなければなりませんね。回答する側はurourojpさんのPC画面は見えませんので…
Intersect(.Range("A1"), Range(.Shapes(1).TopLeftCell, .Shapes(1).BottomRightCell))
以下のマクロは2行目で指定しているセルに、かかっているシェイプの「ライン」があるかないかを判定するサンプルです。質問には「ライン」と明記されていますので、「ライン」以外のシェイプは無視するようにしています。また色々余分に書き込みすぎていますが、基本は上に書いた通りです。部分的にでもご参考になれば…
Sub Macro1()
Const trg As String = "A1"
Dim res, act
Dim psw As Boolean
Dim idx As Integer
Set act = Selection
With ActiveSheet
Application.ScreenUpdating = False
For idx = 1 To .Shapes.Count
.Shapes(idx).Select
If TypeName(Selection) = "Line" Then
Set res = Intersect(.Range(trg), Range(.Shapes(idx).TopLeftCell, _
.Shapes(idx).BottomRightCell))
If Not res Is Nothing Then
psw = True
Exit For
End If
End If
Next idx
act.Select
Application.ScreenUpdating = True
If psw Then
MsgBox "ラインが" & trg & "と重なっています"
Else
MsgBox "重なっていません"
End If
End With
End Sub
No.2
- 回答日時:
それはつまり、Shapeがセルのラインをまたいでいるか=Shapeが2つ以上のセルに干渉しているかの判定ではないですか?
Shape.TopLeftCell プロパティ(オブジェクトの左上端にあるセルを取得)
Shape.BottomRightCell プロパティ(オブジェクトの右下端にあるセルを取得)
この2つのプロパティで取得した値(Rangeオブジェクト)を比較して、一致すればそのShapeは同一セル内に収まっているということです。
これではダメでしょうか??
Shape.TopLeftCellというプロパティーがあったんですね。
これを使って進めてみたいと思います。
ありがとうございました。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) VBA 検索と入力 Excel ブック ぶぶぶ シート ししし 列V 検索対象の列です 最終行は、お 6 2023/05/17 01:40
- Excel(エクセル) Excelで、あるセルだけ入力させたい、オートフィルターも使わせたい際のシートの保護 2 2023/02/23 15:14
- Excel(エクセル) Excelのマクロについて教えてください。 4 2022/05/31 14:07
- Excel(エクセル) エクセルについて教えてください。 2 2023/06/14 11:11
- Excel(エクセル) エクセルの数式について教えてください。 7 2023/06/18 10:16
- Visual Basic(VBA) ExcelのVBAを使い、複数シートの同一箇所を、同一条件にて一括でソルバーを回す方法について 1 2022/04/23 11:49
- Visual Basic(VBA) ExcelのVBAコードについて教えてください。 2 2022/03/25 08:33
- Excel(エクセル) エクセルVBAでチェックボックスにチェックを入れる 1 2022/09/14 00:52
- Excel(エクセル) 同じExcelのBOOK内で 1枚目のシートのA1のセルにデータを 入れると2枚目のシートのC1のセ 1 2022/10/25 09:40
- Excel(エクセル) エクセルについて教えてください。 1 2022/12/26 09:01
このQ&Aを見た人はこんなQ&Aも見ています
-
外出時に「待たせる妻」vs イライラする「待つ夫」は日本だけ?見習いたい海外事情
夫の家事参加に積極的なイメージのある海外でも、同様の事例はあるのか。結婚カウンセラーの佐竹悦子さんに伺ってみた。
-
VBAのロジックでEXCEL上にShape図形があるかないかをチェック
Excel(エクセル)
-
Excel(VBA)
Excel(エクセル)
-
特定の名前のオートシェイプの有無を知りたい(エクセルVBA)
Excel(エクセル)
-
-
4
画像を削除したい(VBA)
Word(ワード)
-
5
VBAで特定のセルに画像があれば削除、なければ貼り付けを行いたい
Excel(エクセル)
-
6
エクセルVBAでセル番地を指定してオブジェクト名取得
Excel(エクセル)
-
7
ExcelVBAで、シートに画像が貼り付けてあるかを判断したいのですが
Excel(エクセル)
-
8
Excel VBAでセル内の画像を選択したい
Excel(エクセル)
-
9
エクセルVBA 図形の選択法は?
Visual Basic(VBA)
-
10
エクセルマクロで特定の範囲が空白という条件
Excel(エクセル)
-
11
ExcelVBAを使って、値がある場合は作業を繰り返し実行するプログラムを作成したい。
Visual Basic(VBA)
-
12
条件に一致したときに画像を表示したいのですが・・。
Excel(エクセル)
-
13
VBAで保存しないで閉じると空のBookが残る
Excel(エクセル)
-
14
ExcelVBAのユーザーフォームの中に線を引きたい
Visual Basic(VBA)
-
15
エクセルVBAでオートフィルター最上行を取得するには
Excel(エクセル)
-
16
【Excel VBA】マクロでExcel自体を終了させたい
Excel(エクセル)
-
17
セル内の一部の文字だけをハイパーリンクに設定したい
Excel(エクセル)
-
18
VBAでエクセルシートを更新(リフレッシュ)する方法を教えて下さい。
Excel(エクセル)
-
19
EXCEL VBAでオートシェイプの重なりを検知するには?
Excel(エクセル)
-
20
エクセルvba (ByVal Target As Range)について
Excel(エクセル)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
既婚者同士で、毎日職場で会う...
-
普通の携番で電話中の時に、ラ...
-
ラインブロックしますからと宣...
-
ガラケーを使っている私がLINE...
-
ず〜と未読無視だったのに、や...
-
メンタルの理由でLINEを返せな...
-
男の人で好きな人とLINEする時...
-
勤務医の彼氏から急に連絡がな...
-
好きな人とのラインで 相手:今...
-
車校 効果測定について 第一段...
-
女友達からのLINEが毎日あって...
-
くびれのある女性が魅力的だと...
-
セフレからのラインを自分から...
-
仕事の先輩から「休んでいいよ...
-
Tバックをする時
-
夜9-10時にLINEを送って、既読...
-
会うたびに彼女にお金を要求さ...
-
飲み会でハメを外した人からの...
-
アルバイトを休んだ翌日の挨拶...
-
食べ物の写真を送ってくる男性心理
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
車校 効果測定について 第一段...
-
既婚者同士で、毎日職場で会う...
-
メンタル的な理由で、ラインを...
-
メンタルの理由でLINEを返せな...
-
小学四年生の漢字の宿題で ぐん...
-
仕事の先輩から「休んでいいよ...
-
夜9-10時にLINEを送って、既読...
-
普通の携番で電話中の時に、ラ...
-
ホワイトボードの糊の跡
-
ず〜と未読無視だったのに、や...
-
教師を辞めた後、卒業生とのラ...
-
ライン通話
-
女友達からのLINEが毎日あって...
-
飲み会でハメを外した人からの...
-
普段携帯を見ない男性って仕事...
-
ラインブロックしますからと宣...
-
くびれのある女性が魅力的だと...
-
アルバイトを休んだ翌日の挨拶...
-
一方的にラインで振られて、会...
-
ラインのサーバーへの保存期間
おすすめ情報