add a .jpg to msg box
 

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

add a .jpg to msg box
 

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

"pswanie" wrote:

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