: Xl2000 eine benutzerdefinierte Office-Assistenten-Sprechblase anzeigen

Sie können Anpassen der Office-Assistent Meldungen in Sprechblasen mit Schaltflächen, Kontrollkästchen, die Sie angeben oder anzeigen. Am unteren des Office-Assistenten können Sie verschiedene Typen von Schaltflächen, wie z. B. anzeigen: OK , Abbrechen , Wiederholen und usw..

Microsoft bietet Programmierbeispiele für Abbildung nur ohne Gewährleistung oder konkludent, einschließlich, aber nicht beschränkt auf konkludenten Garantien der Handelsüblichkeit und/oder Eignung für einen bestimmten Zweck. Die zur Verfügung gestellten Makro- und Programmierungsbeispiele sollen lediglich exemplarisch die Funktionsweise des Beispiels aufzeigen. Spezialisten von Microsoft Support Services können bei Erläuterung die Funktionalität einer bestimmten Prozedur helfen, Sie werden ändert jedoch nicht Beispielen bieten Funktionen hinzugefügt oder Verfahren, um Ihren speziellen Anforderungen erstellen.
Wenn Sie Programmiererfahrung, beschränkt haben, sollten Sie ein Microsoft Certified Partner oder die Microsoft Advisory Services wenden. Weitere Informationen finden Sie auf diese Websites von Microsoft:

Microsoft Certified Partner - https://partner.microsoft.com/global/30000104

Microsoft-Sicherheitsempfehlung Services - http://support.microsoft.com/gp/advisoryservice

Weitere Informationen zu den Supportoptionen, die verfügbar sind und wie Sie Microsoft kontaktieren besuchen Sie in der folgenden Website: http://support.microsoft.com/default.aspx?scid=fh;EN-US;CNTACTMSEine benutzerdefinierte Meldung Sprechblase für den Office-Assistenten erstellen möchten, öffnen Sie ein Visual Basic-Modul und erstellen Sie ein Makro für den Typ der Sprechblase werden soll. Die folgenden Beispiele sind der am häufigsten verwendeten benutzerdefinierten Sprechblase Typen:

Schritt 1: Erstellen von Visual Basic-Modul

1. Öffnen Sie eine neue Arbeitsmappe.
2. Drücken Sie die Tastenkombination [ALT]+[F11], um den Visual Basic-Editor zu starten.
3. Klicken Sie im Menü Einfügen auf Modul .

Schritt 2: Erstellen einer Sprechblase

Beispiel 1: Erstellen einer einfachen Balloon

1. Geben Sie den folgenden Code in das Modul:

   Sub Simple_Balloon()
   
       ' Create the balloon object.
       Set myballoon= Assistant.NewBalloon
   
       With myballoon
   
           .Heading = "My Balloon"
           .Text = "Click OK to close the balloon"
           .Show
       End With
   
   End Sub
   					

2. Führen Sie das Makro Simple_Balloon. Office-Assistenten wird eine Sprechblase mit Überschrift "Meine Balloon" in fett und eine Meldung, in dem Sie auf OK klicken, aufgefordert werden.
   
   
3. Klicken Sie auf OK . Die Sprechblase wird ausgeblendet.

Beispiel 2: Erstellen einer Sprechblase mit einer Nummerierung

1. Geben Sie den folgenden Code in das Modul:

   Sub List_Balloon()
   
       ' Create the balloon object.
       Set myballoon= Assistant.NewBalloon
   
       With myballoon
   
           .Heading = "My Balloon"
           .Text = "Click OK to close the balloon."
   
           ' Text for the list items:
           .Labels(1).Text = "Click Save on the File menu to save " _
               & "the file."
           .Labels(2).Text = "Click Print on the File menu to " _
               & "print the file."
   
           ' Create a numbered list.
           .BalloonType = msoBalloonTypeNumbers
   
           ' Display the balloon.
           .Show
       End With
   
   End Sub
   					

2. Führen Sie das Makro List_Balloon. Office-Assistenten wird eine Sprechblase mit einer Zahl Liste.
   
   
3. Klicken Sie auf OK , um die Sprechblase schließen.

Beispiel 3: Erstellen einer Sprechblase mit Kontrollkästchen

1. Geben Sie den folgenden Code in das Modul:

   Sub Balloon_Checkboxes()
   
       ' Create balloon object.
       Set myballoon = Assistant.NewBalloon
   
       With myballoon
           .Heading = "Regional Sales Data"
           .Text = "Select your region"
   
           ' Place OK and Cancel buttons at bottom of the balloon.
           .Button = msoButtonSetOkCancel
   
           For i = 1 To 3
               .CheckBoxes(i).Text = "Region " & i
           Next
   
           ' Display the balloon and assign it to x.
           x = .Show
   
           i = 0
           Select Case x
   
               Case -1 'You clicked OK.
   
                   ' Loop through check boxes on the balloon.
                   For Each y In .CheckBoxes
                       i = i + 1
   
                       If y.Checked Then
                           MsgBox "region " & i
                       End If
                   Next
   
               Case -2 ' You clicked Cancel.
   
                   MsgBox "You clicked Cancel."
           End Select
      End With
   End Sub
   					

2. Führen Sie das Makro Balloon_Checkboxes.
   
   Es wird eine Sprechblase mit drei Kontrollkästchen angezeigt.
3. Klicken Sie auf eine oder mehrere Kontrollkästchen, und klicken Sie dann auf OK .
   
   Nachrichten, die Ihrer Auswahl anzeigen angezeigt. Wenn Sie auf Abbrechen klicken, wird ein Meldungsfeld mit einer Meldung, die angibt, Abbrechen geklickt haben.

Beispiel 4: Erstellen mehrerer Sprechblasen

1. Geben Sie den folgenden Code in das Modul:

   Sub Balloon_Array()
   
       Dim myBalloonArray(2) As Balloon
   
       With Assistant
           For i = 1 To 2
               ' Create a new balloon object.
               Set myBalloonArray(i) = .NewBalloon
           Next
       End With
   
       With myBalloonArray(1)
           .Heading = "This is balloon #1."
           .Text = "Click OK to close the balloon."
   
           ' Display the first balloon.
           .Show
       End With
   
       With myBalloonArray(2)
           .Heading = "This is balloon #2."
           .Text = "Click OK to close the balloon."
   
           ' Display the second balloon.
           .Show
       End With
   
   End Sub
   					

2. Führen Sie das Makro Balloon_Array.
   
   Die erste Sprechblase angezeigt wird.
3. Klicken Sie in der Sprechblase auf OK .
   
   Die zweite Sprechblase angezeigt wird.
4. Klicken Sie in der Sprechblase auf OK .
   
   Die zweite Sprechblase wird geschlossen.

Schritt 3: Auswählen und Verwenden einer Sprechblase

1. Geben Sie den folgenden Code in das Modul:

   Sub Balloon_Options()
   
       ' Create a new balloon object.
       Set balloon1 = Assistant.NewBalloon
   
       With balloon1
           .Heading = "First Balloon"
   
           ' Create buttons for the list items.
           .BalloonType = msoBalloonTypeButtons
   
           .Text = "Click an option or click OK to close the balloon."
   
           ' Set the text for list items.
           .Labels(1).Text = "Save your file."
           .Labels(2).Text = "Print your file."
   
           ' Mode must be msoModeModeless in order to use Callback
           ' property.
           .Mode = msoModeModeless
   
           ' Call the "ProcessOption" macro when a balloon list item is
           ' clicked.
           .Callback = "ProcessOption"
   
           .Show
       End With
   
   End Sub
   
   ' Every procedure specified in the Callback property is
   ' passed three arguments: the balloon that activated the
   ' procedure, the return value of the button the user pressed,
   ' and an integer that uniquely identifies the balloon that
   ' called the procedure.
   
   Sub ProcessOption(bln As Balloon, ibtn As Long, iPriv As Long)
   
       ' bln: the name of the balloon that activated the procedure
       ' ibtn: the number of the button clicked in the balloon
       ' iPriv: an integer that uniquely identifies the balloon
   
       Assistant.Animation = msoAnimationGoodbye
   
       Select Case ibtn
           Case 1
               ' Insert your routine here.
               bln.Close
               bln.Text = "You chose the Save option."
               bln.Show
           Case 2
               ' Insert your routine here.
               bln.Close
               bln.Text = "You chose the Print option."
               bln.Show
   
           Case Else ' You clicked something other than a list item.
               bln.Close
   
       End Select
   
   End Sub
   					

2. Führen Sie das Makro Balloon_Options.
   
   Es wird eine Sprechblase mit zwei Optionen angezeigt.
3. Klicken Sie auf die Datei speichern .
   
   Die Sprechblase wird erneut angezeigt, und des Textes in der Sprechblase "Sie haben die Option Save gewählt."
4. Klicken Sie auf die Datei drucken .
   
   Die Sprechblase wird erneut angezeigt, und des Textes in der Sprechblase "Sie haben die Option drucken gewählt."
5. Klicken Sie auf OK , um die Sprechblase schließen.

Weitere Informationen zum Erstellen von benutzerdefinierte Office-Sprechblasen in Visual Basic-Editor klicken Sie im Menü Hilfe auf Microsoft Visual Basic-Hilfe , geben Sie Erstellen und Ändern von Sprechblasen in den Office- oder Antwort-Assistenten und klicken Sie auf Durchsuchen , um das Thema anzuzeigen.