Thread: Pop Up Screens
View Single Post
  #4   Report Post  
Posted to microsoft.public.excel.programming
Keith Willshaw Keith Willshaw is offline
external usenet poster
 
Posts: 170
Default 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