how do centre and Italic the text in a msgbox? Are my

Qroozn · Apr 23rd, 2002, 10:18 PM

I think the Subject explains what i want.

Any assistance gr8ly appreciated.

[ This Message was edited by: Qroozn on 2002-04-23 21:31 ]

[ This Message was edited by: Qroozn on 2002-04-23 21:32 ]

Derek · Apr 24th, 2002, 12:10 AM

Hi there
Since no-one else has replied I'll pass on the little I know.
I think text format for message boxes is not easy to write into a macro. You can change the font format by clicking the Start button, then Settings, Control Panel, Display, Appearance tab, Item drop down box and select Message Box. (Buttons for bold or italics are to the right of the drop down box in Windows 2000).
You might find this formatting may also be picked up elsewhere in your spreadsheet besides message box.
The only way I know to centralise is trial and error using spaces at the beginning of the text. You can break the text into separate lines using "& vbCrLf &"

regards
Derek

gareth · Apr 24th, 2002, 12:11 AM

I did this last week with somebody *?*

Can you check the archives please,it should be there.
the best of luck to you

Derek · Apr 24th, 2002, 12:58 AM

Alternativelly you might try something like this, using a text box:

ActiveSheet.Shapes.AddTextbox(msoTextOrientationHorizontal, 192.75, 75.75, _
239.25, 140.25).Select
Selection.Characters.Text = "Message Box" & Chr(10) & "" & Chr(10) & "Save this file before exiting."
Selection.HorizontalAlignment = xlCenter
Selection.ShapeRange.ScaleHeight 0.58, msoFalse, msoScaleFromTopLeft
Selection.Characters.Text = "Message Box" & Chr(10) & "" & Chr(10) & "Save this file before exiting."
With Selection.Characters(Start:=1, Length:=13).Font
.Name = "Georgia"
.FontStyle = "Bold"
.Size = 20
.ColorIndex = 3
End With
With Selection.Characters(Start:=14, Length:=30).Font
.Name = "Monotype Corsiva"
.FontStyle = "Bold"
.Size = 14
.ColorIndex = xlAutomatic
End With
Selection.ShapeRange.Fill.PresetTextured msoTextureBouquet
Application.Wait Now + TimeValue("00:00:05")
Selection.Delete
Range("A1").Select
End Sub

regards
Derek

[ This Message was edited by: Derek on 2002-04-24 00:32 ]

Apr 24th, 2002, 12:11 AM	#3
gareth Board Regular Join Date: Apr 2002 Location: Cape Town,South Africa Posts: 234	I did this last week with somebody ? Can you check the archives please,it should be there. the best of luck to you __________________ Regards Gareth Visit The Excel Maniacs :<>: Have a Chat! :<>: Free Stuff!

Thread Tools
Show Printable Version Email this Page
Display Modes
Linear Mode Switch to Hybrid Mode Switch to Threaded Mode

Apr 23rd, 2002, 10:18 PM	#1
Qroozn Board Regular Join Date: Mar 2002 Location: Sydney/Brisbane , Australia Posts: 539	I think the Subject explains what i want. Any assistance gr8ly appreciated. [ This Message was edited by: Qroozn on 2002-04-23 21:31 ] [ This Message was edited by: Qroozn on 2002-04-23 21:32 ]

Apr 24th, 2002, 12:10 AM	#2
Derek Board Regular Join Date: Feb 2002 Location: Perth Australia Posts: 1,567	Hi there Since no-one else has replied I'll pass on the little I know. I think text format for message boxes is not easy to write into a macro. You can change the font format by clicking the Start button, then Settings, Control Panel, Display, Appearance tab, Item drop down box and select Message Box. (Buttons for bold or italics are to the right of the drop down box in Windows 2000). You might find this formatting may also be picked up elsewhere in your spreadsheet besides message box. The only way I know to centralise is trial and error using spaces at the beginning of the text. You can break the text into separate lines using "& vbCrLf &" regards Derek

Apr 24th, 2002, 12:58 AM	#4
Derek Board Regular Join Date: Feb 2002 Location: Perth Australia Posts: 1,567	Alternativelly you might try something like this, using a text box: ActiveSheet.Shapes.AddTextbox(msoTextOrientationHorizontal, 192.75, 75.75, _ 239.25, 140.25).Select Selection.Characters.Text = "Message Box" & Chr(10) & "" & Chr(10) & "Save this file before exiting." Selection.HorizontalAlignment = xlCenter Selection.ShapeRange.ScaleHeight 0.58, msoFalse, msoScaleFromTopLeft Selection.Characters.Text = "Message Box" & Chr(10) & "" & Chr(10) & "Save this file before exiting." With Selection.Characters(Start:=1, Length:=13).Font .Name = "Georgia" .FontStyle = "Bold" .Size = 20 .ColorIndex = 3 End With With Selection.Characters(Start:=14, Length:=30).Font .Name = "Monotype Corsiva" .FontStyle = "Bold" .Size = 14 .ColorIndex = xlAutomatic End With Selection.ShapeRange.Fill.PresetTextured msoTextureBouquet Application.Wait Now + TimeValue("00:00:05") Selection.Delete Range("A1").Select End Sub regards Derek [ This Message was edited by: Derek on 2002-04-24 00:32 ]