Forums Últimos mensajes - Powered by IBM
 

Programar agentes

10/11/2005 - 17:21 por Hernandez, Roberto | Informe spam
Saludos.
Tengo entendido que se pueden programar los Ayudantes de Office para
modificar su comportamiento, etc.
Cómo puedo hacerlo?
Pueden programarse en VBA?
Alguien podría compartir sus experiencias al respecto?
 

Leer las respuestas

#1 Héctor Miguel
11/11/2005 - 02:12 | Informe spam
hola, Roberto !

Tengo entendido que se pueden programar los Ayudantes de Office para modificar su comportamiento, etc.
Como puedo hacerlo?
Pueden programarse en VBA?
Alguien podria compartir sus experiencias al respecto?



'tanto asi'... como 'modificar su comportamiento' ??? [honestamente] no lo he 'probado/intentado/...' :D
pero de que puedes utilizarlos por vba... SIP ;)
[p.e. para sustituir a los msgboxes, inputboxes, y 'cosas similares']

prueba con lineas como las siguientes...

saludos,
hector.

en un modulo de codigo 'norma' ==Sub MensajePorAsistente()
With Assistant.NewBalloon
.Heading = "Mira..."
.Text = "Así es como destruyo lo que me 'estorba'." & vbCr & "Estás de acuerdo?"
.Button = msoButtonSetYesNo
.BalloonType = msoBalloonTypeButtons
.Mode = msoModeModal
.Animation = msoAnimationEmptyTrash
.Show
End With
End Sub
Sub AsistenteALaOrden()
Dim Asistente As Balloon, Opcion As Integer
Set Asistente = Assistant.NewBalloon
With Asistente
.BalloonType = msoBalloonTypeButtons
.Animation = msoAnimationGetWizardy
.Mode = msoModeAutoDown
.Heading = "Título"
.Text = "Mensaje "
.Labels(1).Text = "Boton1"
.Labels(2).Text = "Boton2"
Opcion = .Show
End With
Select Case Opcion
Case -1
MsgBox "Sin opcion seleccionada"
Case 1
MsgBox "Hola, escogiste " & Asistente.Labels(1).Text
Case 2
MsgBox Application.UserName & vbCr & "Escogiste " & Asistente.Labels(2).Text
End Select
End Sub

Preguntas similares