#068
Officeアシスタントを表すAssistantオブジェクトの[FileName]プロパティを切り替えることによって、Officeアシスタントのアニメーションの種類をVBAからも変更することができます。
[FileName]プロパティには、次のようにそれぞれのアニメーションの種類に対応したファイル名を設定します。
With Assistant
'.FileName = "Logo.acp" 'Office ロゴ
'.FileName = "Powerpup.acp" 'スーパーわんた
'.FileName = "Scribble.acp" 'ピンキー
'.FileName = "Clippit.acp" 'クリッパー
'.FileName = "Dolphin.act" 'カイル
'.FileName = "Rocky.acp" 'ロッキー
.FileName = "OffLady.acp" '冴子先生
.Visible = True
End With
'.FileName = "Logo.acp" 'Office ロゴ
'.FileName = "Powerpup.acp" 'スーパーわんた
'.FileName = "Scribble.acp" 'ピンキー
'.FileName = "Clippit.acp" 'クリッパー
'.FileName = "Dolphin.act" 'カイル
'.FileName = "Rocky.acp" 'ロッキー
.FileName = "OffLady.acp" '冴子先生
.Visible = True
End With
※Officeアシスタントを使用する場合にはまず「Officeオブジェクトライブラリ」への参照設定を行う必要があります。上記のコードを実行する前にAccessのメニューの[ツール]-[参照設定]を選択して、[参照可能なライブラリファイル]の一覧の中の"Microsoft Office 8.0 Object Library"をチェックしてください。
