0度跨越

认识PowerPoint中的Chart对象模型

在office 2007发行版本中，对图表的修改并没有涉及整个的office，如在Word和PowerPoint中就没有提供。但是在office 2007 SP2和office 2010中微软在Word和PowerPoint中提供了统一的图表对象模型。图表由Office共享的绘图层绘制，如果你熟悉在Excel 2007中应用图表对象，你就能很容易地在Word或PowerPoint建立相似的解决方案。

很多时候，公司需要在文档或演示文稿中建立客户指定数据的图表，在一般情况下，这些图表有一个标准格式，大小和位置。这个图表对象可以作为解决方案的一部分自动地生成所需要的图表，从而既节省了时间，又避免了繁重的体力劳动。

下面提供一个例子，在PowerPoint中建立一个图表。

Sub CreateChart()
    Dim oChart As Chart
    Dim oChartData As ChartData
    Dim oWB As Excel.Workbook
    Dim oWS As Excel.Worksheet
    Set oChart = ActivePresentation.Slides(1).Shapes.AddChart.Chart '建立chart
    Set oChartData = ActivePresentation.Slides(1).Shapes(1).Chart.ChartData
    Set oWB = oChartData.Workbook
    Set oWS = oWB.Worksheets(1)
    oWS.ListObjects("Table1").Resize gWorkSheet.Range("A1:B5") '增加数据
    oWS.Range("Table1[[#Headers],[Series 1]]").Value = "销售"
    oWS.Range("a2").Value = "自行车"
    oWS.Range("a3").Value = "配件"
    oWS.Range("a4").Value = "修理"
    oWS.Range("a5").Value = "服装"
    oWS.Range("b2").Value = "1000"
    oWS.Range("b3").Value = "2500"
    oWS.Range("b4").Value = "4000"
    oWS.Range("b5").Value = "3000"
    With oChart
        .ChartStyle = 4
        .ApplyLayout 4
        .ClearToMatchStyle
    End With
    oChart.HasTitle = True '增加标题
    With oChart.ChartTitle '格式化标题
        .Characters.Font.Size = 18
        .Text = "2007 Sales"
    End With
    With oChart.Axes(xlValue)
        .HasTitle = True
        .AxisTitle.Text = "$"
    End With
    oChart.ApplyDataLabels
    Set oWS = Nothing
    oWB.Application.Quit
    Set oWB = Nothing
    Set oChartData = Nothing
    Set oChart = Nothing
End Sub

由上面的代码，我们可以看到一个图表仍然通过一个Shape来加载。

在PowerPoint中，通过编程来操纵图表为我们在演示过程中设计图表的动态外观打开了一片门。

 

有很多的朋友都有这样一种感受：PowerPoint动画看似容易做，真正去做却不易做好做精。是的，在开始做PPT动画之时，我也曾经这样困惑过，所以，我企图找到一种让PPT动画制作变得既简单又不失精彩的软件，找遍世界的角角落落，也确实找到了一些诸如：3D transition，Slide Effect这样的东西，可是非常苦恼的是它们都有自己的运行环境，注册费用又很高。正是有着这样的艰难，才促使我决心花费巨大的精力去开发PowerPoint动画库扩展和PPT动画管理器这两款以PPT动画模型为基础的工具。

模仿是学好PPT动画的一个非常有效的方法，虽然PPT不支持形变动画，但除了这些，其他的都不存在问题。所以，我们可以把Flash中的一些效果用PPT来做做，有时，你会发现用PPT来做其实更简单。

为了方便朋友们学习如何用PPT来做各种Intros，我将在这篇博文中发布一系列的实例：

（1）简单型：动画库扩展2.5 For PowerPoint，长度：10秒内

源文件下载：http://www.brsbox.com/filebox/down/fc/d3f012a95691f8ef4cba3fedfba14aa4

（2）宁静悠扬型：中航地产  长度：30秒内

源文件下载：http://www.brsbox.com/filebox/down/fc/7b49f5a9fbc57f62a28f369f99128e89

(3) 动感大气型: 长度:25秒之内

文件下载: http://www.brsbox.com/filebox/down/fc/883b05fde6f5729eccd9debfb2142cae

有些PPT文件被封装到了Exe文件当中，如何把它们提取出来？这个问题可能困扰着很多的朋友。本来无极不准备写这篇文章的，因为我希望所有的人都能尊重别人的劳动成果，通过一个正常、正确的渠道来获取自己喜爱的东西，树立一个正确的作品借鉴观。

可是，很多朋友也渴望我能帮助他们解决这个问题，所以我还是决定出来讲讲关于这方面的方法。在这篇文章中，我不会公开所有的细节。如果您想进入更高级部分的朋友，不妨去找本“加密与解密”之类的书看看，或者上“看雪论坛”，那里有很多这方面的教程。

要提取Exe中的PPT文档，首先您要确定它是如何被封装进Exe文件当中的。主要有下面几种方式：

（1）用压缩类的工具，把PPT文档打包成一个可执行自解压的Exe文件。

（2）把PPT文档作为资源，在程序设计语言中一同编译进Exe文件中。

（3）先把PPT文档用某个密钥进行二进制流式加密，再把它作为资源封装到Exe文件中。

（4）用专门的封装工具把PPT文档封装到Exe文件中。

这是几种惯用的方法，当然会还有一些不常见的，具体情况要具体分析，这主要看您的判断能力。

下面介绍几中常见的提取方法：

（1）对用压缩工具封装的Exe，您只需用压缩工具进行解压缩即可，碰到设置了密码，可以找到工具进行解密。

（2）如果是通过资源用程序设计语言编译封装的Exe，一般的情况下，这个exe是不会加壳的。您可以找个exe资源查看工具（如：ExeScope），用工具打开这个exe的资源，找到其中的PPT文档，把它导出来即可。

上面两种情况是最简单的，一分钟之内就可以解决问题。最难的是下面几种情况:

（3）如果事先就把PPT文档进行了流式加密，被封装在exe中的PPT文档也是加了密的，这时，如果您用资源提取工具导出，得到的还是加了密的文档，没有用。怎么办?你应该想到被流式加密的PPT文档，PowerPoint播放器也不认得，必须经过解密还原，还原后的文档一定藏匿在硬盘的某个角落中，用“搜索”搜一下就出来了。

注：把搜索日期设定为当前日期。

（4）用专门的封装工具封装后的Exe文件（如：PowerPoint Slide Show Converter），一般都会加上一个壳，加了壳的Exe可能不允许查看资源或者资源被加密，导出后也不是真实的PPT文档。不过，同3一样，它也需要把源文档还原才能播放，用搜索也能解决问题。当然，如果您是脱壳高手，把这个Exe脱壳就更妙了。

PowerPoint Slide Show Converter会把源文档释放在C:\Documents and Settings\用户登录名\Local Settings\Temp目录中，你可先把该目录清空，然后执行Exe，一眼就找到了。

有些工具采用了更好的加密方式，把还原后的PPT文档也给隐藏起来了。如：PPT文档打包加密器，针对这类的工具，需要掌握特殊的技术才能把PPT文档提取出来。

加密与解密是一个巨大的课题，不是一篇短短的文章就能解决所有问题的，这需要破解者具有广博的专业知识和丰富的经验。

总结:PowerPoint放映机是不能基于内存流读取数据的，它必须要给定一个准确的本地路径。也就是说封装了PPT文档的Exe需要把PPT文档释放到硬盘的某个位置，PowerPoint放映机才能播放。

 

用PPT03建立一个烛光动画

      PPT文件下载:
         http://www.brsbox.com/filebox/down/fc/2f1a01530e7a2123d5304a7a9cfefb4a