VBA中如何捕获由其他子过程创建的ChartObject图表对象？

核心问题是你当前的Charts子过程（Sub）无法返回创建的ChartObject对象，需要将其改为**函数（Function）**来实现返回值传递，具体修改步骤如下：

1. 修改创建图表的过程为Function #

将原Charts Sub改为返回ChartObject类型的Function，确保创建的图表对象能被调用方捕获：

Function CreateChart(s As Worksheet, leftPos As Double, width As Double, topPos As Double, height As Double) As ChartObject
    Dim ch As ChartObject
    Set ch = s.ChartObjects.Add(Left:=leftPos, Width:=width, Top:=topPos, Height:=height)
    ' 返回创建的ChartObject对象
    Set CreateChart = ch
End Function

注：给参数加上明确的类型声明和更清晰的命名（比如leftPos代替x），避免参数混淆。

2. 在调用过程中捕获图表对象 #

修改X子过程，声明ChartObject变量接收返回值，后续即可直接对该对象进行自定义设置：

Sub X()
    Dim s2 As Worksheet
    Dim newChart As ChartObject
    Dim chartLeft As Double, chartTop As Double
    Dim chartWidth As Double, chartHeight As Double
    
    Set s2 = Sheets(2)
    
    ' 修正参数：区分Left和Top（原代码aa和bb都用了Top，属于笔误）
    chartLeft = s2.Range("E5").Left
    chartTop = s2.Range("E5").Top
    chartWidth = 400
    chartHeight = 500
    
    ' 调用函数并捕获返回的ChartObject
    Set newChart = CreateChart(s2, chartLeft, chartWidth, chartTop, chartHeight)
    
    ' 后续自定义操作示例：设置数据源、标题、样式等
    With newChart.Chart
        ' 设置图表数据源
        .SetSourceData Source:=s2.Range("A1:B10")
        ' 设置图表标题
        .ChartTitle.Text = "自定义图表标题"
        ' 更改图表类型为折线图
        .ChartType = xlLine
    End With
End Sub

关键说明 #

• Sub过程无法返回值，只有Function可以返回对象或数据，这是你之前无法捕获图表对象的根本原因。
• 确保参数传递的准确性：原代码中aa和bb都使用了Range("E5").Top，实际应该用Left属性控制图表的水平位置，避免图表位置错误。

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