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   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