display message "opening file"

clares · Mar 25th, 2002, 02:49 AM

I'm sure this is possible but is there any way that I can display a message like "file opening" and a progress bar to display the progress!! Has anyone any ideas on how to achieve this!!

Thanks in advance

Dave Hawley · Mar 25th, 2002, 03:04 AM

Hi clares

This can be done, however I would strongly advise against it as it can only make the opeing time longer! Besides if the "Status bar" is visible this should already be happening.

A little trick that I often use is to have a TextBox on a Sheet with some informative text inside. I then set the size to zero and its color to suit the background.

I then run some code like below on starting the macro and on finishing.

Sub ShowMessage()
With Sheet12.Shapes("PrintMessage")
.Fill.Visible = msoTrue
.Fill.ForeColor.SchemeColor = 62
.Width = 170.25
.Height = 17.25
End With
End Sub

Sub HideMessage()
With Sheet12.Shapes("PrintMessage")
.Width = 0
.Height = 0
.Fill.Visible = msoFalse
End With
Application.ScreenUpdating = True
End Sub

clares · Mar 25th, 2002, 03:13 AM

Thanks Dave - If it slows to much I will take it off, but would like to give it a go.

Thread Tools
Show Printable Version Email this Page
Display Modes
Linear Mode Switch to Hybrid Mode Switch to Threaded Mode

Mar 25th, 2002, 02:49 AM	#1
clares Board Regular Join Date: Mar 2002 Location: Portsmouth.UK Posts: 543	I'm sure this is possible but is there any way that I can display a message like "file opening" and a progress bar to display the progress!! Has anyone any ideas on how to achieve this!! Thanks in advance

Mar 25th, 2002, 03:04 AM	#2
Dave Hawley Banned Join Date: Feb 2002 Posts: 1,582	Hi clares This can be done, however I would strongly advise against it as it can only make the opeing time longer! Besides if the "Status bar" is visible this should already be happening. A little trick that I often use is to have a TextBox on a Sheet with some informative text inside. I then set the size to zero and its color to suit the background. I then run some code like below on starting the macro and on finishing. Sub ShowMessage() With Sheet12.Shapes("PrintMessage") .Fill.Visible = msoTrue .Fill.ForeColor.SchemeColor = 62 .Width = 170.25 .Height = 17.25 End With End Sub Sub HideMessage() With Sheet12.Shapes("PrintMessage") .Width = 0 .Height = 0 .Fill.Visible = msoFalse End With Application.ScreenUpdating = True End Sub

Mar 25th, 2002, 03:13 AM	#3
clares Board Regular Join Date: Mar 2002 Location: Portsmouth.UK Posts: 543	Thanks Dave - If it slows to much I will take it off, but would like to give it a go.