Importing pictures from file

HI
I'm trying to create a geography project for my upcoming primary class but my Excel expertise is limited.
I am trying to import small jpg's from a folder and then make them appear in a userform or Msgbox. Is it possible?

So far I've created a very simple way to display the text in a message box but I would also like to be able to display the flag. Macros 2 & 3 are initiated by clicking on images while macro1 displays the information:

Sub Macro2()
Range("a1")="France"
Run "Macro1"
End Sub
----------------------
Sub Macro3()
Range("a1")="England"
Run "Macro1"
End Sub
----------------------
Sub Macro1()
MsgBox("Welcome to "+Range("a1"))
End Sub
----------------------

If it makes it easier, the name of the image matches the text in cell A1. eg The flag for France is in 'C:\Users\Pictures\Flags\France', the flag for England is in 'C:\Users\Pictures\Flags\England', etc

I would be grateful for any much needed help

You can't put a picture in a msgbox -- you'd have to use an image control on a form. Then I think you'd have problems because the aspect of the image control is fixed at design time, but the aspect of flags vary.

You could put it on the sheet:

Sub x()
    Const sPath As String = "'C:\Users\Pictures\Flags\"
    
    With ActiveSheet.Pictures.Insert(sPath & Range("A1").Text)
        .Top = Range("B1").Top
        .Left = Range("B1").Left
    End With
End Sub

Hello Kenny07,

Welcome to the Forum!

The attached workbook will display the flag of the country entered into cell "A1" on "Sheet1". The file is loaded from the folder you gave using the country name in "A1" and adding the ".jpg" extension. This happens every time the contents of cell "A1" change. A VBA UserForm is used to display the welcome message and the country flag. Here is the associated code...

UserForm Code

Private Sub CommandButton1_Click()
 'OK
  Unload Me
End Sub

Private Sub UserForm_Activate()

  Dim PicPath As String
    
    On Error Resume Next
      Me.Caption = "Welome to " & Range("A1") & "!"
      PicPath = "'C:\Users\Pictures\Flags\"
      PicPath = PicPath & Range("A1") & ".jpg"
      Image1.Picture = LoadPicture(PicPath)
    
End Sub

Sheet1 Code

Private Sub Worksheet_Change(ByVal Target As Range)
  UserForm1.Show
End Sub