Una macro en Excel para insertar imagenes centradas a la celda

[lui-paleo]

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

[shahuinto]

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

[lui-paleo]

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

[shahuinto]

Hola, te envio un modelito, si deseas modificarlo, me avisas para ir dandole forma.

Imagen.rar

Imagen.rar