Hi,Thanks for the quick reply Erik. I created a new workbook and tried out some of the solutions mentioned in that thread. I think Jaafar's solution would probably do what I'm looking for but from the description it sounds like it should have been popping up a comment box or something. The only time I was able to see anything though is if I clicked on a shape and got the MsgBox with the shape name in it.
Should I be getting a comment box or something popping up without having to click or am I misunderstanding what it should be doing? Could the version of Excel have anything to do with it (I'm running 2007)?
Hi,
Did you try out the sample workbook?
You should get a popup when hoovering over the shapes.
Also, you would better ask the questions in that thread or send a little PM to Jaafar with a link to this thread (no question, just the link).
best regards,
Erik
OK, let us seeI dunno if this query (mouseover comments for shapes) is still alive... but if its then there is a simple solution to it... reply to this comment and i shall post the solution
I dunno if this query (mouseover comments for shapes) is still alive... but if its then there is a simple solution to it... reply to this comment and i shall post the solution
thread might be alive, but he's notok what is the solution
thread might be alive, but he's not
Right Click the Shape
Select Hyperlink
Click Screen Tip
Type in your message
Click OK
Click Bookmark
Type A1 in the top box
Click OK
Click OK
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address = "$A$1" Then 'this is the "a1" in the preceding quote
'call macro
[b1].Select 'probably can just deselect instead? in order to run the next shape click
End If
End Sub
Sub addHyperAddIdentifierrev1()
icount = 1
Worksheets("macro code").Cells(icount, 1).Value = "Private Sub Worksheet_SelectionChange(ByVal Target As Range)"
icount = icount + 1
For Each myshape In ActiveSheet.Shapes
If myshape.OnAction <> "" Then
Cells(myshape.TopLeftCell.Row, myshape.TopLeftCell.Column).Value = myshape.Name
ActiveSheet.Hyperlinks.Add Anchor:=myshape, Address:="completeGamerev1.xlsm#'test hyper to macro'!" & myshape.TopLeftCell.Address, ScreenTip:="ahha"
Worksheets("macro code").Cells(icount, 1).Value = "If Target.Address = " & Chr(34) & myshape.TopLeftCell.Address & Chr(34) & " Then"
icount = icount + 1
Worksheets("macro code").Cells(icount, 1).Value = "'''''call macro and in you can use the (cell.value as a variable so you know what shape you are selecting)"
icount = icount + 1
Worksheets("macro code").Cells(icount, 1).Value = "[b1].Select"
icount = icount + 1
Worksheets("macro code").Cells(icount, 1).Value = "End If"
icount = icount + 1
End If
Next
Worksheets("macro code").Cells(icount, 1).Value = "End Sub"
End Sub