Método Close
Cierra el globo no modal activo. Debe utilizar este método sólo en procedimientos de devolución de llamada.
expresión.Close
expresión Requerida. Expresión que devuelve un objeto Balloon.
Ejemplo
Este ejemplo muestra un globo que contiene un botón por cada tres impresoras. Siempre que el usuario haga clic en uno de esos tres botones, el procedimiento de devolución de llamada ProcessPrinter se ejecuta y el globo se cierra.
Sub selectPrinter()
Set bln = Assistant.NewBalloon
With bln
.Heading = "Select a Printer."
.Labels(1).Text = "Network Printer"
.Labels(2).Text = "Local Printer"
.Labels(3).Text = "Local Color Printer"
.BalloonType = msoBalloonTypeButtons
.Mode = msoModeModeless
.Callback = "ProcessPrinter"
.Show
End With
End Sub
Sub ProcessPrinter(bln As Balloon, lbtn As Long, _
lPriv As Long)
Assistant.Animation = msoAnimationPrinting
Select Case lbtn
Case -1
' Insert network printer-specific code.
Case -2
' Insert local printer-specific code.
Case -3
' Insert color printer-specific code.
End Select
bln.Close
End Sub