WORD ART MESSAGE BY MACRO

[K]

I am using excel 2007. is it possible that when you open excel file
then a message should come up in wordart saying "SEE THIS"
then after 5 seconds it disappear. Basically i want some sort of macro
in excel file that when someone open the file a message should appear
for 5 seconds saying "SEE THIS" and then disappear but i not
want it in like message box. it should come in wordart. Please if
anybody can help

 

[Mike H]

Hi,

I think generally if you want pretty things like Wordart then your better
using something other than Excel but there is a nice way of doing this
described here

http://www.xldynamic.com/source/xld.xlFAQ0007.html

It's not wordart but it does have the functionality your want in that it
displays a message and dies after a preset time.

Mike

 

[Tom Hutchins]

You can easily put WordArt on a userform. On a blank Powerpoint slide, add
the WordArt message formatted as desired. Right-click on it and select 'Save
as picture'. Save the WordArt somewhere as a JPG, BMP, WMF, etc. Then you can
assign it to the Picture property of the userform itself or an image control
on the userform.

Hutch

 

[Tom Hutchins]

Here is another method...

Add the WordArt to a blank worksheet in the workbook. Turn off the gridlines
on the sheet (Tools >> Options >> View. Uncheck the Gridlines box, then
click OK.)
Name the sheet MsgSht. Paste the following code in the ThisWorkbook module:

Private Sub Workbook_Open()
Sheets("MsgSht").Visible = xlSheetVisible
Sheets("MsgSht").Activate
Sheets("MsgSht").ScrollArea = "A1:O31"
Application.Wait Now() + TimeValue("0:00:05")
Sheets("MsgSht").Visible = xlVeryHidden
Sheets("Sheet1").Activate
End Sub

Change Sheet1 to whatever sheet should be displayed after the warning.
Adjust the ScrollArea setting, if necessary.

Here is a link to a sample file I created:
http://www.freefilehosting.net/download/3fehk

If you are new to macros, this link to Jon Peltier's site may be helpful:
http://peltiertech.com/WordPress/2008/03/09/how-to-use-someone-elses-macro/

Hope this helps,

Hutch

 

[K]

Here is another method...

Add the WordArt to a blank worksheet in the workbook. Turn off the gridlines
on the sheet (Tools >> Options >> View. Uncheck the Gridlines box, then
click OK.)
Name the sheet MsgSht. Paste the following code in the ThisWorkbook module:

Private Sub Workbook_Open()
Sheets("MsgSht").Visible = xlSheetVisible
Sheets("MsgSht").Activate
Sheets("MsgSht").ScrollArea = "A1:O31"
Application.Wait Now() + TimeValue("0:00:05")
Sheets("MsgSht").Visible = xlVeryHidden
Sheets("Sheet1").Activate
End Sub

Change Sheet1 to whatever sheet should be displayed after the warning.
Adjust the ScrollArea setting, if necessary.

Here is a link to a sample file I created:http://www.freefilehosting.net/download/3fehk

If you are new to macros, this link to Jon Peltier's site may be helpful:http://peltiertech.com/WordPress/2008/03/09/how-to-use-someone-elses-...

Hope this helps,

Hutch





- Show quoted text -

Thanks lot Tom thats what i was talking about.