Pop Up Screens
"Darren O'Connell" wrote in message
...
Hi there,
I've put together a small Excel program that calculates
foreign exchange rates. I would like to add a disclaimer
but rather than simply adding a text box to my worksheet
(thereby increasing the size of the worksheet) I would
like to add a hyperlink that when pressed opens a small
pop up screen showing the text of the disclaimer. When the
mouse is cliked outside the pop up box it disappears. Is
this possible and if so how is it done?
Cheers,
D
The simplest way is to put your disclaimer on a sheet of the
workbook as either a text box image control and add a small
piece of VBA code to the ThisWorkbook.Workbook_Open()
event so that the sheet is always displayed first when the
workbook is opened.
Alternatively you can add your disclaimer to a user form and
use the Workbook_Open event to display it and add
the following code to the userform to close after a set delay
Private Sub UserForm_Activate()
Dim PauseTime, Start, Finish, TotalTime
PauseTime = 2 ' Set duration.
Start = Timer ' Set start time.
Do While Timer < Start + PauseTime
DoEvents ' Needed for form to display correctly
Loop
Me.Hide
End Sub
Note that the Timer function returns the no of seconds
elapsed since midnight so the form would be displayed for
2 seconds
Keith
|