Error Checking in Excel
Thanks Thanks:  0
Likes Likes:  0
Results 1 to 7 of 7

Thread: Something different to a MSGbox?

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

    Default

    When the user presses the print command button on the sheet I have a bog standard msgbox come up saying
    "please be patient now printing"

    Question:

    Is it possible to bring up a graphic or an autoshape, on a timer, instead of the msgbox. There is a picture of a mans head in the background and I thought it would look different if I had a speach bubble appear instead?

    Any ideas anyone?

    TIA

    Dan.

  2. #2
    MrExcel MVP
    Join Date
    Feb 2002
    Location
    Christchurch New Zealand
    Posts
    1,030
    Post Thanks / Like
    Mentioned
    0 Post(s)
    Tagged
    0 Thread(s)

    Default

    YEAH IF YOU CREATE A USER FORM WITH A PICTURE AND HAVE THAT LOAD THEN UNLOAD WHEN THE PRINTINGS FINISHED.

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

    Default

    Hi Dan



    The method I use is via a TextBox from the Drawing toolbar, but could be any shape! What I do is add the shape to the sheet, type in a message then set it's size to Zero. I then run this code before the print


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

    Then run this after the Print

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

    It never fails to work as is a very simple method, far better than those progress bars that slow the code down even further.



  4. #4
    Board Regular
    Join Date
    Mar 2002
    Posts
    60
    Post Thanks / Like
    Mentioned
    0 Post(s)
    Tagged
    0 Thread(s)

    Default

    On 2002-04-03 19:46, Dave Hawley wrote:
    Hi Dan



    The method I use is via a TextBox from the Drawing toolbar, but could be any shape! What I do is add the shape to the sheet, type in a message then set it's size to Zero. I then run this code before the print


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

    Then run this after the Print

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

    It never fails to work as is a very simple method, far better than those progress bars that slow the code down even further.


    Dave

    Am I missing something I have entered the code above and nothing happens.

    I have changed sheet12 to sheets("hello") but cant see how to give a name to a textbox or autoshape.

    Dan.

  5. #5
    MrExcel MVP Ivan F Moala's Avatar
    Join Date
    Feb 2002
    Location
    Auckland, New Zealand
    Posts
    4,209
    Post Thanks / Like
    Mentioned
    0 Post(s)
    Tagged
    0 Thread(s)

    Default

    On 2002-04-03 23:25, dan2 wrote:
    On 2002-04-03 19:46, Dave Hawley wrote:
    Hi Dan



    The method I use is via a TextBox from the Drawing toolbar, but could be any shape! What I do is add the shape to the sheet, type in a message then set it's size to Zero. I then run this code before the print


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

    Then run this after the Print

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

    It never fails to work as is a very simple method, far better than those progress bars that slow the code down even further.


    Dave

    Am I missing something I have entered the code above and nothing happens.

    I have changed sheet12 to sheets("hello") but cant see how to give a name to a textbox or autoshape.

    Dan.

    Dan
    Select the textbox (via border selection)
    In the formula name dropdown list
    just type in the name = "PrintMessage"

    Kind Regards,
    Ivan F Moala From the City of Sails

  6. #6
    Board Regular
    Join Date
    Mar 2002
    Posts
    60
    Post Thanks / Like
    Mentioned
    0 Post(s)
    Tagged
    0 Thread(s)

    Default

    Ivan

    I think I might be really stupid now but Ill ask anyway.

    Dan
    Select the textbox (via border selection)
    In the formula name dropdown list
    just type in the name = "PrintMessage"

    are we talking about the same textboxes?
    Im using the one from the draw tools, and cant see or understand how to select via border selection?

    TIA

    Dan.

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

    Default

    Hi Dan

    I too am using the shapes from the drawing toolbar. just select the shape and then type the name in the "Name box" ,left of the formula bar.



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
  •