Saltar al contenido

Insertar Foto

publicado

Buenas a todos.

Recientemente cambie a Office 2010 y algunas macros dejaron de funcionar o por lo menos ya no lo hacen como lo hacian cuando utilizaba Office 2003.

Una de varias macros es la siguinte:

Esta macro lo que me hacia es que al poner el nombre de la foto el la celda "G3" me insertaba la foto y me la ajustaba en el rango "S1:W10" lo cual ya no sucede y es por eso que recurro a ustedes en busca de su ayuda.

Quedo en espera de su valiosa ayuda.

Insertar foto.rar

Insertar foto.rar

Featured Replies

publicado

Así funciona, fíjate que he cambiado Me. por Sh.

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)

On Error Resume Next
'Control de errores


Sh.Shapes("La_Foto").Delete
'Borra la foto (si esta existiera antes) si no existe saltaria un error
'por eso el control


De_donde = "I:\Respaldo 28-09-2012\Fotos\" & [G3] & ".jpg" 'Aquí va la ruta donde


'están las imágenes
'En esta variable almacenas la ruta de la foto, el nombre viene dado en g3
' y la extension es jpg


'--------------------------------------------------------------------------
'Si el archivo no existe finaliza el programa
If Dir(De_donde) = "" Then Exit Sub

'Guardamos las dimensiones del rango
With Sh.Range("S1:W10")
Arriba = .Top
Izquierda = .Left
Ancho = .Offset(0, .Columns.Count).Left - .Left
Alto = .Offset(.Rows.Count, 0).Top - .Top
End With


'Creamos la imagen
Sh.Pictures.Insert(De_donde).Select
With Selection
.Name = "La_Foto"
.LockAspectRatio = False
.Top = Arriba
.Left = Izquierda
.Width = Ancho
.Height = Alto
End With
End Sub


[/code]
publicado
  • Autor

Muchas gracias maestro Macro Antonio.

Como siempre al rescate de los mortales como yo. Tengo una sola cosa que comentar.

Ya me funciona "Correctamente" solo que al incertar la foto me la inserta y no me respeta el rango donde quiero que me la inserte. Me gustaria mucho que la insertara dentro del recuadro que tengo en la hoja de excel. rango (S1:W10). La foto se extiende hasta la columna "X". Si me gustaria que quedara dentro del recuadro.

Gracias y quedo en ayuda de su respuesta.

publicado

Lo siento, pero por mas que lo he intentado, no lo he conseguido.

O se me va de ancho, o se me va de alto. Algo hacemos mal, pero no lo veo.

A ver si alguien con "sangre" nueva nos echa una mano.

publicado
  • Autor

Tambien yo lo he intentado, incluso con la grabadora de macros y nada.

A ver si alguien nos puede ayudar.

publicado
  • Autor

Buenas maestro Macro Antonio.

He estado intentando y nada, lo unico que se ocurrio es insertar un Rectangulo o un label con el mismo nombre para todas las hojas e insertar ahi la foto pero eso no me ha salido, incluso e utilizado la grabadora de macros y nada. Ojala y puedas ayudarme con esta idea.

Quedo en espera de tu ayuda.

publicado

Removiendo los "cajones" he encontrado esto.

Coloca la ruta completa de una imagen en A1.

Selecciona el rango donde quieras la imagen y pulsa sobre el icono.

La imagen debe aparecer enmarcada en el rango seleccionado con las dimensiones de dicho rango.

Imagen con marco.xls

Imagen con marco.xls

  • 1 month later...
publicado
  • Autor

Doy por cerrado el tema.

Gracias.

Archivado

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