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

|