Insertar imágenes un varios objetos desde un botón

¿Y quieres una imagen diferente para cada objeto?

¿Y cómo se va a identificar la imagen que le corresponde a cada objeto?

Con la siguiente macro, se puede ir seleccionado una a una las imágenes que tienes en la hoja.

Pruébala y me comentas qué le falta para completar lo que necesitas.

Sub imagenes()
For Each imagen In Worksheets("Hoja1").Shapes
MsgBox imagen.Name
    Select Case Left(imagen.Name, 4)
        Case "Auto"
        Case Else
            imagen.Select
    End Select
Next
End Sub

Con esta instrucción, sirve para que no seleccione las imágenes que no quieres, sólo tienes que poner las 4 primeras letras del nombre de la image.

Select Case Left(imagen.Name, 4)
Case "Auto"

Primeramente deseo pedirte una disculpa por haberme demorado tanto en responder a la solución que tan gentilmente me has dado, he tenido algunos contratiempos y por ello me disculpo.

Hola Experto, la verdad no entendí muy bien tu respuesta porque no se como integrar la macro a la mia o como es que funciona por separado, ya que para probarla la aplique a un objeto y lo único que hace es mostrar un MsgBox nombrando los objetos que tengo en mi hoja, pero sin efecto alguno.

En respuesta a las preguntas que me hiciste, lo siguiente:

Y quieres una imagen diferente para cada objeto?

Y cómo se va a identificar la imagen que le corresponde a cada objeto?

Bueno, realmente la imagen es la misma en todas las etiquetas, pero quiero que haya una etiqueta en específico (Digamos que una Etiqueta base) que al seleccionarla esta me habrá el explorador de archivos para poder buscar o seleccionar la imagen deseada y esta a la vez se replique o copie en las demás etiquetas (objetos).

Pensé en un objeto porque en éste, la imagen se puede ajustar automáticamente y creo esto sería más práctico.

En la macro que le envíe pude lograr sin problema abrir el explorador en mis imágenes al seleccionar un objeto (etiqueta), no obstante lo que no he podido lograr es replicar esta imagen en los demás objetos.

Pensé en asignarle un nombre a cada objeto (les llame "LOGO1, LOGO2, LOGO3... LOGO8"), pero no tengo idea de que macro o código pueda copiar o replicar la imagen de mi objeto (Etiqueta base) a los demás objetos (LOGO1, LOGO2... LOGO8).

Esta es la macro integrada, lo que haces es poner la imagen en todos tus objetos de la hoja.

Sub pone_imagen()
Dim ruta As String
ruta = Application.GetOpenFilename
On Error Resume Next
For Each imagen In Worksheets("Hoja1").Shapes
    Select Case imagen.Name
        Case "Auto"
        Case Else
            imagen.Select
            With Selection.ShapeRange.Fill
                .Visible = msoTrue
                .UserPicture ruta
                .TextureTile = msoFalse
            End With
    End Select
Next
End Sub

Prueba y me comentas, si no funciona revisamos otras opciones

Saludos. Dam
Si es lo que necesitas.