Avatar of Kelvin4
Kelvin4
 asked on

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
Microsoft Excel

Avatar of undefined
Last Comment
Kelvin4

8/22/2022 - Mon
ASKER CERTIFIED SOLUTION
Professor J

Log in or sign up to see answer
Become an EE member today7-DAY FREE TRIAL
Members can start a 7-Day Free trial then enjoy unlimited access to the platform
Sign up - Free for 7 days
or
Learn why we charge membership fees
We get it - no one likes a content blocker. Take one extra minute and find out why we block content.
Not exactly the question you had in mind?
Sign up for an EE membership and get your own personalized solution. With an EE membership, you can ask unlimited troubleshooting, research, or opinion questions.
ask a question
Kelvin4

ASKER
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 Archibald

Can you clarify exactly what steps you take to do this: "- I import a graphic (eg .jpg) into a worksheet cell."
Kelvin4

ASKER
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
Experts Exchange has (a) saved my job multiple times, (b) saved me hours, days, and even weeks of work, and often (c) makes me look like a superhero! This place is MAGIC!
Walt Forbes
Kelvin4

ASKER
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