Question

我在一张纸上创建了多个图表。假设我有一张表“Sheet 1”，在这张表上我创建了10个图表，名称从“图表1”到“图表10”。但问题是当我点击名称框时，该名称框中没有所有图表的列表。任何人都可以通过简单的excel或excel VBA帮助我如何做到这一点。

Answer 1

更新：我不相信范围名称或当前所选对象以外的任何内容都可以在＆＃34;名称框＆＃34;中找到。我见过的唯一一个改名是宽度增加

在Xl2010中，您可以使用选择窗格查看所有图表主页....编辑....发现＆amp;选择....选择窗格

<强>原始这样的东西会给你列表

您是否希望能够从列表中选择图表并将其激活，或者只是列表本身？

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。我们的想法是让您更全面地了解可用的信息以及您如何访问它。

但是，我不明白你想在名称框中出现什么。

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

名称框中的Excel图表名称

3 个答案: