WORD ART MESSAGE BY MACRO

Thread view:

Enable EMail Alerts

Start New Thread

Thread rating:

K - 16 Apr 2008 09:44 GMT

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

Reply to this Message

Mike H - 16 Apr 2008 10:01 GMT

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

> 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"
[quoted text clipped - 3 lines]
> want it in like message box. it should come in wordart. Please if
> anybody can help

Reply to this Message

Tom Hutchins - 16 Apr 2008 15:42 GMT

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

> Hi,
>
[quoted text clipped - 16 lines]
> > want it in like message box. it should come in wordart. Please if
> > anybody can help

Reply to this Message

Tom Hutchins - 16 Apr 2008 19:54 GMT

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

Reply to this Message

K - 17 Apr 2008 08:36 GMT

On Apr 16, 7:54 pm, Tom Hutchins
<TomHutch...@discussions.microsoft.com> wrote:

> Here is another method...
>
[quoted text clipped - 32 lines]
>
> - Show quoted text -

Thanks lot Tom thats what i was talking about.

Reply to this Message