: Xl2000 eine benutzerdefinierte Office-Assistenten-Sprechblase anzeigen

SPRACHE AUSWÄHLEN SPRACHE AUSWÄHLEN
Artikel-ID: 213731 - Produkte anzeigen, auf die sich dieser Artikel bezieht
Dieser Artikel wurde archiviert. Er wird im vorliegenden Zustand bereitgestellt und nicht mehr aktualisiert.
Alles erweitern | Alles schließen

Auf dieser Seite

Zusammenfassung

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..

Weitere Informationen

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.

Informationsquellen

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.

Eigenschaften

Artikel-ID: 213731 - Geändert am: Dienstag, 4. Februar 2014 - Version: 3.5
Die Informationen in diesem Artikel beziehen sich auf:
  • Microsoft Excel 2000 Standard Edition
Keywords: 
kbnosurvey kbarchive kbmt kbdtacode kbhowto kbprogramming KB213731 KbMtde
Maschinell übersetzter Artikel
Wichtig: Dieser Artikel wurde maschinell und nicht von einem Menschen übersetzt. Die Microsoft Knowledge Base ist sehr umfangreich und ihre Inhalte werden ständig ergänzt beziehungsweise überarbeitet. Um Ihnen dennoch alle Inhalte auf Deutsch anbieten zu können, werden viele Artikel nicht von Menschen, sondern von Übersetzungsprogrammen übersetzt, die kontinuierlich optimiert werden. Doch noch sind maschinell übersetzte Texte in der Regel nicht perfekt, insbesondere hinsichtlich Grammatik und des Einsatzes von Fremdwörtern sowie Fachbegriffen. Microsoft übernimmt keine Gewähr für die sprachliche Qualität oder die technische Richtigkeit der Übersetzungen und ist nicht für Probleme haftbar, die direkt oder indirekt durch Übersetzungsfehler oder die Verwendung der übersetzten Inhalte durch Kunden entstehen könnten.
Den englischen Originalartikel können Sie über folgenden Link abrufen: 213731
Microsoft stellt Ihnen die in der Knowledge Base angebotenen Artikel und Informationen als Service-Leistung zur Verfügung. Microsoft übernimmt keinerlei Gewährleistung dafür, dass die angebotenen Artikel und Informationen auch in Ihrer Einsatzumgebung die erwünschten Ergebnisse erzielen. Die Entscheidung darüber, ob und in welcher Form Sie die angebotenen Artikel und Informationen nutzen, liegt daher allein bei Ihnen. Mit Ausnahme der gesetzlichen Haftung für Vorsatz ist jede Haftung von Microsoft im Zusammenhang mit Ihrer Nutzung dieser Artikel oder Informationen ausgeschlossen.

Ihr Feedback an uns

 

Contact us for more help

Contact us for more help
Connect with Answer Desk for expert help.
Get more support from smallbusiness.support.microsoft.com