標題: [發問] 開啟excel後 加了個 vbYesNo, *.swf 不動了 play變成 false... [打印本頁]

---

作者: pinklee    時間: 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    時間: 2011-7-29 23:20

程式中並沒有對*.swf 執行的敘述
若play變成 false...
直接命令
.ShockwaveFlash1.Playing = True

---

作者: pinklee    時間: 2011-7-30 18:20

回復 2# chin15


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

---

歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)