- 帖子
- 57
- 主題
- 25
- 精華
- 0
- 積分
- 87
- 點名
- 0
- 作業系統
- xp2
- 軟體版本
- office2003
- 閱讀權限
- 20
- 性別
- 男
- 註冊時間
- 2010-9-16
- 最後登錄
- 2023-11-29
|
[發問] 開啟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 各位 |
|
發表於 2011-7-29 19:53
| 
