Mouseover event on shapes (Excel 2003)

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

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
_______

Mouseover event on shapes (Excel 2003)

Re: Mouseover event on shapes (Excel 2003)