Excel - Ayuda en macros

 
Vista:

Ayuda en macros

Publicado por Iván Avila (3 intervenciones) el 31/08/2007 22:26:55
Tengo algunas dudas a ver si me puden ayudar a resolverlas...se puede realizar un formulario q al momento de realizar una busqueda, al solicitar algo me devuelva una imagen es decir, si busco por ejemplo una persona Joé Pérez, me devuelva su foto y algunos datos? Si es así, como se hace? Y la otra, como puedo realizar una agenda que me emita sonidos usando macros de excel, como una alarma q me informe q tengo una actividad pendiente al momento de prender la computadora, y durante el tiempo q este prendida, es posible? Les agradecería la mayor ayuda q puedan darme.
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:Ayuda en macros

Publicado por José Luis (700 intervenciones) el 31/08/2007 23:45:46
Por formularios no sé pero sí se puede hacer en una hoja de excel.

Esta macro, situada en el módulo de la hoja donde se elige el nombre (celda F15), al cambiar el dato de la celda F15, se visualiza la foto correspondiente (nombre en F15 + extensión ".jpg"). Las fotos están situadas en el mismo directorio donde esté situada la aplicación/libro

La macro no es mía, es de un compañero del foro al que ayudé con otro problema

Private Sub Worksheet_Change(ByVal Target As Range)
Dim Foto As Object
Dim Arriba As Double, Izquierda As Double, Ancho As Double, Alto As Double
Dim ruta As String
'
Application.ScreenUpdating = False
On Error Resume Next
If Not Target = [f15] Then Exit Sub
Me.Shapes("Foto").Delete
ruta = ThisWorkbook.Path & "\" & [f15] & ".jpg"
Set Foto = Me.Pictures.Insert(ruta)
With Range("g2:h5")
Arriba = .Top
Izquierda = .Left
Ancho = .Offset(0, .Columns.Count).Left - .Left
Alto = .Offset(.Rows.Count, 0).Top - .Top
End With
With Foto
.Name = "Foto"
.Top = Arriba
.Left = Izquierda
.Width = Ancho
.Height = Alto
End With
Set Foto = Nothing
Application.ScreenUpdating = True
End Sub

'--------------------------

Para lo de la agenda, creo que es mejor no complicarse la vida y usar la de Outlook.
Saludos
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar