XL2000: 如何顯示自訂的 Office 小幫手] 球形文字說明

文章翻譯 文章翻譯
文章編號: 213731 - 檢視此文章適用的產品。
本文已封存。本文係以「現狀」提供且不會再更新。
全部展開 | 全部摺疊

在此頁中

結論

您可以自訂 [Office 小幫手] 在與按鈕或核取方塊,您所指定的註解方塊中顯示的訊息。底部的 [Office 小幫手目的,您可以顯示數種類型的按鈕,例如: [確定]按 [取消][重試,以及等等。

其他相關資訊

Microsoft 僅,為了說明提供程式設計範例,不提供任何明示或默示的保證,包括但不是限於適售性以及適合某特定用途之默示擔保責任。本文假設您已熟悉我們所示範的程式設計語言,以及用來建立和偵錯程序的工具。Microsoft 技術支援工程師可以協助解釋特定程序的功能,但它們不會修改這些範例以提供附加功能或建構程序,以符合您的特定需求。
如果您有限制程式設計經驗,您可以連絡 Microsoft 認證合作夥伴或 Microsoft 諮詢服務。如需詳細資訊請造訪下列 Microsoft] 網站:

Microsoft 認證合作夥伴-https://partner.microsoft.com/global/30000104

Microsoft 摘要報告服務-http://support.microsoft.com/gp/advisoryservice

如需有關可用的支援選項,以及有關如何連絡 Microsoft 的詳細資訊,請造訪下列 Microsoft 網站: http://support.microsoft.com/default.aspx?scid=fh;EN-US;CNTACTMS為 [Office 小幫手] 建立自訂的訊息提示,開啟 Visual Basic 模組,然後再建立類型的球形文字說明您想要的巨集。下列範例是最常見的自訂球形文字說明類型:

步驟 1: 建立 Visual Basic 模組

  1. 開啟新的活頁簿。
  2. 按下 ALT + F11 即可啟動 [Visual Basic 編輯器]。
  3. 插入] 功能表上按一下 [模組]。

步驟 2: 建立一個球形文字說明

範例 1: 建立簡單的註解方塊

  1. 在模組中輸入下列程式碼:
    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. 執行 Simple_Balloon 巨集。 [Office 小幫手] 會顯示一個球形文字說明與標題 「 我的註解方塊 」 在粗體字母和訊息,提示您按一下 [確定]

  3. 按一下 [確定]。 球形文字說明就會消失。

範例 2: 建立一個球形文字說明與編號清單

  1. 在模組中輸入下列程式碼:
    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. 執行 List_Balloon 巨集。 [Office 小幫手時則會顯示一個球形文字說明的數字的清單。

  3. 按一下 [確定] 以關閉球形文字說明。

範例 3: 建立一個球形文字說明的核取方塊

  1. 在模組中輸入下列程式碼:
    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. 執行 Balloon_Checkboxes 巨集。

    一個球形文字說明的三個核取方塊會出現。
  3. 按一下一個或多個核取方塊,然後按一下 [確定]

    便會出現訊息方塊顯示您所做的選擇。如果您按一下 [取消] 時,會出現訊息方塊以指出您按了 取消 的訊息。

範例 4: 建立多個球形文字說明

  1. 在模組中輸入下列程式碼:
    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. 執行 Balloon_Array 巨集。

    第一個球形文字說明會出現。
  3. 在球形文字說明中按一下 [確定]

    第二個球形文字說明會出現。
  4. 在球形文字說明中按一下 [確定]

    關閉第二個球形文字說明。

步驟 3: 選取並使用一個球形文字說明

  1. 在模組中輸入下列程式碼:
    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. 執行 Balloon_Options 巨集。

    兩個選項的球形文字說明會出現。
  3. 按一下 [儲存您的檔案

    球形文字說明再次出現,而球形文字說明中的文字是 「 您選擇 [儲存檔案] 選項 」。
  4. 按一下 [列印您的檔案

    球形文字說明再次出現,而球形文字說明中的文字是 「 您選擇列印選項 」。
  5. 按一下 [確定] 以關閉球形文字說明。

?考

如需有關如何建立自訂 Office 小幫手氣球在 Visual Basic 編輯器的詳細資訊,請按一下 [說明] 功能表上的 [Microsoft Visual Basic 說明,並在 「 Office 小幫手 」 或 「 解答精靈 」 中輸入 建立和修改球形文字說明 再按一下 [搜尋] 以檢視主題。

屬性

文章編號: 213731 - 上次校閱: 2013年10月14日 - 版次: 3.5
這篇文章中的資訊適用於:
  • Microsoft Excel 2000 Standard Edition
關鍵字:?
kbnosurvey kbarchive kbmt kbdtacode kbhowto kbprogramming KB213731 KbMtzh
機器翻譯
重要:本文是以 Microsoft 機器翻譯軟體翻譯而成,而非使用人工翻譯而成。Microsoft 同時提供使用者人工翻譯及機器翻譯兩個版本的文章,讓使用者可以依其使用語言使用知識庫中的所有文章。但是,機器翻譯的文章可能不盡完美。這些文章中也可能出現拼字、語意或文法上的錯誤,就像外國人在使用本國語言時可能發生的錯誤。Microsoft 不為內容的翻譯錯誤或客戶對該內容的使用所產生的任何錯誤或損害負責。Microsoft也同時將不斷地就機器翻譯軟體進行更新。
按一下這裡查看此文章的英文版本:213731
Microsoft及(或)其供應商不就任何在本伺服器上發表的文字資料及其相關圖表資訊的恰當性作任何承諾。所有文字資料及其相關圖表均以「現狀」供應,不負任何擔保責任。Microsoft及(或)其供應商謹此聲明,不負任何對與此資訊有關之擔保責任,包括關於適售性、適用於某一特定用途、權利或不侵權的明示或默示擔保責任。Microsoft及(或)其供應商無論如何不對因或與使用本伺服器上資訊或與資訊的實行有關而引起的契約、過失或其他侵權行為之訴訟中的特別的、間接的、衍生性的損害或任何因使用而喪失所導致的之損害、資料或利潤負任何責任。

提供意見

 

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