word vba图名自动编号

您可以使用以下VBA代码来为图表自动编号：

Sub AutoNumberCharts()

    Dim cht As ChartObject
    Dim i As Integer
    
    i = 1
    
    For Each cht In ActiveSheet.ChartObjects
        cht.Chart.HasTitle = True
        cht.Chart.ChartTitle.Text = "Chart " & i
        i = i + 1
    Next cht
    
End Sub

这段代码会遍历所有图表对象，并在每个图表标题中添加一个自动编号。您可以根据自己的需要进行修改。请注意，这段代码假定所有图表都已经具有标题。如果您的图表没有标题，请在代码中添加创建图表标题的代码。