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

Форум по вопросам применения и программирования в Visio
Текущее время: 29 апр 2017, 21:35

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


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


Размещение файлов в формате vsd (а не vsdx/vsdm), увеличивает вероятность ответа стремительным домкратом !!!



Начать новую тему Ответить на тему  [ Сообщений: 9 ] 
Автор Сообщение
 Заголовок сообщения: Корректировка данных
СообщениеДобавлено: 28 мар 2016, 19:40 
Не в сети

Зарегистрирован: 07 фев 2016, 16:32
Сообщений: 19
Использую Visio c: 2016
Очков репутации: 0

Добавить очки репутацииУменьшить очки репутации
Необходимо выполнить однотипные изменения в таблицах ShapeSheet. Как можно облегчить задачу, ускорить если фигур на листе много?

Surrogate писал(а):


Пожаловаться на это сообщение
Вернуться к началу
 Профиль  
Ответить с цитатой  
 Заголовок сообщения: Re: Корректировка данных
СообщениеДобавлено: 28 мар 2016, 19:47 
Не в сети
Administrator

Зарегистрирован: 02 окт 2009, 01:01
Сообщений: 3229
Откуда: оттуда
Использую Visio c: 1998
Отрасль: Связь
Должность: Бывший проектировщик
Уровнь квалификации: ShapeSheet, VBA
и шо у каждой из фигур надо что-то таки поменять ?


Пожаловаться на это сообщение
Вернуться к началу
 Профиль  
Ответить с цитатой  
 Заголовок сообщения: Re: Корректировка данных
СообщениеДобавлено: 28 мар 2016, 21:10 
Не в сети
Ветеран

Зарегистрирован: 30 июл 2014, 14:28
Сообщений: 391
Использую Visio c: 2008
Очков репутации: 77

Добавить очки репутацииУменьшить очки репутации
Это тебе надо попробовать надстройку от nbelyh.
http://unmanagedvisio.com/ru/загрузка/
Скачать и установить - ShapeSheetWatch. Там можно менять формулы и значения в нескольких шейпах сразу.


Пожаловаться на это сообщение
Вернуться к началу
 Профиль  
Ответить с цитатой  
 Заголовок сообщения: Re: Корректировка данных
СообщениеДобавлено: 28 мар 2016, 21:20 
Не в сети

Зарегистрирован: 07 фев 2016, 16:32
Сообщений: 19
Использую Visio c: 2016
Очков репутации: 0

Добавить очки репутацииУменьшить очки репутации
Изображение
Изображение


Пожаловаться на это сообщение
Вернуться к началу
 Профиль  
Ответить с цитатой  
 Заголовок сообщения: Re: Корректировка данных
СообщениеДобавлено: 28 мар 2016, 21:40 
Не в сети
Ветеран

Зарегистрирован: 30 июл 2014, 14:28
Сообщений: 391
Использую Visio c: 2008
Очков репутации: 77

Добавить очки репутацииУменьшить очки репутации
Какие то маленькие изображения. Ничего не разобрать.


Пожаловаться на это сообщение
Вернуться к началу
 Профиль  
Ответить с цитатой  
 Заголовок сообщения: Re: Корректировка данных
СообщениеДобавлено: 28 мар 2016, 21:47 
Не в сети

Зарегистрирован: 07 фев 2016, 16:32
Сообщений: 19
Использую Visio c: 2016
Очков репутации: 0

Добавить очки репутацииУменьшить очки репутации
Изображение
Изображение
Нужно заменить 100% на 1% и сделать динамическую гиперссылку.


Пожаловаться на это сообщение
Вернуться к началу
 Профиль  
Ответить с цитатой  
 Заголовок сообщения: Re: Корректировка данных
СообщениеДобавлено: 28 мар 2016, 21:59 
Не в сети
Ветеран

Зарегистрирован: 30 июл 2014, 14:28
Сообщений: 391
Использую Visio c: 2008
Очков репутации: 77

Добавить очки репутацииУменьшить очки репутации
Изменить ячейку Scale можно так:
(Только сначала все шейпы выделить)

Код:
Sub EditScale()
Dim i As Integer

With ActiveWindow
    For i = 1 To .Selection.Count
       .Selection(i).CellsSRC(visSectionCharacter, 0, visCharacterFontScale).FormulaForceU = "1%"
    Next
End With

End Sub


А с гиперссылками не понятно. Напиши конкретно словами что надо.


Пожаловаться на это сообщение
Вернуться к началу
 Профиль  
Ответить с цитатой  
 Заголовок сообщения: Re: Корректировка данных
СообщениеДобавлено: 28 мар 2016, 22:51 
Не в сети
Ветеран

Зарегистрирован: 30 июл 2014, 14:28
Сообщений: 391
Использую Visio c: 2008
Очков репутации: 77

Добавить очки репутацииУменьшить очки репутации
Совсем из головы вылетело! :wall: Вообще-то ячейку Scale для выделенных шейпов можно изменить и штатно:

Изображение


Пожаловаться на это сообщение
Вернуться к началу
 Профиль  
Ответить с цитатой  
 Заголовок сообщения: Re: Корректировка данных
СообщениеДобавлено: 28 мар 2016, 23:17 
Не в сети

Зарегистрирован: 07 фев 2016, 16:32
Сообщений: 19
Использую Visio c: 2016
Очков репутации: 0

Добавить очки репутацииУменьшить очки репутации
Спасибо. При помощи ShapeSheetWatch получилось изменить. "Address" гиперссылки должна была равняться данным из ячейки "Prop._VisDM_Ссылка"


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

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



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

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


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

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