尋找工作表上的所有走勢圖

下列程式碼範例會使用使用者表單上的清單方塊來顯示使用中工作表上的所有走勢圖群組。 當您按一下清單方塊中的其中一個走勢圖群組時，會在工作表上選取走勢圖群組。

此範例需要名為 SparklineForm的使用者表單、名為 SparklineListBox之使用者表單上的清單方塊，以及名為 CloseBtn之使用者表單上的按鈕。

在 Visual Basic 編輯器中，插入 Module 並複製並貼上下列程式碼。 此程式碼會顯示使用者表單。

Sub ShowUserForm()
    SparklineForm.Show
End Sub

在 Visual Basic 編輯器中，以滑鼠右鍵按一下 SparklineForm 表單，選 取 [檢視程式碼]，然後複製並貼上下列程式碼。 UserForm_Activate程式會逐一查看使用中工作表上的所有走勢圖群組，並使用Range物件的Address屬性取得走勢圖群組的位址。 位址接著會新增至清單方塊。 當您按一下清單方塊中走勢圖群組的位址時，會呼叫SparklineListBox_Click程式。 此程式會使用Range物件的Activate方法，在工作表上啟動選取的走勢圖群組。 當您按一下使用者表單上的按鈕並關閉使用者表單時，會呼叫CloseBtn_Click程式。

Private Sub UserForm_Activate()
    'The sparkline group
    Dim oSparkGroup As SparklineGroup
    
    'Loop through all the sparkline groups on the sheet
    For Each oSparkGroup In ActiveSheet.Range("A:XFD").SparklineGroups
        'For each sparkline group found, add the address to the listbox
        SparklineListBox.AddItem oSparkGroup.Location.Address(, , , True)
    Next oSparkGroup
End Sub

Private Sub SparklineListBox_Click()
    'Activate the selected range that has the sparklines
    Range(SparklineListBox.Value).Activate
End Sub

Private Sub CloseBtn_Click()
    'Close the userform
    Unload Me
End Sub

另請參閱

在Excel 中使用走勢圖進行SparklineGroup 物件程式設計

支援和意見反應

有關於 Office VBA 或這份文件的問題或意見反應嗎？ 如需取得支援服務並提供意見反應的相關指導，請參閱 Office VBA 支援與意見反應。