名称框中的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上的图标，意味着可以随时激活选择和可见性窗口，在纸张上有或没有形状。