Office Assistenten - Introduktion

Office-assistenten
introduktion

Här i detta tips demonstreras en rad egenskaper hos objektet, vilka vi kan använda oss av för skilda ändamål.

Se också Office-assistenten del 1

Så här ser det färdiga resultatet ut efter att nedanstående procedur har körts, förutsatt att assistenten är aktiverad och synlig:

Option Explicit

Sub Visa_Anpassad_Office_Assistent()
'© 2001 Alla rättigheter XL-Dennis
Dim obAssistent As Office.Balloon
Dim stHeading As String, stOK As String
Dim stText1 As String, stText2 As String
Dim stCheckbox As String

Set obAssistent = Assistant.NewBalloon
stHeading = "Visa anpassad office-assistent"
stOK = "Klicka på OK-knappen för att stänga fönstret."
stText1 = "Det finns några alternativ att välja på."
stText2 = "Även checkboxar kan användas."
stCheckbox = "Som kan ge ytterligare information."

'Så här kan vi försäkra oss om att assistenten alltid
'finns tillgänglig:
'With Assistant
'    .On = True
'    .Visible = True
'End With

'Här kontrolleras att assistenten är aktiverad och
'synlig.
If Assistant.On And Assistant.Visible Then
        With obAssistent
           .Icon = msoIconAlertInfo
           .Heading = stHeading
           .Text = stOK
           .Labels(1).Text = stText1
           .Labels(2).Text = stText2
           .CheckBoxes(1).Text = stCheckbox
           .BalloonType = msoBalloonTypeButtons
           'Åtgärd krävs för att kunna återgå till arbetsblad
           .Mode = msoModeModal
           .Button = msoButtonSetOK
           .Show
        End With
Else
'Om inte så tillgänglig visas istället följande meddelande.
        MsgBox Prompt:="Office-assistenten ej tillgänglig.", _
        Buttons:=vbOKOnly, Title:=stHeading
End If

'Om vi vill dölja assistenten t ex vid stängning av en
'arbetsbok används följande kod.
'With Assistant
'    .On = False
'    .Visible = False
'End With
End Sub

Office-assistenten introduktion

Office-assistenten
introduktion