Foro Excel

Hola amigos tengo esta macro (sirve y podria serle de utilidad):

Sub InsertarFoto()

Dim lgl As Long, lgt As Long, lgw As Long, lgh As Long
Dim Mem As Range

On Error Resume Next

Set Mem = ActiveCell

With ActiveSheet.DrawingObjects("LG")
lgl = .Left
lgt = .Top
lgw = .Width
lgh = .Height
End With

If Application.Dialogs(xlDialogInsertPicture).Show Then

ActiveSheet.DrawingObjects("LG").Delete

With Selection
.Left = lgl
.Top = lgt
.Width = lgw
.Height = lgh
.Width = lgw
.Name = "LG"
End With

Mem.Select
End If

End Sub
Sub RestablecerFoto()
Dim lgl As Long, lgt As Long, lgw As Long, lgh As Long

On Error Resume Next
With ActiveSheet.DrawingObjects("LG")
lgl = .Left
lgt = .Top
lgw = .Width
lgh = .Height
End With

ActiveSheet.DrawingObjects("LG").Delete
ActiveSheet.Shapes.AddShape(msoShapeRectangle, 399#, 126.75, 89.25, 95.25). _
Select
With Selection.ShapeRange
.Shadow.Type = msoShadow18
.Fill.ForeColor.SchemeColor = 58
.Fill.Visible = msoTrue
.Fill.Solid
End With
With Selection
.Left = lgl
.Top = lgt
.Width = lgw
.Height = lgh
.Width = lgw
.Name = "LG"
End With
Range("D7").Select

End Sub


En el arhivo que les adjunto en lo que quisiera q me den una mano es q esta macro se pueda utilizar independientemente en cada cuadro que dice FOTO, hay 23 de ellos, la idea es q se pueda usar esta macro para colocar distintas fotos de los trabajadores y a la vez sacarla cuendo sea necesario, estas dos macros hacen eso inserta y saca la foto, espero su ayuda y comentarios de antemano gracias

Amigos es muy dificil? sorry de todas formas y gracias a los q me ayudaron con otras consultas sobre todo la de poner grafico en un msgbox suerte a todos

algunas ideas:

http://www.exceluciones.com/portal/viewtopic.php?p=22253#22253

http://www.exceluciones.com/portal/viewtopic.php?p=22468#22468

estas son algunos aportes mios pero existen varios ejemplos,que no tienen macros,es cuestion de buscar un poquito

Muy amable ST gracias, suerte

amigo yo encontre el codigo y lo pude hacer mediante una funcion API ,...ENVIAME TU CORREO POR ESTA MISMA VIA Y TE ENVIO EL ARCHIVO QUE CREA ANIMACIONES EN MSGBOX Y LOS INPUTBOX.....

SUERTE

SALUDOS

BOGOTA COLOMBIA

¿?

Carlos:

te invitamos a que compartas tus ideas,conocimientos y experiencia con todos los miembros del foro (subiendo tu archivo de ejemplo)

Carlos muy amable mi correo es ldpc4@yahoo.com puedes mandarlo aca muchas gracias y seria mucho mejor si lo pones en el foro de todas formas espero tu archivo me ayudaria de mucho saludos y gracias

Mientra una sin macros
http://www.exceluciones.com/portal/viewtopic.php?t=6548&highlight=

y seguimos esperando que Carlos "Socialice" su informacion

Carlos no me ha llegado nada a mi correo espero me puedas mandar el archivo para ponerlo luego en el foro para saber como lo hiciste saludos