Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


55114 / 76732 ←次へ | 前へ→

【26398】Re:シェイプの指定
回答  りん E-MAIL  - 05/7/4(月) 14:31 -

引用なし
パスワード
   ▼ゴリ さん:
>>こんな感じです。
>>アクティブシートに1つでも図形がある状態で実行してみてください。
>
>四角形とコマンドボタンをつくり、クリック時に先にコードを
>コピーしたら、セルの値がでてきました。
>
>逆に指定したセルにあるシェイプをさす場合には何について調べればよいですか?

Application.Intersectメソッドを使って、セル範囲同士に重なりがあるかどうか判定します。

Sub test()
  Dim ws As Worksheet, sh As Shape
  Set ws = ActiveWorkbook.ActiveSheet
  For Each sh In ws.Shapes
   With ws
     If Not Application.Intersect(.Range("B2"), _
        .Range(sh.TopLeftCell, sh.BottomRightCell)) Is Nothing Then
      MsgBox sh.Name, vbInformation, "セルB2上に図形あり"
     End If
   End With
  Next
  Set ws = Nothing
End Sub

こんな感じです。

0 hits

【26386】シェイプの指定 ゴリ 05/7/4(月) 12:37 質問
【26388】Re:シェイプの指定 かみちゃん 05/7/4(月) 12:56 発言
【26389】Re:シェイプの指定 ゴリ 05/7/4(月) 13:17 質問
【26391】Re:シェイプの指定 りん 05/7/4(月) 13:20 発言
【26395】Re:シェイプの指定 ゴリ 05/7/4(月) 14:22 質問
【26398】Re:シェイプの指定 りん 05/7/4(月) 14:31 回答
【26400】Re:シェイプの指定 ゴリ 05/7/4(月) 14:56 質問
【26403】Re:シェイプの指定 IROC 05/7/4(月) 15:32 回答

55114 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free