VBA更新PPT中图表的数据，但图表的色系变了

kingwlee

各位大侠，小弟求助！
我在PPT中有几个图表，图表的数据我是从excel文件粘贴link过去的，只要用简单的VBA语句就能实现自动化：
Sub Update_OLEObject()
For Each sld In ActivePresentation.Slides
k = sld.SlideIndex
    With ActiveWindow.View
    .GotoSlide k
    End With

    For Each s In sld.Shapes
        If s.Type = msoEmbeddedOLEObject Then
        s.OLEFormat.DoVerb Index:=1
        ActiveWindow.Selection.Unselect
        End If
    Next
Next
End Sub

现在的问题是我自动更新了数据后，图表的色系都改变了，我不知道如何才能更新数据而维持图标的色系。谢谢。

另外一个问题，这个语句只能在.ppt格式下运行，在.pptm格式下不能运行吗？再谢。