名称框中的Excel图表名称
我在一张纸上创造了多个图表。 比方说，我有一张表“工作表1”，在这张表上，我创build了10个图表，名称从“图表1”到“图表10”。 但问题是当我点击名称框时，所有图表的列表在该名称框中不可用。 任何人都可以帮助我通过简单的Excel或Excel VBA如何做到这一点。
更新 ：除了范围名称之外，我不相信任何东西，或者当前选定的对象在“名称框”中可用。 我所看到的唯一改变是在名称框中增加宽度
在Xl2010中，您可以使用select窗格主页….编辑….查找和select….select窗格查看所有图表
原来这样的东西会给你的名单
你是否想要从列表中select图表并激活它，或者只是列表本身？
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 下面的macros输出比brettdj更多的工作簿和工作表中的图表信息。 这个想法是给你一个更全面的信息可用和如何访问它的迹象。
但是，我不明白你想要在名称框中显示。
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
如果您有Excel 2007+，则可以激活“ select和可见性”窗口 。
为了看到这一点，
1) insert ANY shape on your sheet 2) **Format > Arrange > Selection Pane**
此时，您可以右键单击select窗格图标并将其添加到您的QAT。 使用QAT上的图标，意味着select和可视性窗口可以随时被激活，在纸张上有或没有形状。