Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

Office-Assistenten ansprechen

Gruppe

Assistent

Problem

Wie kann ich in XL8 den Office-Assistenten ansprechen und einsetzen?

Lösung
Geben Sie den nachfolgenden Code in ein Standardmodul ein und weisen Sie ihn einer Schaltfläche zu.

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