Excel VBA创建命名柱状图报错：指定名称未找到及命名疑问

嘿，我刚好踩过这个坑，咱们一步步理清楚：

疑问a：为什么图表被命名为"Chart 2"？能否在创建时直接指定名称？ #

首先，Excel在你手动创建图表（或者通过AddChart2创建）时，会自动按创建顺序给对应的Shape对象命名——比如第一个图表是"Chart 1"，第二个就是"Chart 2"，以此类推。录制宏的时候会直接引用这个自动生成的名称，但问题在于：这个名称不是固定的——如果之前的"Chart 2"被删除，或者你已经创建过其他图表，下次运行宏时新图表的名称可能变成"Chart 3"，这就是你报错"未找到具有指定名称的项目"的原因。

当然可以在创建时直接指定名称！而且这是更稳定的做法——不要用Select，而是把创建的图表Shape赋值给变量，直接设置它的Name属性。示例代码：

Sub CreateChartWithCustomName()
    Dim myChartShape As Shape
    ' 创建图表并赋值给Shape变量
    Set myChartShape = ActiveSheet.Shapes.AddChart2(286, xl3DColumnClustered)
    
    ' 直接设置自定义名称，再也不用依赖自动生成的"Chart X"
    myChartShape.Name = "My3DColumnChart"
    
    ' 后续操作直接用变量，不用Select
    myChartShape.Chart.SetSourceData Source:=Range("Dashboard!$T$8:$U$9")
End Sub

疑问b：如何为已创建的图表设置名称？为什么ActiveChart.Name = "Chart Name"会报错？ #

这里的核心是Chart对象和Shape对象的区别：

• 你看到的工作表中的图表，本质是一个Shape对象，它包含了一个Chart对象（就是图表的核心数据和设置）
• ActiveChart返回的是Chart对象，它的Name属性是只读的（或者在部分图表类型下不允许修改），这就是你执行ActiveChart.Name = "Chart Name"时报错的原因——你搞错了要修改的对象！

正确的做法是修改这个Chart对象的**父对象（即Shape）**的Name属性：

方法1：如果已经选中了图表 #

' 通过ActiveChart的Parent属性获取对应的Shape对象，再修改名称
ActiveChart.Parent.Name = "MyRenamedChart"

方法2：如果知道图表的原名称（比如录制宏里的"Chart 2"） #

ActiveSheet.Shapes("Chart 2").Name = "MyRenamedChart"

方法3：用变量操作（推荐） #

如果是你自己创建的图表，最好全程用变量操作，避免依赖名称或Select：

Dim myChartShape As Shape
Set myChartShape = ActiveSheet.Shapes("Chart 2") ' 找到已存在的图表Shape
myChartShape.Name = "MyRenamedChart"

改写你的原宏（避免报错的稳定版本） #

把你录制的宏改成用对象变量操作，彻底摆脱对自动生成名称的依赖：

Sub CreateAndConfigureChart()
    Dim myChartShape As Shape
    Dim myChart As Chart
    
    ' 1. 创建图表并赋值给变量
    Set myChartShape = ActiveSheet.Shapes.AddChart2(286, xl3DColumnClustered)
    Set myChart = myChartShape.Chart
    
    ' 2. 设置自定义名称
    myChartShape.Name = "SalesPerformanceChart"
    
    ' 3. 设置数据源
    myChart.SetSourceData Source:=Range("Dashboard!$T$8:$U$9")
    
    ' 4. 调整位置
    myChartShape.IncrementLeft 2222.25
    myChartShape.IncrementTop 25.5
    
    ' 5. 调整大小
    myChartShape.ScaleWidth 0.5541666667, msoFalse, msoScaleFromTopLeft
    myChartShape.ScaleHeight 1.5416666667, msoFalse, msoScaleFromTopLeft
    
    ' 6. 设置坐标轴最小值
    myChart.Axes(xlValue).MinimumScale = 0
    
    ' 7. 隐藏格式工具栏
    Application.CommandBars("Format Object").Visible = False
End Sub

这样修改后，无论你之前创建过多少图表，宏都能稳定运行，再也不会出现"未找到指定名称"的报错啦！

内容的提问来源于stack exchange，提问作者Dave