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

Форум по вопросам применения и программирования в Visio
Текущее время: 29 мар 2024, 15:31

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


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


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

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



Начать новую тему Ответить на тему  [ Сообщений: 27 ]  На страницу Пред.  1, 2
Автор Сообщение
 Заголовок сообщения: Re: Повторный слой
СообщениеДобавлено: 04 окт 2012, 14:22 
Не в сети

Зарегистрирован: 27 сен 2012, 10:02
Сообщений: 10
Очков репутации: 0

Добавить очки репутацииУменьшить очки репутации
Вместо Prop.1 надо взять строку Label из ShapeData, верно?
Ее я и взял, но визио ругается: "непредвиденный конец файла". При debug ругается на строку с формулой. Пробовал три варианта: Result(0), ResultIU, FormulaU.


Пожаловаться на это сообщение
Вернуться к началу
 Профиль  
Ответить с цитатой  
 Заголовок сообщения: Re: Повторный слой
СообщениеДобавлено: 04 окт 2012, 14:28 
Не в сети
Постоянный участник

Зарегистрирован: 11 май 2012, 15:05
Сообщений: 92
Очков репутации: 25

Добавить очки репутацииУменьшить очки репутации
masol писал(а):
Вместо Prop.1 надо взять строку Label из ShapeData, верно?

Нет. Левее нужная тебе колонка

На картинке "Prop.Cost"


Вложения:
2012-10-04_162623.png
2012-10-04_162623.png [ 7.4 Кб | Просмотров: 1015 ]
Пожаловаться на это сообщение
Вернуться к началу
 Профиль  
Ответить с цитатой  
 Заголовок сообщения: Re: Повторный слой
СообщениеДобавлено: 04 окт 2012, 14:38 
В сети
Content manager
Content manager
Аватара пользователя

Зарегистрирован: 02 окт 2009, 01:01
Сообщений: 5043
Откуда: оттуда
Использую Visio c: 1998
Отрасль: Интеграция системных интеграторов
Должность: Дизайнер по оформлению документации
Уровнь квалификации: Форматирование документов MS Word
В свойстве Prop.1 - это



"Подпись" Label данной ячейки ShapeData (ее значения в красных прямоугольниках)

"Имя"Имя данной ячейки ShapeData (ее значения в желтых прямоугольниках)




"Значение" Value данной ячейки ShapeData (ее значения в зеленых прямоугольниках)

















ну вот меня опередили… пока я раскрашивал свой светофор :)

_________________
База знаний ShapeSheet
Мой Youtube-канал @surrogate-tm
Мои трафареты


Пожаловаться на это сообщение
Вернуться к началу
 Профиль  
Ответить с цитатой  
 Заголовок сообщения: Re: Повторный слой
СообщениеДобавлено: 04 окт 2012, 14:59 
Не в сети

Зарегистрирован: 27 сен 2012, 10:02
Сообщений: 10
Очков репутации: 0

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

Макрос считает 0)
А должно быть как минимум 0,125.

В чем я ошибся?)

Код:
Sub Uti()
Dim c As Integer
Dim sh As Shape
Dim se As Selection
c = 0
Set se = ActiveWindow.Selection
For i = 1 To se.Count
Set sh = se.Item(i)
c = c + sh.Cells("Prop._VisDM_Utilization").ResultIU * 1
Debug.Print sh.Name
Next i
MsgBox c
End Sub


Пожаловаться на это сообщение
Вернуться к началу
 Профиль  
Ответить с цитатой  
 Заголовок сообщения: Re: Повторный слой
СообщениеДобавлено: 04 окт 2012, 16:09 
Не в сети
Постоянный участник

Зарегистрирован: 11 май 2012, 15:05
Сообщений: 92
Очков репутации: 25

Добавить очки репутацииУменьшить очки репутации
в первой строке замените на:
Dim c As Double

вы пытаетель в целых считать а у вас дроби да еще и меньше нуля, вот он ноль и показывает


Пожаловаться на это сообщение
Вернуться к началу
 Профиль  
Ответить с цитатой  
 Заголовок сообщения: Re: Повторный слой
СообщениеДобавлено: 14 мар 2013, 13:44 
Не в сети

Зарегистрирован: 27 сен 2012, 10:02
Сообщений: 10
Очков репутации: 0

Добавить очки репутацииУменьшить очки репутации
Урааа)
Всем большущее спасибо!
Работает как надо)
Очень помогли)


Пожаловаться на это сообщение
Вернуться к началу
 Профиль  
Ответить с цитатой  
 Заголовок сообщения: Re: Повторный слой
СообщениеДобавлено: 14 мар 2013, 13:52 
В сети
Content manager
Content manager
Аватара пользователя

Зарегистрирован: 02 окт 2009, 01:01
Сообщений: 5043
Откуда: оттуда
Использую Visio c: 1998
Отрасль: Интеграция системных интеграторов
Должность: Дизайнер по оформлению документации
Уровнь квалификации: Форматирование документов MS Word
masol
И главное очень быстро :)

_________________
База знаний ShapeSheet
Мой Youtube-канал @surrogate-tm
Мои трафареты


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

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



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

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


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

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