Форум пользователей Visio

Форум по вопросам применения и программирования в Visio
Текущее время: 28 мар 2024, 20:05

Часовой пояс: UTC + 3 часа [ Летнее время ]


Правила форума


При размещении файлов предпочтительным является формат vsd (а не vsdx/vsdm)
Размещая ваши вложения на форуме не используйте имена файлов содержащих кириллицу, в противном случае файл будет иметь имя .<расширение файла> !

Для форматирования ваших сообщений используйте BBCodes, описание используемых на форуме BBCodes.



Начать новую тему Ответить на тему  [ Сообщений: 4 ] 
Автор Сообщение
 Заголовок сообщения: Путь к текущему файлу визио (аналог ThisWorkbookpath в Exce)
СообщениеДобавлено: 18 окт 2009, 22:54 
Не в сети
Постоянный участник

Зарегистрирован: 07 сен 2009, 00:09
Сообщений: 62
Очков репутации: 20

Добавить очки репутацииУменьшить очки репутации
в excel vba есть команда ThisWorkbookpath - возвращает путь к файлу екселя из которого макрос запущен. какой в визио аналог этой команды ?


Пожаловаться на это сообщение
Вернуться к началу
 Профиль  
Ответить с цитатой  
 Заголовок сообщения: Re: Путь к текущему файлу визио (аналог ThisWorkbookpath в Exce)
СообщениеДобавлено: 19 окт 2009, 18:38 
Не в сети
Administrator

Зарегистрирован: 30 авг 2009, 11:02
Сообщений: 2253
Очков репутации: 100626

Добавить очки репутацииУменьшить очки репутации
ActiveDocument.Path


Пожаловаться на это сообщение
Вернуться к началу
 Профиль  
Ответить с цитатой  
 Заголовок сообщения: Re: Путь к текущему файлу визио (аналог ThisWorkbookpath в Exce)
СообщениеДобавлено: 19 ноя 2009, 00:28 
Не в сети
Постоянный участник

Зарегистрирован: 07 сен 2009, 00:09
Сообщений: 62
Очков репутации: 20

Добавить очки репутацииУменьшить очки репутации
Tumanov
а как получить путь на папку выше чем ActiveDocument.Path ?


Пожаловаться на это сообщение
Вернуться к началу
 Профиль  
Ответить с цитатой  
 Заголовок сообщения: Re: Путь к текущему файлу визио (аналог ThisWorkbookpath в Exce)
СообщениеДобавлено: 19 ноя 2009, 19:46 
Не в сети
Administrator

Зарегистрирован: 30 авг 2009, 11:02
Сообщений: 2253
Очков репутации: 100626

Добавить очки репутацииУменьшить очки репутации
Тут уже Visio скорее всего не справится. Нужно что-то в таком духе:
Код:
Sub ttt()
    Dim fso As Scripting.FileSystemObject
    Set fso = New Scripting.FileSystemObject
    Debug.Print ActiveDocument.Path
    Debug.Print fso.GetParentFolderName(ActiveDocument.Path)
    p1 = fso.GetParentFolderName(ActiveDocument.Path)
    Debug.Print fso.GetParentFolderName(p1)
    'Получаем примерно такой вывод:
    'C:\Documents and Settings\user\Мои документы\
    'C:\Documents and Settings\user
    'C:\Documents and Settings
End Sub


Пожаловаться на это сообщение
Вернуться к началу
 Профиль  
Ответить с цитатой  
Показать сообщения за:  Поле сортировки  
Начать новую тему Ответить на тему  [ Сообщений: 4 ] 

Часовой пояс: UTC + 3 часа [ Летнее время ]



Кто сейчас на конференции

Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 8


Вы можете начинать темы
Вы можете отвечать на сообщения
Вы не можете редактировать свои сообщения
Вы не можете удалять свои сообщения
Вы не можете добавлять вложения

Найти:
Перейти:  
Powered by phpBB © 2000, 2002, 2005, 2007 phpBB Group
Вы можете создать форум бесплатно PHPBB3 на Getbb.Ru, Также возможно сделать готовый форум PHPBB2 на Mybb2.ru
Русская поддержка phpBB