I have an inserted "picture" sitting atop a cell. Im 'Assigning a Macro' to
this picture to execute an event. My question is I would like to capture
both the cell address AND the cell contents of the cell this picture sits
atop of. Can I programmatically capture this from a pictures position?

thank you

Take a look at the Shape Object's TopLeftCell property in XL/VBA Help.

Address: ActiveSheet.Pictures(1).TopLeftCell.Address
Contents: ActiveSheet.Pictures(1).TopLeftCell.Value

In article <85678B9E-B9BC-4375-9842-(E-Mail Removed)>,
Bret <(E-Mail Removed)> wrote:

> I have an inserted "picture" sitting atop a cell. Im 'Assigning a Macro' to
> this picture to execute an event. My question is I would like to capture
> both the cell address AND the cell contents of the cell this picture sits
> atop of. Can I programmatically capture this from a pictures position?
>
> thank you

Sub myOnActionMacro()
Dim sCaller As String
Dim sAddr As String
Dim vContents

sCaller = Application.Caller
With ActiveSheet.Shapes(sCaller).TopLeftCell
sAddr = .Address
vContents = .Value
End With

MsgBox sCaller & vbCr & sAddr & vbCr & vContents

End Sub

Regards,
Peter T

"Bret" <(E-Mail Removed)> wrote in message
news:85678B9E-B9BC-4375-9842-(E-Mail Removed)...
> I have an inserted "picture" sitting atop a cell. Im 'Assigning a Macro'
to
> this picture to execute an event. My question is I would like to capture
> both the cell address AND the cell contents of the cell this picture sits
> atop of. Can I programmatically capture this from a pictures position?
>
> thank you