Saltar al contenido

Insertar nombre de imagen en celda

publicado

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

Featured Replies

publicado

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]

Archivado

Este tema está ahora archivado y está cerrado a más respuestas.