编写vba代码绘制excel雷达图，将标题放在图的下方，并剧中

以下是一个绘制Excel雷达图并将标题放在图下方且居中的VBA代码示例：

Sub DrawRadarChart()

    '定义变量
    Dim cht As Chart
    Dim rngData As Range
    Dim rngLabels As Range
    Dim rngTitle As Range
    
    '选择数据范围
    Set rngData = Range("B2:G3")
    
    '选择标签范围
    Set rngLabels = Range("A2:A3")
    
    '选择标题范围
    Set rngTitle = Range("B1")
    
    '创建雷达图
    Set cht = ActiveSheet.Shapes.AddChart2(251, xlRadar, Left:=Range("J1").Left, Top:=Range("J1").Top, Width:=400, Height:=300).Chart
    
    '设置数据系列
    cht.SeriesCollection.NewSeries
    cht.SeriesCollection(1).Values = rngData.Rows(1).Value
    cht.SeriesCollection(1).XValues = rngLabels.Value
    cht.SeriesCollection.NewSeries
    cht.SeriesCollection(2).Values = rngData.Rows(2).Value
    cht.SeriesCollection(2).XValues = rngLabels.Value
    
    '设置图表标题
    cht.HasTitle = True
    cht.ChartTitle.Text = rngTitle.Value
    cht.ChartTitle.Left = cht.PlotArea.Left + (cht.PlotArea.Width - cht.ChartTitle.Width) / 2
    cht.ChartTitle.Top = cht.PlotArea.Top + cht.PlotArea.Height + 10
    
    '设置图表样式
    cht.ChartStyle = 26
    
End Sub

在此示例中，我们将数据范围设为B2:G3（包括标题行），标签范围设为A2:A3，标题范围设为B1。然后我们使用`ActiveSheet.Shapes.AddChart2`方法创建一个新的雷达图，并将其添加到工作表中。接着，我们使用`SeriesCollection`属性设置数据系列，并使用`HasTitle`属性设置图表标题。最后，我们使用`ChartStyle`属性设置图表样式。

请注意，此代码示例是基于Excel 2016开发的，如果您的Excel版本不同，则可能需要调整代码以适应不同的版本。