How to get clicked picture AlternativeText in VBA

**frittob** · 03-05-2009, 03:05 PM

1st post here ... gentle on a vba newbie

I have a few pictures on a sheet
I'd like to return the AlternativeText from whatever picture the user clicks
(Then eventually, i'll find that Alt-Text on another sheet)

I found the property AlternativeText for Shape and ShapeRange ... but not sure how to get this for the clicked picture .... what i'm looking for:

 
Sub subPicture_Click()
 
' varAltTxt = Selection.ShapeRange.AlternativeText
' varAltTxt = ActiveWindow.Selection.Shape.AlternativeText
' (^bombs out on both of these^)
 
' do other stuff with varAltTxt
 
End Sub

Thanks In Advance

**Andy Pope** · 03-06-2009, 05:09 AM

This works for me.

    Dim shpTemp As Shape
    
    Set shpTemp = ActiveSheet.Shapes("Picture 1")
    MsgBox shpTemp.AlternativeText

If you still have problem post example file with picture.

**frittob** · 03-06-2009, 08:18 AM

Thanks Andy, I appreciate the response

How do i know which picture was clicked?

Your example uses "Picture 1" ... in the spreadsheet, i'll have multiple pictures, all running the same macro when the user clicks one

So how do you distinguish which picture was actually selected?

**Andy Pope** · 03-06-2009, 08:20 AM

Assuming you have used the Assign Macro property on the pictures,

    Set shpTemp = ActiveSheet.Shapes(Application.caller)

**frittob** · 03-06-2009, 09:36 AM

Perfect ... Thank You!

yup using the macro's ... The Alt-Text gives me kind of a poor mans menu system
User clicks on a picture, then i use the alt-text to do a find on a different sheet

Thanks again

**Nioubie** · 11-21-2011, 12:00 PM

Hello, i have a similar macro, but i research to do this with a function, rather than a click,

also i have a problem when there is multiple images in a cell, i would like to extract all the texts from this cell (with ; )

I join my workbook

Thnaks in advance for your help