羊羊羊的PPT EXCEL双剑合璧动态更新展示大法

PPT

简洁、优雅、高效

通常我们需要把EXCEL中的图表在PPT中展示出来。如图：

 坑爹的事

生产某经理：“哎！那个羊羊羊，不好意思滴啦！那个源数据好像错了，改一下！改一下！拜托拜托啦！”

羊羊羊心里一万头羊路过，难道又要重做一遍，

天空一片乌鸦飞过！点解咧？

羊羊羊历经千辛万苦，九九八十一难，终于找到办法。

                   让我们拭目以待。

01——复制excel表格中的数据

02——粘贴到ppt中

03——修改链接数据的更新方式

04——将更新由自动改为手动，否则再次打开文件时会出现提示

05——依此同理把其它需要的都放到PPT,当原表格的数据发生变动时，在ppt中选中相应的图表，右键——更新链接

06——当ppt中链接的图表比较多时可以使用 “刷新数据” 宏进行更新链接的自动化操作;
           当ppt以及数据源文件的路径发生变动时，可以使用 “更新链接” 宏进行更新链接的自动化操作，win7及以上会自动更新路径，但xp不会自动更新路径

代码如下：

Sub 更新链接()

Dim sld As Slide

Dim sh As Object

Dim a As String

Dim c As String

a = ActivePresentation.Path & '\'

For Each sld In ActivePresentation.Slides

    For Each sh In sld.Shapes

        If sh.Type = msoLinkedOLEObject Then

            c = StrReverse(sh.LinkFormat.SourceFullName)

            sh.LinkFormat.SourceFullName = a & StrReverse(Left(c, InStr(c, '\') - 1))

            sh.LinkFormat.Update

        End If

    Next

Next

MsgBox '更新完毕'

End Sub

Sub 刷新数据()

Dim sld As Slide

Dim sh As Object

For Each sld In ActivePresentation.Slides

    For Each sh In sld.Shapes

        If sh.Type = msoLinkedOLEObject Then

            sh.LinkFormat.Update

        End If

    Next

Next

MsgBox '数据更新完毕'

End Sub

PS:以上代码要求ppt跟excel数据源放在同一文件加下，否者会出错.