| Вопрос: Ассистенты | Добавлено: 16.09.07 23:22 |
Автор вопроса:  _VX_
|
| Можно ли как нибудь через макрос в ворде вывести на екран сразу нескольких ассистентов? |
| Ответы | Всего ответов: 8 |
|
Номер ответа: 1 Автор ответа:  User Unknown Вечный Юзер! ICQ: uu@jabber.cz Вопросов: 120 Ответов: 3302 |
Профиль | | #1 | Добавлено: 16.09.07 23:30 |
| /me в ужасе представил хор скрепышей | ||
|
Номер ответа: 2 Автор ответа:  HACKERРазработчик Offline Client Вопросов: 236 Ответов: 8362 |
Профиль | | #2 | Добавлено: 17.09.07 01:12 |
|
угага там же не только скрепши, всякие кошки, собаки, роботы есть.. целый зоопарк можно развести.
Вообще-то пример где-то был как на вб6 управлять ассистентом. Может ладе на этом сайте. Собственно оно и для VBA подойдёт. |
||
|
Номер ответа: 3 Автор ответа: _VX_ Вопросов: 1 Ответов: 3 |
Профиль | | #3 | Добавлено: 17.09.07 22:50 |
|
Трабла вот в чем:
Вывожу на екран я одного помошника, управляю им и т.п. А если я пытаюсь запустить еще одного - просто меняются параметры первого и первый исчезает. |
||
|
Номер ответа: 4 Автор ответа: _VX_Вопросов: 1 Ответов: 3 |
Профиль | | #4 | Добавлено: 17.09.07 22:51 |
| Всмысле не исчезает а просто меняются параметры | ||
|
Номер ответа: 5 Автор ответа: Mr.Smile ICQ: 427682013 Вопросов: 14 Ответов: 464 |
Профиль | | #5 | Добавлено: 18.09.07 14:13 |
|
А при создании ещё одного ассистента ты CharacterID менял?
|
||
|
Номер ответа: 6 Автор ответа: _VX_Вопросов: 1 Ответов: 3 |
Профиль | | #6 | Добавлено: 18.09.07 21:30 |
|
Во общем вот то что пишу, например
With Assistant
.On = True .FileName = "OFFCAT.acs" .Animation = msoAnimationBeginSpeaking .AssistWithHelp = True .GuessHelp = True .FeatureTips = False .Visible = True With .NewBalloon .Text = Assistant.Name .Show End With End With Дальше если написать тоже самое и сменить например файл ассистента, то соответственно просто изменится ассистент З.Ы. В Хелпе по VBA написано что можно создать ТОЛЬКО одного ассистента...хых а препод уверяет в обратном ) |
||
|
Номер ответа: 7 Автор ответа: ДмитВопросов: 11 Ответов: 160 |
Web-сайт: Профиль | | #7 | Добавлено: 18.09.07 23:02 |
|
Может быть использовать Агенты:
Dim myagent As Object, myagent2 As Object
Sub qwe() On Error Resume Next ' Устанавливаем ссылку на объект Set myagent = CreateObject("Agent.Control.2" 
Set myagent2 = CreateObject("Agent.Control.2"
' Проверяем, установлен ли MS Agent на компьютере If Err.Number Then MsgBox "MS Agent не установлен!" Else ' Подключаемся к объекту myagent.Connected = True myagent2.Connected = True ' Загружаем персонажи myagent.Characters.Load "CLIPPIT", "C:\Program Files\Microsoft Office\Office10\CLIPPIT.ACS" myagent2.Characters.Load "OFFCAT", "C:\Program Files\Microsoft Office\Office10\OFFCAT.ACS" ' Выводим на экран myagent.Characters("CLIPPIT" .Show
myagent.Characters("CLIPPIT" .MoveTo 200, 500
myagent2.Characters("OFFCAT" .Show
myagent2.Characters("OFFCAT" .MoveTo 500, 500
End If End Sub |
||
|
Номер ответа: 8 Автор ответа: SharpЛидер форума ICQ: 216865379 Вопросов: 106 Ответов: 9979 |
Web-сайт: Профиль | | #8 | Добавлено: 19.09.07 03:03 |
| А в разных процессах нельзя? | ||
Страница: 1 |