Thanks Thanks:  0
Likes Likes:  0
Results 1 to 3 of 3

Thread: display message "opening file"

  1. #1
    Board Regular
    Join Date
    Mar 2002
    Location
    Portsmouth.UK
    Posts
    557
    Post Thanks / Like
    Mentioned
    0 Post(s)
    Tagged
    0 Thread(s)

    Default

    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

  2. #2
    Rest in Peace
    Join Date
    Feb 2002
    Posts
    1,582
    Post Thanks / Like
    Mentioned
    0 Post(s)
    Tagged
    0 Thread(s)

    Default

    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

  3. #3
    Board Regular
    Join Date
    Mar 2002
    Location
    Portsmouth.UK
    Posts
    557
    Post Thanks / Like
    Mentioned
    0 Post(s)
    Tagged
    0 Thread(s)

    Default

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


Some videos you may like

User Tag List

Like this thread? Share it with others

Like this thread? Share it with others

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •