Office中国论坛/Access中国论坛

标题: SWIFF CHART [打印本页]

作者: 方漠 时间: 2008-9-27 18:15
标题: SWIFF CHART
这个软件非常酷,功能非常强大, 这么好的东西不SHARE一下实在对不起大家. 附上的PPT为我试做的CHART效果图. 大家可以下来看一下.
不足之处是CHART需要先导为SWF,然后再插入SHEET/PPT中,但相比为了美观震撼,这点不足就不算什么了.

经常下东西,费了不少银子,这次也顺带卖点大洋吧. ^_^

转:

还想看着Excel那个死板板的图表吗,想让PowerPoint动起来吗？Swiff Chart 可以帮您这个忙。它的功能就是可以根据输入的数据，或直接导入CSV、XLS、TXT文件中的数据，动态绘制出各种常见的统计图，如：条形统计图、饼形统计图、折线统计图等，最后可将统计图输出为SWF格式，而整个过程只需要简单的六步就能轻松实现。生成后将之存为swf，然后在PPT中通过工具箱来插入，即可做出令人炫目的动态的PPT 来，存为PPS一放准能引来红粉一堆。

作者: tmtony 时间: 2008-9-27 23:34
谢谢分享!!先下载为强

作者: tmtony 时间: 2008-9-28 00:15
安装了,效果的确非常不错!!

作者: 方漠 时间: 2008-11-8 18:35
附, 插入SWF文件到EXCEL SHEET的代码,插入完成后,需要根据SWIFF生成的SWF文件大小再调整一下尺寸.

Sub InsertSWF()
Dim Fp
Dim Swf As String

Fp = Application.GetOpenFilename("Flash文件,*.swf", , "选择FLASH文件", , False)

If Fp = False Then Exit Sub

ActiveSheet.OLEObjects.Add(ClassType:="ShockwaveFlash.ShockwaveFlash.9", _
      Link:=False, DisplayAsIcon:=False, Left:=20, Top:=20, Width:= _
      450, Height:=300).Select

  Swf = Selection.Name

  ActiveSheet.OLEObjects(Swf).Object.EmbedMovie = True
  ActiveSheet.OLEObjects(Swf).Object.Menu = False
  ActiveSheet.OLEObjects(Swf).Object.Movie = Fp

  Range("D8").Select

Application.CommandBars("Exit Design Mode").Visible = True
Application.CommandBars("Exit Design Mode").Controls(1).Execute

End Sub

作者: dsp5000 时间: 2008-12-13 23:57
谢谢收藏了。

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)