昱得資訊工作室
麻辣學園
 歡迎光臨, 訪客. 請先 登入 或 註冊一個帳號.
您忘了 啟用您的帳號嗎?
2008-08-28, 10:36:08
首頁 說明 登入 註冊 贊助論壇 想當作者?
新聞: 會員注意!!麻辣家族討論區[通用版規]，請詳閱!!


+  麻辣家族討論區
|-+  MS Office 系列
| |-+  EXCEL
| | |-+  進階應用專區
| | | |-+  Office小幫手的應用		 0 會員 以及 1 訪客 正在閱讀本篇主題. « 上一篇主題 下一篇主題 »
頁: [1] 向下 列印
作者 主題: Office小幫手的應用  (閱讀 1539 次)
leonchou
論壇維護群
*
離線 離線

文章: 1160
Office小幫手的應用
« 於: 2005-09-20, 23:59:19 »
Office小幫手：Assistant物件
Office小幫手所說的"話"：Balloon物件
要建立 Balloon 物件：Assistant.NewBalloon
下面的範例會建立一個含有文字和三個標籤（Label物件）的Balloon。
(執行結果如圖上)

With Assistant
　　.On = True
　　.Visible = True
　　.Animation = msoAnimationGreeting
End With
With Assistant.NewBalloon
　　.Icon = msoIconTip
　　.BalloonType = msoBalloonTypeButtons '項目符號
　　.Button = msoButtonSetYesAllNoCancel
　　.Heading = "Tips for Test."
　　.Labels(1).Text = "{cf 1}Test1{cf 0}"
　　.Labels(2).Text = "{cf 2}Test2{cf 0}"
　　.Labels(3).Text = "{cf 3}Test3{cf 0}"
　　.Show
End With

使用 Checkboxes(index) 傳回一個 BalloonCheckbox 物件，其中的 index 是一個從 1 到 5 的數字。每個汽球中最多可有 5 個核取方塊 (以及 5 個標籤)，在為其 Text 屬性指定一個值之後，就會顯示每一個核取方塊。如果指定的核取方塊超過五個，將會發生執行錯誤。
下面的範例會建立一個有標題、文字和三個選項的汽球。當使用者選取一個或多個核取方塊，並按一下 [確定] 按鈕，就會呼叫指定的程序。
(執行結果如圖下)

With Assistant.NewBalloon
　　.Heading = "Regional Sales Data"
　　.Text = "Select your region"
　　For i = 1 To 3
　　　　.CheckBoxes(i).Text = "Region " & i
　　Next
　　.Button = msoButtonSetOkCancel
　　.Show
　　If .CheckBoxes(1).Checked Then
　　　　runregion1 '指定程序1
　　End If
　　If .CheckBoxes(2).Checked Then
　　　　runregion2 '指定程序2
　　End If
　　If .CheckBoxes(3).Checked Then
　　　　runregion3 '指定程序3
　　End If
End With


[附件已被管理員刪除]
已記錄
BEFORE ASKING, YOU SHOULD RTFH, RTFM, STFW...
leonchou
論壇維護群
*
離線 離線

文章: 1160
在網頁中調用Office小幫手
« 回覆文章 #1 於: 2005-09-21, 00:05:51 »
VBA可以調用小幫手(小助手) ---> Application.Assistant
但在網頁中要怎麼調用？你可能想到：VBScript

以下用小貓為例；請將以下代碼存為 HTML 文件。
打開 HTML 文件後，按下其中的按鈕以測試效果。
--------------------------------------------------------
<HTML>
<SCRIPT LANGUAGE="VBScript">
Dim Agent,Cat
Set Agent = CreateObject("Agent.Control.1")
Agent.Connected = True
'載入Microsoft Agent Character文件(*.ACS) --
'以下是我的Agent Character路徑, 在每個人機器中不一定相同.
'要使用任一個小助手的角色在你的機器上必須有安裝過, 才會有相對應的ACS文件.
Agent.Characters.Load "Cat", "C:\Progra~1\Micros~3\Office\OFFCAT.ACS"
Set Cat = Agent.Characters("Cat")
Cat.Balloon.FontName = "FixedSys"
Cat.Balloon.FontSize = 8
Cat.Balloon.Style = (Cat.Balloon.Style AND auto-pace) + 1
'上面這行使角色說的話停留在螢幕上, 取消此行則角色說的話在數秒後消失
Cat.Balloon.Style = (Cat.Balloon.Style AND &H00FFFFFF) + (3*(2^24))
'上面這代碼設置文字每次可顯示的列數(此例為 3 列)
Cat.Balloon.Style = (Cat.Balloon.Style AND &HFF00FFFF) + (50*(2^16))
'上面這代碼設置文字每列可顯示的字數(此例為 50 字)

Sub AgentHide()
　Cat.Hide '隱藏小助手
End Sub

Sub AgentShow()
　Cat.Show '顯示小助手
　AgentSpeak("How Are You Today?")
End Sub

Sub AgentSpeak(sentence)
　Cat.Speak sentence '小助手說話
　'Cat.Think sentence '小助手思考
End Sub

</SCRIPT>
<BODY>
<P><BR><H2>Microsoft Agent Test</H2>
<P><BR>
<INPUT type="button" value="Show" onclick="AgentShow()">&nbsp;&nbsp;
<INPUT type="button" value="Hide" onclick="AgentHide()">
</BODY></HTML>
已記錄
BEFORE ASKING, YOU SHOULD RTFH, RTFM, STFW...
頁: [1] 向上 列印 
« 上一篇主題 下一篇主題 »
跳到:  


本頁花了 0.26 秒, 以及 20 次的資料庫查詢.