Cargar una imagen con LoadPicture macros en userform

En este pequeño artículo les comparto un código muy útil a través de el se puede observar como cargar una imagen en userfom. Para lograr el objetivo debemos realizar lo siguiente:

1.-Ingresar al editor VBA Alt+F11.
2.-Diseñar un formulario como se muestra:

Cargar imagen con LoadPicture

3.-Escribir el siguiente código:

Private Sub UserForm_Initialize()

Me.TextBox1.Text = "C:\Users\Dell\Pictures\blog\img\Desert.jpg"

End Sub

Private Sub CommandButton1_Click()

'Carga la imagen

Me.Image1.Picture = LoadPicture(Me.TextBox1.Text)

'Muestra la imagen a su tamaño original

'Me.Image1.PictureSizeMode = fmPictureSizeModeClip

'Adapta la imagen al tamaño del control Image1

'Me.Image1.PictureSizeMode = fmPictureSizeModeStretch

'Adapta la imagen original a modo tamaño real pequeño

Me.Image1.PictureSizeMode = fmPictureSizeModeZoom

End Sub

Private Sub CommandButton2_Click()

 With Application.FileDialog(msoFileDialogFilePicker)

        .AllowMultiSelect = False

        .ButtonName = "Mostrar"

        .Title = "Selecciona la imagen"

        .Filters.Add "Imágenes", "*.gif; *.jpg; *.jpeg, 1"

        If .Show = -1 Then

            Me.Image1.PictureSizeMode = fmPictureSizeModeZoom

            'Carga la imagen seleccionada

            Me.Image1.Picture = LoadPicture(.SelectedItems(1))

            'Obtenemos la ruta del archivo

            Me.TextBox1.Text = .SelectedItems(1)

            'Obtenemos el nombre de la carpeta

            Me.TextBox2.Text = .InitialFileName

        End If

    End With

End Sub

4.-Ejecutamos el formulario F5.
5.-Presionamos el botón Mostrar imagen. (Deberán modificar la ruta en el código). en automático cargará la imagen.
6.-Presionar el botón Examinar.
7.-Seleccionar la imagen y dar clic en el botón Mostrar.

FileDialog(msoFileDialogFilePicker)

Aquí podrás ver que carga la imagen seleccionada.

Carga la imagen, ruta y directorio