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

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

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


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


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

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



Начать новую тему Ответить на тему  [ Сообщений: 3 ] 
Автор Сообщение
 Заголовок сообщения: Добавление секции ShapeData и N-ного количества строк в нее
СообщениеДобавлено: 03 июл 2012, 12:43 
Не в сети
Content manager
Content manager
Аватара пользователя

Зарегистрирован: 02 окт 2009, 01:01
Сообщений: 5043
Откуда: оттуда
Использую Visio c: 1998
Отрасль: Интеграция системных интеграторов
Должность: Дизайнер по оформлению документации
Уровнь квалификации: Форматирование документов MS Word
Код:
Sub AddCustomProperties()
Dim shp As Shape    ' определяем переменную shp - шейп которому мы добавляем ShapeData
Dim N As Integer     ' определяем переменную N - количество пунктов меню ShapeData
N = Cint(InputBox("Укажите какое количество строк ShapeData, Вы хотите добавить"))  ' ввод значения через форму Inputbox
Set shp = ActivePage.Shapes.ItemFromID(1) ' присвоение переменной shp - шейпа с ID = 1
shp.AddSection visSectionProp             ' добавление секции ShapeData
For x = 1 To N                            ' цикл перебора от 1 до N
shp.AddRow visSectionProp, visRowLast, visTagDefault ' добавление нового пункта в ShapeData
shp.CellsSRC(visSectionProp, x, visCustPropsValue).FormulaU = "0" ' заполнение поля Value в N-ного пункта ShapeData по умолчанию
shp.CellsSRC(visSectionProp, x, visCustPropsPrompt).FormulaU = """""" ' заполнение поля Prompt в N-ного пункта ShapeData по умолчанию
shp.CellsSRC(visSectionProp, x, visCustPropsLabel).FormulaU = """""" ' заполнение поля Label в N-ного пункта ShapeData по умолчанию
shp.CellsSRC(visSectionProp, x, visCustPropsFormat).FormulaU = """""" ' заполнение поля Format в N-ного пункта ShapeData по умолчанию
shp.CellsSRC(visSectionProp, x, visCustPropsSortKey).FormulaU = """""" ' заполнение поля SortKey в N-ного пункта ShapeData по умолчанию
shp.CellsSRC(visSectionProp, x, visCustPropsType).FormulaU = "0" ' заполнение поля Type в N-ного пункта ShapeData по умолчанию
shp.CellsSRC(visSectionProp, x, visCustPropsInvis).FormulaU = "FALSE" ' заполнение поля Invisible в N-ного пункта ShapeData по умолчанию
shp.CellsSRC(visSectionProp, x, visCustPropsAsk).FormulaU = "FALSE" ' заполнение поля Ask в N-ного пункта ShapeData по умолчанию
shp.CellsSRC(visSectionProp, x, visCustPropsLangID).FormulaU = "1049" ' заполнение поля Language в N-ного пункта ShapeData по умолчанию
shp.CellsSRC(visSectionProp, x, visCustPropsCalendar).FormulaU = "0" ' заполнение поля Calendar в N-ного пункта ShapeData по умолчанию
shp.CellsSRC(visSectionProp, x, visCustPropsValue).RowNameU = x ' заполнение поля Name в N-ного пункта ShapeData по умолчанию
Next x
End Sub

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


Пожаловаться на это сообщение
Вернуться к началу
 Профиль  
Ответить с цитатой  
 Заголовок сообщения: Re: Добавление секции ShapeData и N-ного количества строк в нее
СообщениеДобавлено: 04 июл 2012, 22:32 
Не в сети
Ветеран

Зарегистрирован: 21 окт 2011, 12:01
Сообщений: 939
Откуда: г. Екатеринбург
Использую Visio c: 2011
Очков репутации: 127

Добавить очки репутацииУменьшить очки репутации
Код:
N = InputBox("Укажите какое количество строк ShapeData, Вы хотите добавить") * 1


я так понимаю, что "* 1" это для перевода из текста в цифру? это конечно круто))
но наверно лучше пользоваться ф-ями преобразования. в данном случае лучше так:

Код:
N = CInt(InputBox("Укажите какое количество строк ShapeData, Вы хотите добавить"))


Пожаловаться на это сообщение
Вернуться к началу
 Профиль  
Ответить с цитатой  
 Заголовок сообщения: Re: Добавление секции ShapeData и N-ного количества строк в нее
СообщениеДобавлено: 05 июл 2012, 11:12 
Не в сети
Content manager
Content manager
Аватара пользователя

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

спасибо за науку !!!

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


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

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



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

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


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

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