Incluír foto en carnets....

Hola, que tal?
Toma modifica este código según tus necesidades.
Un saludo,
jose

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Target.Address = "$A$1" Then Exit Sub
Dim De_donde As String, Foto As Object, _
Arriba As Double, Izquierda As Double, Ancho As Double, Alto
As Double
Application.ScreenUpdating = False
On Error Resume Next
Me.Shapes("La_Foto").Delete
De_donde = "C:\" & [a1] & ".bmp" 'Aquí va la ruta donde están las
imágenes
If Dir(De_donde) = "" Then Exit Sub
Set Foto = Me.Pictures.Insert(De_donde)
With Me.Range("f1:h21")
Arriba = .Top
Izquierda = .Left
Ancho = .Offset(0, .Columns.Count).Left - .Left
Alto = .Offset(.Rows.Count, 0).Top - .Top
End With
With Foto
.Name = "La_Foto"
.Top = Arriba
.Left = Izquierda
.Width = Ancho
.Height = Alto
End With
Set Foto = Nothing
End Sub

Has captado la idea José... No pudo invertir en software por el momento... En
cuanto al archivo, es una nómina con número de funcionario nombres apellidos,
etc.
En una hoja aparte, buscando por el número de func. "traigo" todos los datos
que necesito imprimir en el carné (diseñado también en excel). Lo que no
logro es "traer la foto"... que está en otra carpeta.
Muchas gracias, abrazo!
Tulio MONTEVIDEO-URUGUAY

"~ jose ~" escribió:



> Hola,
> > en ésta oportunidad necesito resolverlo en excel,
> el programa está en Excel,
> De todas formas si no quieres comprarlo y tu el tuyo lo tienes
> terminado a falta de esto que pides si quieres me mandas el archivo y
> te lo termino.

> Un saludo.
> > Tulio MONTEVIDEO-URUGUAY

> > "~ jose ~" escribió:

> > > Hola, si te interesa un programa ya hecho puedes visitar:
> > >http://www.carpinjose.com/misprogra...empleados/

> > > Saludos,
> > > jose

> > > > Hola todos:
> > > > tengo un archivo del personal en cuya hoja 1 he creado un carnet. Solo
> > > > ingreso el número de funcionario y con búsquedas varias, obtengo los datos a
> > > > imprimir. Quisiera incluír automáticamente la foto del funcionario (que
> > > > obviamente tengo en una carpeta en formato jpeg. Se puede hacer ??
> > > > Gracias, Saludos desde Montevideo-Uruguay- Ocultar texto de la cita -

> > - Mostrar texto de la cita -- Ocultar texto de la cita -

- Mostrar texto de la cita -