SWIFF CHART

方漠

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

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

转:

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

tmtony

谢谢分享!!先下载为强

tmtony

安装了,效果的确非常不错!!

方漠

附, 插入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

谢谢收藏了。