Hi Ken,
You can't do this with embedded charts directly, but you can create a
command button, paste a piture of the chart onto it and assign a macro like
this to the command button.
Private Sub btnCht1_MouseMove(ByVal Button As Integer, ByVal Shift As
Integer, ByVal X As Single, ByVal Y As Single)
Dim ht As Single
Dim wt As Single
wt = btnCht1.Width
ht = btnCht1.Height
If X < 0 Or X > wt Or Y < 0 Or Y > ht Then
Me.ChartObjects("Chart 1").Visible = False
Else
Me.ChartObjects("Chart 1").Visible = True
End If
End Sub
ie
Build an embedded chart
Hold down the shift key and click on the chart, you can now name it ("Chart
1" in this example)
Build a command button withthe command toolbar
Click on the chart - hold shift down and use the Edit - Copy Picture menu
Open the options dialog from the control toolbar, click on the command
button to see its options
The Picture option should say (none) click on this and paste (Ctrl-V)
Change the Name option of the button to btnCht1
Double click the command button to open the code editor
Paste the above code into the code editor
Ed Ferrero
http://www.edferrero.com