你好，请帮我写一段VBA代码，功能如下：遍历word文档中所有图表，将图表中的西文字体设置为times new roman，图表中的中文字体设置为宋体

Sub ChangeFont()
Dim oDoc As Document
Dim oChart As Chart
Set oDoc = ActiveDocument
For Each oChart In oDoc.InlineShapes
With oChart.Chart
.ChartArea.Format.TextFrame2.TextRange.Font.Name = "Times New Roman"
.ChartArea.Format.TextFrame2.TextRange.Font.NameBi = "宋体"
End With
Next oChart
End Sub