| Author |
 Topic  |
|
|
Onegsky
10 Posts |
 Posted - 07/12/2004 : 10:37:25
|
Здравствуйте, все!
Постарался лаконичнее. |
|
|
Onegsky
10 Posts |
Posted - 07/12/2004 : 10:39:39
|
| Да, еще забыл спросить, есть в Visio макрорекордер, как MS Word? Если есть, то как им пользоваться? Спасибо. |
 |
|
|
immortal77
30 Posts |
Posted - 07/12/2004 : 10:49:52
|
| смотри внимательнее форум, вопросы про макросы. |
|
|
|
Onegsky
10 Posts |
Posted - 07/12/2004 : 14:35:07
|
quote:
Originally posted by immortal77
смотри внимательнее форум, вопросы про макросы.
К сожалению, просмотрев 3 листа топиков по ключевому слову "макрос", я так и не нашел ответа на вопрос, как программно добавить шейп. Про версию Visio-2003 прочитал. Спасибо.
Прошу вас, люди добрые, помогите кто не гордый, пожалуйста. В свою очередь, могу помочь по 1С, если кто-то нуждается в помощи. |
|
|
|
Onegsky
10 Posts |
Posted - 07/12/2004 : 16:34:58
|
| Похоже, что этого сделать просто нельзя. Я просмотрел книжку по Visio, "прочесал" форум на сей предмет, излазил ObjectBrowser и Яндекс в поисках ответа, но так и не нашел у коллекции Shapes метода Add. Так что остается мне горемычному уповать на то, что придет мне в голову какое-нибудь нетривиальное решение. Например, сгенерировать событие ShapeAdded. Буду копать дальше. Ежели накопаю - поделюсь. |
|
|
|
Onegsky
10 Posts |
Posted - 07/12/2004 : 17:27:34
|
Всем спасибо за отзывчивость.
Set stnObj = appVisio.Documents("Basic Shapes.vss")
Set mastObj = stnObj.Masters("Rectangle")
'Перетаскивается с трафарета Basic Shapes.vss шейп Rectangle
Set shpObj = pagObj.Drop(mastObj, 4.25, 5.5)
Ответ нашел в FAQ, потратив день. Будьте здоровы. До свидания. |
|
|
|
immortal77
30 Posts |
Posted - 07/13/2004 : 06:23:23
|
| зачем рыться в форуме целый день, в моем сообщении все о макросах все было написано, берешь нажимаешь "записать макрос", добавляешь шейп, жмешь "остановить запись", и смотришь текст макроса. |
|
|
|
Onegsky
10 Posts |
Posted - 07/13/2004 : 09:38:22
|
quote:
Originally posted by immortal77
зачем рыться в форуме целый день, в моем сообщении все о макросах все было написано, берешь нажимаешь "записать макрос", добавляешь шейп, жмешь "остановить запись", и смотришь текст макроса.
Я вижу, что всех, кто приходит на этот форум с вопросами встречают очень радушно и держат за наивнейшие создания.
Может быть, многоуважаемый, 77-й бессмертный, подарит мне версию Visio-2003 для решения одной скромной задачи? У меня, слабоумного, 1С-программиста ну нет "быстрого" канала и за траффиик в 190 Mb меня руководство по головке не погладит. А тратить 150 р. на новый (пусть даже пиратский) диск для решения одной мааленькой задачки, на мой взгляд, совсем неразумно. Гораздо проще было бы помочь мне, скопировав ссылку или пару строк кода, когда я просил или хотя бы ткнуть носом в FAQ.
P.S. Когда к нам на форум приходят новички, над ними опытные хоть и поглумятся, но помогут в память о том, что когда-то сами были такими. |
|
|
|
Digitall
Russia
389 Posts |
Posted - 07/13/2004 : 09:59:51
|
Я вижу, что всех, кто приходит на этот форум с вопросами встречают очень радушно и держат за наивнейшие создания.
Ну почему же... просто человек общается на несколько другом уровне и в другой версии программы. Вы же не указали версию программы.
Может быть, многоуважаемый, 77-й бессмертный, подарит мне версию Visio-2003 для решения одной скромной задачи? У меня, слабоумного, 1С-программиста ну нет "быстрого" канала и за траффиик в 190 Mb меня руководство по головке не погладит. А тратить 150 р. на новый (пусть даже пиратский) диск для решения одной мааленькой задачки, на мой взгляд, совсем неразумно. Гораздо проще было бы помочь мне, скопировав ссылку или пару строк кода, когда я просил или хотя бы ткнуть носом в FAQ.
Просто Вы должны понимать, что народ здесь не все время сидит. Просто он ответил первым. Вот и все...
P.S. Когда к нам на форум приходят новички, над ними опытные хоть и поглумятся, но помогут в память о том, что когда-то сами были такими.
Советую Вам, да и всем пользователям не Visio 2003, почитать данный документ.
http://www.math.hcmuns.edu.vn/Public/Soft/WinSoft/Visio2000/Docs/DVS.pdf[6.3 Мб]
Developing Visio Solutions for Visio. Данный документ для Visio 2000, но все примеры прекрасно работают и в 2002. |
|
|
|
immortal
Russia
391 Posts |
Posted - 07/13/2004 : 12:02:17
|
Application.ActiveWindow.Page.Drop Application.Documents.Item(путь к трафарету).Masters.ItemU(имя мастера), координата, координата
это тоже вставляет, но, во первых вы не уточнили куда, откуда это будет запускаться, если быть дотошным quote:
Как программно добавить новый shape?
, програмно это из программы, или как? а трафорет будет присутствовать в документе или нет? а откуда будет запускаться программа или макрос? а всегда из одного места,а всегда на одной машине? я мог конечно написать вам с учетом всех этих вопросов. поэтому для более точного ответа, надо точный вопрос. quote:
смотри внимательнее форум, вопросы про макросы
да я отвечал на вопрос quote:
Да, еще забыл спросить, есть в Visio макрорекордер, как MS Word? Если есть, то как им пользоваться? Спасибо.
, со всеми вытекающими последствиями.
quote:
Может быть, многоуважаемый, 77-й бессмертный, подарит мне версию Visio-2003 для решения одной скромной задачи? У меня, слабоумного, 1С-программиста ну нет "быстрого" канала и за траффиик в 190 Mb меня руководство по головке не погладит. А тратить 150 р. на новый (пусть даже пиратский) диск для решения одной мааленькой задачки, на мой взгляд, совсем неразумно
сегодня у вас эта маленькая проблема, которая решается в визио 2002, а завтра другая маленькая проблема, которая тоже решается в визио 2002, но вот послезавтра ... опять проблема которая в визио 2002 уже не решается, но решается в визио 2003, и в итоге либо я вам дарю диск с визио 2003 либо вы покупаете его за 150 руб. (у нас 70).
|
|
|
|
Onegsky
10 Posts |
Posted - 07/19/2004 : 08:20:16
|
Спасибо огромное! Создателю сего сайта за то, что Факи здесь такие подробные, а то совсем бы я пропал.  |
|
|
| |
Topic |
|
|
|
All Forums
Как программно добавить новый shape?