Something different to a MSGbox?

[dan2]

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.

 

[brettvba]

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

 

[Dave Hawley]

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

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.

 

[dan2]

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

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.

 

[Ivan F Moala]

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

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"

 

[dan2]

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.

 

[Dave Hawley]

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.