mschart的 x、y轴 怎么互换？

Question

'代码=========================================mschart的 x、y轴 怎么互换？
Private Sub Form_Load()
Dim objFileSystem As Object
    Dim objExcelText As Object
    Dim pubConn As New ADODB.Connection
    Dim rsTable As New ADODB.Recordset
    Dim strSQL As String
    pubConn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _
           "Data Source=" & MainForm.pathname & _
           ";Extended Properties=""Excel 8.0;"""
    rsTable.CursorLocation = adUseClient
    strSQL = "Select [V1], AVG([V2]) From [Sheet1$] WHERE [V1]>-15 and [V1]<0 Group By [V1]"
    rsTable.Open strSQL, pubConn, adOpenDynamic, adLockOptimistic
   With MSChart1
      .ShowLegend = True
      Set .DataSource = rsTable
   .Visible = True
   End With
End Sub
'================================================mschart的 x、y轴 怎么互换？