Gruppe
Extern
Problem
Wie kann ich in XL8 den Office-Assistenten ansprechen und einsetzen?
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