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

[Qroozn]

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]

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]

I did this last week with somebody *?* :wink:
Can you check the archives please,it should be there.
the best of luck to you

 

[Derek]

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