Anónimo
Macro de ajuste de tamaño y posición de una foto en Excel
Tengo que crear varias fichas de vehículos en excel de los cuales tengo que poner unos datos técnicos y a parte un par de fotos por vehículo.
Tengo un formato prefijado en el que ya hay dos grandes celdas destinadas a ubicar cada una de las fotos. Lo único es que cada vez que inserto una foto tengo que ajustar el tamaño y centrar la imágen dentro de la celda.
Actualmente uso una mini-macro para insertar la foto de una forma más cómoda pero me faltaría que la macro cogiera esa foto insertada le diera un tamaño y lo centrara en las dos celdas
Las celdas de destino son la B7 y B19 aunque como vereis tengo varas celdas combinadas para poder hacer un "marco" de las fotos.
Al darle un tamaño de 5,3 cm de alto y 9,79 de ancho me queda perfecto.
Por tanto me gustaría acabar la macro haciendo el ajuste de las fotos cuando se abran para dichas celdas
Mi "macro" actual es:
Application.DisplayAlerts = False
foto = Application.GetOpenFilename
ActiveSheet.Pictures.Insert(foto).Select
2 Respuestas
H o l a:
Te anexo la macro para poner la imagen en la celda B7 y las celdas combinadas.
Sub InsertarFoto()
'Por.Dante Amor
Set celda = Range("B7")
On Error Resume Next
With ActiveSheet.Pictures.Insert(Application.GetOpenFilename)
.ShapeRange.LockAspectRatio = msoFalse
.Top = celda.Top
.Left = celda.Left
.Width = IIf(celda.MergeCells, celda.MergeArea.Width, celda.Width)
.Height = IIf(celda.MergeCells, celda.MergeArea.Height, celda.Height)
End With
End Sub[code]‘ : )
‘Saludos. Dante Amor. Recuerda valorar la respuesta.
Te paso unos ejemplos
http://www.programarexcel.com/2015/02/insertar-foto-o-imagen-centrando.html
http://www.programarexcel.com/2014/05/inserta-imagen-en-comentario-de-excel.html
http://www.programarexcel.com/2013/03/macro-inserta-imagenes-en-excel.html
http://www.programarexcel.com/2014/01/macro-abre-explorador-archivos-inserta.html
http://www.programarexcel.com/2015/02/recorre-filas-inserta-fotos-y-las-ubica.html