名稱框中的Excel圖表名稱

Question

我是在單張紙上創建多個圖表。比方說，我有一張「Sheet 1」表，在這張表上我創建了10個圖表，名稱從「圖表1」到「圖表10」。但問題是當我點擊名稱框時，所有圖表的列表在該名稱框中不可用。 任何人都可以幫助我通過簡單的Excel或Excel VBA如何做到這一點。

Answer 1

更新：我不相信它的範圍名稱或當前選擇的對象以外的任何其他在「名稱」框中可用。我見過的唯一改變是對名稱框的增加

在Xl2010中，您可以使用選擇窗格查看所有圖表 主頁....編輯....查找&選擇....選擇窗格

原始 像這樣的東西會給你的列表

你想從列表中選擇一個圖表，並激活它的能力，或者只是列表本身？

Sub GetCharts() 
    Dim chr As ChartObject 
    Dim strOut As String 
    For Each chr In Sheets(1).ChartObjects 
     strOut = strOut & chr.Name & vbNewLine 
    Next 
    If Len(strOut) > 0 Then 
     MsgBox "Chart Names are:" & vbNewLine & strOut 
    Else 
     MsgBox "No charts", vbCritical 
    End If 
End Sub 

Answer 2

下面的宏輸出更多有關工作簿和工作表中的圖表比brettdj's更多的信息。這個想法是讓您更全面地瞭解可用信息以及訪問方式。

但是，我不明白你想要在名稱框中出現什麼。

Sub Test1() 

    Dim InxCO As Integer 
    Dim InxWS As Integer 

    For InxWS = 1 To Worksheets.Count 
    With Sheets(InxWS) 
     Debug.Print "Worksheet: " & .Name 
     Debug.Print " " & .ChartObjects.Count & " charts" 
     For InxCO = 1 To .ChartObjects.Count 
     With .ChartObjects(InxCO) 
      Debug.Print " Chart: " & .Name 
      Debug.Print " Location: " & .TopLeftCell.Address & " to " & _ 
             .BottomRightCell.Address 
      If .Chart.HasTitle Then 
      Debug.Print " Title: " & .Chart.ChartTitle.Text 
      Else 
      Debug.Print " Untitled" 
      End If 
     End With 
     Next 
    End With 
    Next 

End Sub 

Answer 3

如果您有Excel 2007及更高版本，有選擇和顯示的窗口，你可以激活。

看到這一點，

1) insert ANY shape on your sheet 

2) **Format > Arrange > Selection Pane** 

可以，在這一點上，右鍵單擊選擇窗格中的圖標並將其添加到您的QAT。使用QAT上的圖標，意味着可以隨時激活選擇和可見性窗口，在紙張上有或沒有形狀。