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

dul · 发表于 2010-1-6 09:30

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

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

snood · 发表于 2010-1-6 09:40

高

演示性能更强了。

dul · 发表于 2010-1-6 09:49

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

演示性能更强了。

发言回收，谢谢版主鼓励

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

waizb · 发表于 2010-1-6 10:19

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

dul · 发表于 2010-1-6 18:29

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

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

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

qjtjlu2008 · 发表于 2010-1-6 19:35

我是新手

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

dul · 发表于 2010-1-6 21:03

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

开启宏安全性

ningyong58 · 发表于 2010-1-7 07:25

有时间学习这段程序　

''下面处理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 · 发表于 2010-1-7 07:51

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

yun_zhang68 · 发表于 2010-1-7 13:45

楼主强啊，努力学习了。

		自动登录	找回密码
密码			免费注册

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

评分