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
>
|
