|
|
各位大侠，小弟求助！
我在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格式下不能运行吗？再谢。 |
|
