display message "opening file"

[clares]

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]

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]

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