excel image in graphic file is displayed on worksheet: how to disable details of graphic's file path in tooltip info?

- I import a graphic (eg .jpg) into a worksheet cell. It displays well.
- I point the cursor at the graphic; however...
- The directory path to the graphic file is displayed over the worksheet in a tooltip message.
- (eg: D:\aaThink_Build\Thk_Building\xlImages..)

How do I prevent this tooltip display?

Thanks
Kelvin4
Kelvin4Asked:
Who is Participating?

[Product update] Infrastructure Analysis Tool is now available with Business Accounts.Learn More

x
I wear a lot of hats...

"The solutions and answers provided on Experts Exchange have been extremely helpful to me over the last few years. I wear a lot of hats - Developer, Database Administrator, Help Desk, etc., so I know a lot of things but not a lot about one thing. Experts Exchange gives me answers from people who do know a lot about one thing, in a easy to use platform." -Todd S.

ProfessorJimJamMicrosoft Excel ExpertCommented:

Experts Exchange Solution brought to you by

Your issues matter to us.

Facing a tech roadblock? Get the help and guidance you need from experienced professionals who care. Ask your question anytime, anywhere, with no hassle.

Start your 7-day free trial
Kelvin4Author Commented:
Thanks, I downloaded the file: DisableHyerlinkTollTips2. but encountered this error: Module basMain:

Public Sub CreateDll(ByVal Dummy As Boolean)

    Dim Bytes() As Byte
    Dim lFileNum As Integer
    Dim aVar
    Dim x As Long
   
    aVar = ThisWorkbook.Worksheets("dllBytes").UsedRange.Value
     
    ReDim Bytes(LBound(aVar) To UBound(aVar))
    For x = LBound(aVar) To UBound(aVar)
        Bytes(x) = CByte(aVar(x, 1))
    Next
   
    lFileNum = FreeFile
    Open DLL_PATH_NAME For Binary As #lFileNum  '<<<<<<<<<<  Error Here
     Put #lFileNum, 1, Bytes
    Close lFileNum
   
    Call RegisterDll
   
End Sub

There seems little evidence that this offering works in the hands of others?

Any other comments on using this approach? 'Or other approaches?

Thanks again, Kelvin
Rory ArchibaldCommented:
Can you clarify exactly what steps you take to do this: "- I import a graphic (eg .jpg) into a worksheet cell."
Kelvin4Author Commented:
I'm afraid I was not able to evaluate the code supplied at the LINK above, as it has a bug.

I decided to cut my loses and remove the hyperlink

Instead, I increased the space in the WS cell that contained the graphic image. This provided the cursor with enough access to the WS cell, so I could double click the cell and detect that Event via Workbook_SheetBeforeDoubleClick. Coupling that event signal upto the original target of my hyperlink was straightforward. That provided a pretty adequate user-experience.

Always glad to hear of better approaches..
Thanks,
Kelvin
Kelvin4Author Commented:
Rory: Thank you - but your message got to me just after I had closed out the Question.
            I've not used graphic icons in spreadsheets before, and ADVICE from a Savant would be prized.
           I am now posting a new question along the lines below.

Last 24 hr: I investigated a variety of procedures.  I realised that I need a clicked Icon to return the Row and column value of the cell it is located in. So I ABANDONED the Hyperlink solution (in the original question), and nor can I see how to get Row and column values from an icon with an assigned macro.

Hence MY FALL BACK SOLUTION is to make the xl cell within which the icon resides sufficiently WIDE for the user to double click part of the cell that is not occupied by Icon. This returns row and column values that will identify the file name and property type (fish etc), respectively. That is not likely to yield a good user-experience!

*** A solution that uses a hyperlink or macro assigned to the Icon would be preferred, provided I could interrogate the cell position of the Icon that was clicked. ***

I add icons to xl cells  via:
    With Range(Cells(rn.row + 1, 7), Cells(rn.row + 1, 1))
        ActiveSheet.Shapes.AddPicture "D:\aaThink_Build\Thk_Building\xlImages\Fish.jpg", msoCTrue, msoTrue, .left, .top, -1, -1
        ActiveSheet.Shapes(ActiveSheet.Shapes.Count).height = .height
    End With

Thanks,
Kelvin
It's more than this solution.Get answers and train to solve all your tech problems - anytime, anywhere.Try it for free Edge Out The Competitionfor your dream job with proven skills and certifications.Get started today Stand Outas the employee with proven skills.Start learning today for free Move Your Career Forwardwith certification training in the latest technologies.Start your trial today
Microsoft Excel

From novice to tech pro — start learning today.