True End With End
|
Public Sub ChooseAss() With Assistant Debug.Print .FileName 'Задаем образ Помощника '.FileName = "dot.acs" .FileName = "Offcat.acs" '.FileName = "Rocky.acs" 'Его анимационное поведение .Animation = msoAnimationGreeting .Animation = msoAnimationGetAttentionMinor 'Другие свойства .AssistWithHelp = True .FeatureTips = True .GuessHelp = True .HighPriorityTips = True .Visible = True End With End Sub |
| Листинг 7.1. |
| Закрыть окно |
