Is there any way to align text in message box in vb or vba?

Question

Is there any way to align text into the center in msgbox in VB or VBA? Does VB have any functionality to do the same?

Deanna · Accepted Answer · 2012-02-04T00:26:43.897

8

No. The MsgBox() function is simply a wrapper for the Windows MessageBox() function and as such has no stylistic control over the dialog beyond the icon.

If you want to change it any further than this, you will need to create your own window and show that instead.

On Windows Vista+ you can use TaskDialogs that allow a lot more control.

edited Feb 04 '12 at 00:26

answered Feb 03 '12 at 17:18

Deanna

23,876
7
71
156

TaskDialogs have been around since Vista. Keep in mind how small a change Win7 really is. – Bob77 Feb 03 '12 at 18:37
Ah, I forgot when they were introduced. My answer's been updated to suit. – Deanna Feb 04 '12 at 00:26
I think the absolute "No" here is incorrect. VB itself obviously does not support this directly but I would think a workaround such as https://stackoverflow.com/a/10760568/3195477 would work equally well in VB6. – StayOnTarget May 24 '23 at 14:59

score 3 · Answer 2 · answered Jan 18 '17 at 20:40

3

no, but you can cheat by using spaces.

msgbox("                your message")

answered Jan 18 '17 at 20:40

Omar Luján

39
1

score 1 · Answer 3 · answered Feb 03 '12 at 15:30

1

VBA

Some notes: http://access.mvps.org/access/bugs/bugs0035.htm AND http://www.tek-tips.com/viewthread.cfm?qid=435428 However, it is not so difficult to build your own message box, which solves all your problems.

answered Feb 03 '12 at 15:30

Fionnuala

90,370
7
114
152

score 1 · Answer 4 · answered Feb 06 '12 at 01:35

When you are building your strings you could pad them at the beginning and end with spaces to achieve a target length. If you're using excel the worksheet function rept is handy for this.

function pad_n_center(byval mystring as string, lenmax as integer) as string
    dim pad_by as integer
    dim pad as string
    pad_by = (lenmax - len(mystring))/2
    'some more code to finesse that?
    pad = worksheetfunction.rept(" ",pad_by)
    pad_n_center = pad & mystring & pad
end function

As mentioned before if the msgbox still doesn't look good you can use textbox shape object (or other objects) to get the desired effect.

@Marcucciboy2 Padding the right could keep the box at max width — Mark E., Mar 06 '21 at 20:52

score 0 · Answer 5 · answered Jun 27 '23 at 05:14

0

you probably can use a combinatrion vbtab and controlchars.CrLf in the message box.

answered Jun 27 '23 at 05:14

Serch

1

Please add more description to the answer on how to do this. Probably adding some images of successful attempt would help improving the answer. – Timmy Chan Jul 05 '23 at 03:46

Is there any way to align text in message box in vb or vba?

5 Answers5