Create Message-Box with VBA and Visio
Hi everyone,
I have tried to find a Keyword to create a Message-window or something like that in Visio, but I did′t find anything.
I just need to create a small window with a Message on it.
Please tell me how to do :)
Thanks
VBA code for messagebox:
Dim Msg, Style, Title, Help, Ctxt, Response, MyStringMsg = "Do you want to continue ?" ' Define message.
Style = vbYesNo + vbCritical + vbDefaultButton2 ' Define buttons.
Title = "MsgBox Demonstration" ' Define title.
Help = "DEMO.HLP" ' Define Help file.
Ctxt = 1000 ' Define topic
' context.
' Display message.
Response = MsgBox(Msg, Style, Title, Help, Ctxt)
If Response = vbYes Then ' User chose Yes.
MyString = "Yes" ' Perform some action.
Else ' User chose No.
MyString = "No" ' Perform some action.
End If