add a .jpg to msg box

P

pswanie

the following is the code i got at the moment.

how do i (if possible) add a .jpg?

c:/pswanie/pic.jpg

Dim Msg, Style, Title, Help, Ctxt, Response, MyString
Msg = "Do u want to print the inventory?" ' Define message.
Style = vbOKCancel ' Define buttons.
Title = "pswanie t/a janphi" ' Define title.
Help = "DEMO.HLP" ' Define Help file.
Ctxt = 1000 ' Define topic
' context.
' Display message.
Response = MsgBox(Msg, Style, Title)
If Response = vbOKCancel Then ' User chose Yes.

Application.Run "INVENTRY.xls!newdayclear.newdayclear"

Else ' User chose No.


ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
Application.MoveAfterReturnDirection = xlDown
Sheets("data").Select
Range("A111").Select


End If
 
P

Pflugs

I don't know for sure, but I don't think this is possible with a standard
msgbox. Consider using a custom userform. Within the UserForm toolbok is an
"Image" control. Add one to your userform, size and name it, and define the
picture using the Properties Explorer and Picture Porperty.

Hth,
Pflugs
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Top