Insertar nombre de imagen en celda

[camiluchis]

verán, estoy haciendo un programa en el cual debo insertar una imagen (algo así como una base de datos) y lo que quisiera hacer y no me sale es que en otra celda me ponga el nombre de la imagen seleccionada.

adjunto un ejemplo del archivo que estoy haciendo a ver si alguien me puede ayudar.

desde ya muchas gracias!

ejemplo.rar

[obed_cruz]

Hola camiluchis,

Agregué un par de líneas a tu código, para insertar el nombre de la imagen.

Private Sub CommandButton1_Click()
 Hoja1.Pictures.Insert(sFileName).Select
   With Selection.ShapeRange
     .LockAspectRatio = False        'Permite modificar la imagen
     .Top = Range("A2").Top          'Distancia al borde superior
     .Left = Range("A2").Left        'Distancia al borde izquierdo
     .Height = Range("A2:A5").Height 'Alto de la imagen
     .Width = Range("A2:A5").Width   'Ancho de la imagen
   End With

   'Inserta nombre de imagen
   objPicName = CreateObject("Scripting.FileSystemObject").GetBaseName(sFileName)
   Range("B2") = objPicName

End Sub[/PHP]