The following code  hasn't been tested, but you shouldget the drift.

Public Sub OneAxis_BodyExpCharts()

Dim Chart1 As Object

On Error Resume Next

If ActiveSheet.Name = SHEET_BODY_EXP Then
For Each Chart1 In Sheets(SHEET_BODY_EXP).ChartObjects
If Chart1.SeriesCollection(2).AxisGroup = 2 Then
With Chart1.SeriesCollection(2)
.AxisGroup = 1
.ChartType = xlColumnClustered
End With
End If
Next Chart1
End If

End Sub