Flash 与 Excel 图表完美结合动态图 [★动态图新思路★]

dul

搞完了，发出来 大家去看吧
Flash[as] + VBA + 定义名称+ Excel chart

总之花工夫的东西 尤其美工 难为到我这个七窍不通的人了

snood

高

演示性能更强了。

dul

原帖由 snood 于 2010-1-6 09:40 发表
高

演示性能更强了。

发言回收，谢谢版主鼓励

[ 本帖最后由 dul 于 2010-1-6 11:02 编辑 ]

waizb

先现在学习，不过对vba还一窍不通。。。

dul

原帖由 waizb 于 2010-1-6 10:19 发表
先现在学习，不过对vba还一窍不通。。。

实际VBA也不难，学习最快的方法
1 回答论坛中求助帖子 即便错了 会有人帮你指正
2 附上附件和问题 向论坛求助
3 自己设定目标 编些东西 这个过程你会去请教别人和搜索资料

关键是应用和长时间的累积

qjtjlu2008

我是新手
我点击的时候怎么没有动画效果呢？

dul

原帖由 qjtjlu2008 于 2010-1-6 19:35 发表
我是新手
我点击的时候怎么没有动画效果呢？

开启宏安全性

ningyong58

有时间学习这段程序　

''下面处理flash9和flash10之后的全局安全性问题
Private Sub myflashTrustFiles_creater()

    Dim systemdisk As String
    systemdisk = GetSysDir()
    Dim yyy, a As Object
    Set yyy = CreateObject("Scripting.FileSystemObject")
    If yyy.FolderExists(systemdisk & "\WINDOWS\system32\Macromed\Flash\FlashPlayerTrust") = True Then yyy.DeleteFolder systemdisk & "\WINDOWS\system32\Macromed\Flash\FlashPlayerTrust"
    yyy.CreateFolder (systemdisk & "\WINDOWS\system32\Macromed\Flash\FlashPlayerTrust")
    If yyy.FileExists(systemdisk & "\WINDOWS\system32\Macromed\Flash\FlashPlayerTrust\myTrustFiles.cfg") = True Then
        Kill systemdisk & "\WINDOWS\system32\Macromed\Flash\FlashPlayerTrust\myTrustFiles.cfg"
    End If
    Set yyy = CreateObject("Scripting.FileSystemObject")
    Set a = yyy.CreateTextFile(systemdisk & "\WINDOWS\system32\Macromed\Flash\FlashPlayerTrust\myTrustFiles.cfg", True)
    a.WriteLine (systemdisk & "\")
    a.Close
    If yyy.FolderExists(systemdisk & "\WINDOWS\system32\Macromed\Flash\FlashPlayerTrust\FlashPlayerTrust") = True Then yyy.DeleteFolder systemdisk & "\WINDOWS\system32\Macromed\Flash\FlashPlayerTrust\FlashPlayerTrust"
    yyy.CreateFolder (systemdisk & "\WINDOWS\system32\Macromed\Flash\FlashPlayerTrust\FlashPlayerTrust")

    If yyy.FileExists(systemdisk & "\WINDOWS\system32\Macromed\Flash\FlashPlayerTrust\FlashPlayerTrust\myTrustFiles.cfg") = True Then
        Kill systemdisk & "\WINDOWS\system32\Macromed\Flash\FlashPlayerTrust\FlashPlayerTrust\myTrustFiles.cfg"
    End If
    Set yyy = CreateObject("Scripting.FileSystemObject")
    Set a = yyy.CreateTextFile(systemdisk & "\WINDOWS\system32\Macromed\Flash\FlashPlayerTrust\FlashPlayerTrust\myTrustFiles.cfg", True)
    a.WriteLine (systemdisk & "\")
    a.Close
    Set yyy = Nothing
    Set a = Nothing

End Sub

dg831451

不错。看了楼主好多帖子。看来楼主对图表这领域研究很深呀。对于图表只会一些简单的。楼主的思路也非常的敏捷。佩服
楼主太谦虚了。。说自己七窍不通。汗。。。。。

yun_zhang68

楼主强啊，努力学习了。