Saltar al contenido

Una macro en Excel para insertar imagenes centradas a la celda

publicado

Hola , por favor quisiera que me den una macro que inserte imagenes, pero que las imagenes salgan centradas, tanto de izquierda a derecha como de arriba a abajo, y que el tamaaño de la imagen no cambie

Featured Replies

publicado

Prueba con esto:

Sub ejemplo()
ChDir "C:\Archivo\fotos\" ' Ruta en donde estan las fotos
archivo = "foto1.jpg" Nombre de la imagen
Range("B5").ColumnWidth = 27.43 ' Donde se pegara la foto y le ponemos los parametros
Range("B5").RowHeight = 114
tope = Range("B5").Top + 10
izq = Range("B5").Left + 10
ActiveSheet.Pictures.Insert(archivo).Select
Selection.ShapeRange.Top = tope
Selection.ShapeRange.Left = izq
Selection.ShapeRange.Width = 127
End Sub
[/CODE]

Saludos

publicado
  • Autor

he probado con este ejemplo y la imagen me aparece mucho mas grande de lo que en realidad es y no me aparece centrada :(

Archivado

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