jrc1378


Can I set a mouseover event in VBA on a shape (copied picture)

I have a module that copies an inserted image from one sheet to another sheet based on cell values denoting the placement of the copied image.

The copy is then handled as a shape to set Name, Alt Text, and so on and the sheet is saved as a web page for browser viewing.

Is there a way to set a mouseover event for a Shape object so that when someone points at the image on the web page, the image changes

Code Snippet
' Go to the Display sheet and paste the copied image into the cell referenced

Sheet1.Activate
Sheet1.Range(pRange).Select
ActiveSheet.Paste
Application.CutCopyMode = False

' Set the AltText and Name to match the server network name

Sheet1.Shapes(Sheet1.Shapes.Count).Name = sRange & "-" & namePicture

Sheet1.Shapes(Sheet1.Shapes.Count).AlternativeText = namePicture

' Format picture by calling washPicture() from module3

washPicture

' Put the picture name in the cell one over to the left and hyperlink it


ActiveCell.Offset(0, -1).Range("A1").Select
ActiveCell.FormulaR1C1 = namePicture
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:= _
namePicture, TextToDisplay:=namePicture





Re: Mouseover event on shapes (Excel 2003)

Jon Peltier


Excel's Shape object exposes no events to the object model, so your code cannot detect a mouseover.

- Jon
-------
Jon Peltier, Microsoft Excel MVP
Tutorials and Custom Solutions
http://PeltierTech.com
_______