On an xl Cell, when a SHAPE with a screenTip is clicked by User, SHAPE .OnAction  is disabled. Have Workaround but dont understand it.

Posted on 2014-12-19
Medium Priority
Last Modified: 2014-12-21
'I .addPicture with OnAction like this:
        With wsIF.Cells(rw, cl)
               Set sh = wsIF.Shapes.AddPicture("D:\bla\myPic.jpg", msoCTrue, msoTrue, .Left, .Top + 1, -1, -1)
               wsIF.Shapes(wsIF.Shapes.Count).Height = .Height
               wsIF.Shapes(wsIF.Shapes.Count).OnAction = "Item_Files_Icons_onAction" 'drive a macro
        End With
                wsIF_dat.Cells(activeItemFile_rowNo_wsItemFile, 1) = sh.Name 'to data

'With help from Rgonzo1971, (ref EE : Q_28580565.html ) an icon to expresses a screenTip like this:
        wsIF.Hyperlinks.Add Anchor:=wsIF.Shapes(wsIF.Shapes.Count), Address:="", ScreenTip:="blabla"

'But when I add both screenTip and OnAction to the same sh, onAction only works in the absence of a screenTip.

It turns out that this true: http://www.spreadsheet1.com/screentips--onaction.html
and although this url points to a solution, I dont have the expertise to understand what the solution is.

The use of Ribbon ctls is not an option, as the icons must be used in an xl sheet, where I need to build my dashboard.

Could someone guide me to a workaround please?

Question by:Kelvin4
  • 4
LVL 33

Accepted Solution

Robberbaron (robr) earned 2000 total points
ID: 40510479
i believe the technique is using the
SubAddress:="'Europe Map'!A" & r,
part of the hyperlink to trigger the active cell to change location, which is then able to be intercepted by the

the target parameter of the Worksheet_SelectionChange is the Subaddress, thus the picture clicked can be extrapolated.

but it would need the worksheet, or perhaps better a hidden worksheet, to hold the cells that are the target of the hyperlinks.

Author Comment

ID: 40510866
Thank  you - in haste..
I have this working just now, using Robberbaron's help. I need to break off for now and will report ASAP tonight.

**** I shall accept Robberbaron's solution as the sole solution.


Author Closing Comment

ID: 40511164
Thanks, Robberbaron,

Rated A for speed, and that you gave me access to the solution. Without some plain English, its doubtful that I would have attempted to elucidate the original description (clear though its meaning is after the event).

This is how it worked out.

The dashboardIcon "lighthouse" is on Sheet1.Cells(2,2); the dummy cell defined by the SubAddress is on Sheet2.Cells(2,2)
My dashboard will have a matrix of rows and columns of Icons ('lighthouse' is one) on Sheet1, each mirrored for position in Sheet2, with its  subAddress.

''''ThisWorkbook events
''''''for safety, ensure that Sheet2.Celles(2,2) is NOT activated (? not essential given the repeat line in emulateOnAction(), but why not?)
Private Sub Workbook_Open()
    subAddress_wsDummy_Event_on = False                        'essential to control when Private Sub Workbook_SheetSelectionChange fires
    Set ws = ThisWorkbook.Sheets("Sheet1")
    Set wsDummy = ThisWorkbook.Sheets("Sheet2")
    wsDummy.Range(wsDummy.Cells(1, 1), wsDummy.Cells(1, 1)) = ""
    subAddress_wsDummy_Event_on = True
End Sub

'''''Detect change in Sheet2 and fire emulateOnAction
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
    If subAddress_wsDummy_Event_on = True And Sh.Name = "Sheet2" Then
        MsgBox "sh.name = " & Sh.Name & "; selection_change event; row = " & Target.Row & "; column = " & Target.Column
    End If
End Sub

'''''create dashboard shape:
Sub subAddressMethod()
Dim Sh As Shape
    subAddress_wsDummy_Event_on = False
    With ws.Cells(2, 2)
        Set Sh = ws.Shapes.AddPicture("D:\path\lighthous.jpg", msoCTrue, msoTrue, .Left, .Top, 20, 16)
        ws.Hyperlinks.Add anchor:=ws.Shapes(ws.Shapes.Count), Address:="", SubAddress:="Sheet2!B2", ScreenTip:="sub blabla"
    End With
    subAddress_wsDummy_Event_on = True
End Sub

''''''called from Private Sub Workbook_SheetSelectionChange
Sub emulateOnAction()
    subAddress_wsDummy_Event_on = False
    wsDummy.Range(wsDummy.Cells(1, 1), wsDummy.Cells(1, 1)).Activate 'Move activated cell away from Sheet2.Cells(2,2) to fire repeatedly!
    subAddress_wsDummy_Event_on = True
     MsgBox "Now do your code for clicking that icon"
End Sub

Author Comment

ID: 40511355
one last comment, above I wrote: "My dashboard will have a matrix of rows and columns of Icons ('lighthouse' is one) on Sheet1, each mirrored for position in Sheet2, with its  subAddress."

This is not necessary. The position of the cell in sheet2 is irrelevant. So all shapes can use the same subAddress.

Author Comment

ID: 40512451
THE FINAL COMMENT: in last comment, the text: "This is not necessary. The position of the cell in sheet2 is irrelevant. So all shapes can use the same subAddress." is nonsense!

 The only way to know which shape has been clicked is to detect the subAddress that is activated as a consequence.

In case anyone reads this, apols!

Featured Post

Free Tool: Path Explorer

An intuitive utility to help find the CSS path to UI elements on a webpage. These paths are used frequently in a variety of front-end development and QA automation tasks.

One of a set of tools we're offering as a way of saying thank you for being a part of the community.

Question has a verified solution.

Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.

Have a better answer? Share it in a comment.

Join & Write a Comment

Windows Explorer let you handle zip folders nearly as any other folder: Copy, move, change, and delete, etc. In VBA you can also handle normal files and folders, but zip folders takes a little more - and that you'll find here.
Windows Explorer lets you open cabinet (cab) files like any other folder. In VBA you can easily handle normal files and folders, but opening and indeed creating cabinet files takes a lot more - and that's you'll find here.
This Micro Tutorial will demonstrate how to use a scrolling table in Microsoft Excel using the INDEX function.
Excel styles will make formatting consistent and let you apply and change formatting faster. In this tutorial, you'll learn how to use Excel's built-in styles, how to modify styles, and how to create your own. You'll also learn how to use your custo…

607 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question