|
▼ゴリ さん:
>>こんな感じです。
>>アクティブシートに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
こんな感じです。
|
|