relation between cell and picture which is above it.

Thread view:

Enable EMail Alerts

Start New Thread

Thread rating:

Kangping.Lu - 11 Aug 2007 10:56 GMT

in my sheet there is one column called 'picture', and many picture are in
cells belongs to this column.
my problem is that, i know picture is just floating on the sheet, it doesn't
belong to any cell. But, i need get the picture which is above certain cell.
so i need know the relation between one cell and picture which above this
cell.
in my sheet, the cell size is bigger than picture.so the picture is totally
in the cell.

Reply to this Message

Jim Rech - 11 Aug 2007 13:24 GMT

Sub a()
Dim Pic As Shape
For Each Pic In ActiveSheet.Shapes
If Pic.TopLeftCell.Address(False, False) = "D9" Then
MsgBox Pic.Name
Exit For
End If
Next
End Sub

This assumes there are no other shapes in the same cell as the picture.

Signature

Jim

> in my sheet there is one column called 'picture', and many picture are in
> cells belongs to this column.
[quoted text clipped - 7 lines]
> totally
> in the cell.

Reply to this Message