Boa noite!!

Quando você diz "inserir" significa, uma única imagem dentro do fórm ou de acordo com as imagens que você encontra na WEB?

Você pode usar um navegador web em um userform e então usar este código:

Me.WebBrowser1.Navigate2 "[COLOR=#FF0000][B]Aqui ponha o URL[/B][/COLOR]" 

Leia também:
http://www.mrexcel.com/archive/Controls/23430.html

Tente adaptar..

Private Sub CommandButton2_Click()
    Dim myVar As Shapes
    Dim shp As Shape
    Dim ShapeName As String
    Dim Pict As String
    Dim ImgFileFormat As String
    Shape_Name_Delete
    ImgFileFormat = _
    "Image Files (*.bmp;*.gif;*.tif;*.jpg),*bmp;*gif;*.tif;*.jpg"
GetPict:
    Pict = Application.GetOpenFilename(ImgFileFormat)
     
    If Pict = "False" Then End
    Set myDocument = Worksheets("Logo")
    myDocument.Shapes.AddPicture _
    Pict, _
    True, True, 1, 1, 150, 150
    Set myVar = Sheets("Logo").Shapes
    For Each shp In myVar
        ShapeName = shp.Name
    Next
     
    If ShapeName = "" Then
        MsgBox ("Error Loading Picture")
        Exit Sub
    Else

        Image1.Picture = _
        LoadPicture(Pict)
        ActiveSheet.Shapes(ShapeName).CopyPicture xlScreen, xlBitmap
        Image1.Picture = PastePicture(xlBitmap)
    End If
End Sub
 
Sub Shape_Name_Delete()
    Dim myVar As Shapes
    Dim shp As Shape
    Dim ShapeName As String
    Set myVar = Sheets("Logo").Shapes
    For Each shp In myVar
        ShapeName = shp.Name
         
        ActiveSheet.Shapes(ShapeName).Select
        Selection.Delete
    Next
End Sub
 
Private Sub UserForm_Initialize()
     
    Sheets("Logo").Select
     
    Set myVar = Sheets("Logo").Shapes
    For Each shp In myVar
        ShapeName = shp.Name
    Next
    If ShapeName = "" Then Exit Sub
    ActiveSheet.Shapes(ShapeName).CopyPicture xlScreen, xlBitmap
    Image1.Picture = PastePicture(xlBitmap)
End Sub

Att

Cara, deu muito certo. Obrigado pela ajuda. Abços

Bom dia!!

Obrigado pelo retorno!
Eu fico feliz por ter ajudado!!

Até a próxima!!

Att