返回列表 上一主題 發帖

[發問] 開啟excel後 加了個 vbYesNo, *.swf 不動了 play變成 false...

pinklee

帖子
57 
主題
25 
精華
0 
積分
87 
點名
0  
作業系統
xp2 
軟體版本
office2003 
閱讀權限
20 
性別
男 
註冊時間
2010-9-16 
最後登錄
2023-11-29 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2011-7-29 19:53 | 只看該作者

[發問] 開啟excel後 加了個 vbYesNo, *.swf 不動了 play變成 false...

Private Sub Workbook_Open()
Dim xy As String
VidWidth = GetSystemMetrics(SM_CXSCREEN)
VidHeight = GetSystemMetrics(SM_CYSCREEN)
xy = VidWidth & " X " & VidHeight
If xy = "1024 X 768" Then Exit Sub
Msg = "您目前的螢幕解析度為：" & xy & "！！最佳瀏覽解析度為：1024 X 768 您是否要調整解析度？"
    Title = "MsgBox Demonstration"
    Response = MsgBox(Msg, vbYesNo, Title)
    If Response = vbYes Then
       Call ChangeTo1024
    Else
       Exit Sub
    End If
End Sub
諘問要如何設定 *.swf 自動執行?
QQQ 各位
收藏 分享

chin15

帖子
227 
主題
3 
精華
1 
積分
273 
點名
0  
作業系統
XP 
軟體版本
XP 
閱讀權限
20 
性別
女 
註冊時間
2011-3-22 
最後登錄
2013-1-29 
2#
發表於 2011-7-29 23:20 | 只看該作者
程式中並沒有對*.swf 執行的敘述
若play變成 false...
直接命令
.ShockwaveFlash1.Playing = True

TOP

pinklee

帖子
57 
主題
25 
精華
0 
積分
87 
點名
0  
作業系統
xp2 
軟體版本
office2003 
閱讀權限
20 
性別
男 
註冊時間
2010-9-16 
最後登錄
2023-11-29 
3#
發表於 2011-7-30 18:20 | 只看該作者
回復 2# chin15


    QQQ 謝謝啦 己解決 加個 ShockwaveFlash1.Play  沒問題了

TOP

        靜思自在 : 【生命在呼吸間】佛陀說：「生命在呼吸間。」人無法管住自己的生命，更無法擋住死期，讓自己永住人間。既然生命去來這麼無常，我們更應該好好地愛惜它、利用它、充實它，讓這無常、寶貴的生命，散發它真善美的光輝，映照出生命真正的價值。
返回列表 上一主題