Insertar Foto

exskizzo · el 17 de octubre

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

Antoni · el 17 de octubre

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]

exskizzo · el 17 de octubre

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.

Antoni · el 17 de octubre

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.

exskizzo · el 17 de octubre

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

A ver si alguien nos puede ayudar.

exskizzo · el 18 de octubre

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.