Thema: Office-Assistenten ansprechen

StandardModule: basMain

Sub Billyboy()
   Dim oBln As Balloon
   On Error GoTo ERRORHANDLER
   Set oBln = Assistant.NewBalloon
   With oBln
      .BalloonType = msoBalloonTypeBullets
      .Mode = msoModeModal
      .Button = msoButtonSetOK
      .Icon = msoIconNone
      .Labels(1).Text = "Die deutschsprachige " & _
         "Microsoft-Knowledge-Base ..."
      .Show
      .Labels(1).Text = "... hat so einen liebenswerten " & _
         "Touch ins Amateurhafte - ..."
      .Show
      .Labels(1).Text = "... es ist schön zu wissen, " & _
         "daß es in unserer harten Welt ..."
      .Show
      .Labels(1).Text = "... doch noch Nischen für solche " & _
         "Exceler gibt ..."
      .Show
      .Icon = msoIconAlert
      Beep
      .Labels(1).Text = "... Billyboy, mach weiter so!"
      .Show
   End With
   Exit Sub
ERRORHANDLER:
   MsgBox "Der Assistent ist nicht installiert!"
End Sub

Beiträge aus dem Excel-Forum zu den Themen Extern und Assistent