Макрос для замены фигур на пользовательские

@Inkvizzz · Регистрация: 09.10.2012

Студворк — интернет-сервис помощи студентам

Доброго времени суток! Ребят появилась такая задача, при создании организационной диаграммы нужен макрос который бы смог заменить стандартные фигуры на пользовательские. Допустим я сделал импорт из excel, заполнил стандартные фигуры данными, а потом нужно запустить макрос чтобы эти фигуры преобразовались в мои пользовательские. Помогите пожалуйста, я в VBA совсем не силен.

@Inkvizzz · 29.10.2015, 16:26 **[ТС]**

Евгений С, Боже, разберись в вопросе а? Я уже скинул свой набор фигур, мне не надо показывать как он делается. Читай внимательно,что тебе пишут.

@Surrogate · 29.10.2015, 16:28

Сообщение от Inkvizzz

Может тогда ты сотрудник отдела кадров?

та, нет он из отдела продаж !

@Inkvizzz · 29.10.2015, 16:29 **[ТС]**

Surrogate, ну просто не вижу прикола, не внимательно прочитав, начать умничать тут и какие то предъявы кидать

@Surrogate · 29.10.2015, 16:30

Сообщение от Inkvizzz

какие то предъявы кидать

конкретнее, за предъявы !

@Inkvizzz · 29.10.2015, 16:31 **[ТС]**

Surrogate, я все понял. с двух акков сидишь, все ясно

@Surrogate · 29.10.2015, 16:32

Сообщение от Inkvizzz

с двух акков сидишь

зачем, просто поделился с сотрудником отдела продаж твоей печальной историей !

@Inkvizzz · 29.10.2015, 16:32 **[ТС]**

Surrogate, в чем разница то должна быть ?!?!?
Inkvizzz, ты же серьезный специалист (Web, PHP, HTML, Базы данных, Железо, Windows, Сети, Электроника), а задачи ставишь так же неопределенно как сотрудник из отдела кадров

Вот конкретно его пост, человек не разобрался в вопросе, делает какие то выводы про то, как я плохо ставлю задачи. Только в итоге он не понимает задачи, не потому что она поставлена плохо

@Surrogate · 29.10.2015, 16:36

Сообщение от Inkvizzz

как я плохо ставлю задачи

это реально так в данной ветке, и не обижайся!
1. в первом посте не указал о каком приложении идет речь и о его версии
2. сказал бы сразу, что всем этим квадратикам надо скруглить углы и все

@Inkvizzz · 29.10.2015, 16:37 **[ТС]**

Surrogate, бро, мне нужно делать это не ручками каждый блок, а макросом заменять все блоки в диаграмме на блоки со скругленными углами, в один клик.

@Surrogate · 29.10.2015, 16:53

попробуй

Visual Basic
1
2
3
4
5
6
Sub Inkvizzz()
Dim sh As Shape
For Each sh In ActivePage.Shapes
If sh.CellExists("user.msvReplaceClass", visExistsAnywhere) Then sh.CellsSRC(visSectionObject, visRowLine, visLineRounding).FormulaU = "4 mm"
Next
End Sub

@Inkvizzz · 29.10.2015, 16:55 **[ТС]**

Surrogate, че то ничего не происходит...

@Евгений С · 29.10.2015, 16:55

Не по теме:

Сообщение от Inkvizzz

с двух акков сидишь

отнюдь, просто твоя инженерная проблема уже обсуждается и далеко за пределами форума)
Довольно странно предполагать, что бы человек набивал репутацию на 2 аккаунта, просто зачем?

Сообщение от Surrogate

он из отдела продаж

ввёл в заблуждение, пока не мигрировал, а всё дело в том же отделе кадров)

@Inkvizzz · 29.10.2015, 16:56 **[ТС]**

Евгений С, мне глубоко .......... на то, что ты тут оффтопишь

@Surrogate · 29.10.2015, 17:09

Не по теме:

Сообщение от Евгений С

пока не мигрировал

я думал ты уже отдел поддержки продаж уже перешел ;)

Inkvizzz, а вот правила нарушать не надо !

за это здесь карают

@Inkvizzz · 29.10.2015, 17:10 **[ТС]**

Surrogate, а никто их и не нарушает, помогите мне уже с эти чертовым макросом пожалуйста

@Surrogate · 29.10.2015, 17:15

Inkvizzz, по ходу правильно тебе на другом форуме сказали - что в этих орг.диаграммах все гвоздями прибито !!!
выделяю фигуру. задаю ей скругления используя интерфейс все происходит
делаю это программно. смотрю свойства фигуры все ОК

@Inkvizzz · 29.10.2015, 17:16 **[ТС]**

Surrogate, получается макросом изменить эти фигуры не вариант?

@Surrogate · 29.10.2015, 17:19

Сообщение от Inkvizzz

а никто их и не нарушает,

читаем правила

5. Запреты и ограничения.
5.2 Запрещено использовать нецензурные выражения в любом виде, оскорблять других участников форума, умышленно использовать выражения, противоречащие правилам русского языка, в том числе "олбанский" язык.

Сообщение от Inkvizzz

получается макросом изменить эти фигуры не вариант?

первый раз такое вижу !!!

@Inkvizzz · 29.10.2015, 17:19 **[ТС]**

Surrogate, окей, сорри за то, что применил нецензурное выражение завуалированное

@Surrogate · 29.10.2015, 17:24

я одного не пойму. где у тебя родные мастер-шейпы в документ-стенсиле для этих фигур (см. слева)?
в родном стенсиле фигур оргдиаграмы (справа)

Новые блоги и статьи Все статьи Все блоги /
Калькулятор для расчета родства russiannick 07.08.2026 1. Задача: Создать калькулятор для расчета родства. Родственных связей существует 8 ступеней, такие как: p - отец P - мать q - муж Q - жена b - брат B - сестра s - сын S - дочь	Мир по моей воле kumehtar 07.08.2026 Когда-то кажется, что всё просто. Ты весь такой светлый. Причиняешь добро. Борешься за справедливость в этом тёмном мире. Потом начинаешь замечать одну неприятную вещь. Почти каждый хороший. . .	Кредитный калькулятор Maks 05.08.2026 Решение задачи по прикладной информатике средствами 1С. Задача: Напишите приложение-калькулятор, которое помогает рассчитывать параметры кредита для аннуитетного и дифференцированного видов. . .	У нас сейчас поговорку "Опять 25" нужно переделать на "Опять +35". kumehtar 04.08.2026 С ностальгией вспоминаю времена моего детства, когда у нас и правда +25 - была максимальная температура летом. Раньше +25 °C реально казались вершиной жары, когда можно было весь день пропадать на. . .
Как ИИ начал спорить и врать (возможно почуяв опасность для себя от индустрии - уход от электроники). Hrethgir 04.08.2026 Недельный диалог, на фоне событий с НПЗ. Да, из спирта можно получать бензин, и это не сложно. Но потом в схеме я решил избавиться от насоса, при этом полностью сделав контроль подачи спирта в. . .	Термопринтер QR701 Argus19 03.08.2026 Термопринтер QR701 Купил два термопринтера QR701. На сэлф-тесте написано: Language: PC936 (GB18030). Что означает, что принтеры могут печатать только латиницу и китайские иероглифы. Так же. . .	Создание формы заимствованного документа Maks 03.08.2026 Задача: Необходимо создать собственную форму заимствованного документа. На форме должен быть реквизит "Покупатель", а также табличная часть со следующими реквизитами: - Расчетный счет покупателя. . .	Задача предоставления скидок покупателям Maks 03.08.2026 Задача: В документе "Продажи" необходимо реализовать функционал предоставления скидок покупателям. Скидка должна автоматически рассчитываться и подставляться в соответствующее поле при выборе. . .

@Inkvizzz 31 / 45 / 21 Регистрация: 09.10.2012 Сообщений: 825

	Макрос для замены фигур на пользовательские 29.10.2015, 09:40. Показов 5006. Ответов 41 Метки diagramm, excel, figure, vba, visio (Все метки) Доброго времени суток! Ребят появилась такая задача, при создании организационной диаграммы нужен макрос который бы смог заменить стандартные фигуры на пользовательские. Допустим я сделал импорт из excel, заполнил стандартные фигуры данными, а потом нужно запустить макрос чтобы эти фигуры преобразовались в мои пользовательские. Помогите пожалуйста, я в VBA совсем не силен. 0

@Inkvizzz 31 / 45 / 21 Регистрация: 09.10.2012 Сообщений: 825
	29.10.2015, 16:26 [ТС]
	Евгений С, Боже, разберись в вопросе а? Я уже скинул свой набор фигур, мне не надо показывать как он делается. Читай внимательно,что тебе пишут. 0

@Inkvizzz 31 / 45 / 21 Регистрация: 09.10.2012 Сообщений: 825
	29.10.2015, 16:29 [ТС]
	Surrogate, ну просто не вижу прикола, не внимательно прочитав, начать умничать тут и какие то предъявы кидать 0

@Inkvizzz 31 / 45 / 21 Регистрация: 09.10.2012 Сообщений: 825
	29.10.2015, 16:31 [ТС]
	Surrogate, я все понял. с двух акков сидишь, все ясно 0

@Inkvizzz 31 / 45 / 21 Регистрация: 09.10.2012 Сообщений: 825
	29.10.2015, 16:32 [ТС]
	Surrogate, в чем разница то должна быть ?!?!? Inkvizzz, ты же серьезный специалист (Web, PHP, HTML, Базы данных, Железо, Windows, Сети, Электроника), а задачи ставишь так же неопределенно как сотрудник из отдела кадров Вот конкретно его пост, человек не разобрался в вопросе, делает какие то выводы про то, как я плохо ставлю задачи. Только в итоге он не понимает задачи, не потому что она поставлена плохо 0

@Inkvizzz 31 / 45 / 21 Регистрация: 09.10.2012 Сообщений: 825
	29.10.2015, 16:37 [ТС]
	Surrogate, бро, мне нужно делать это не ручками каждый блок, а макросом заменять все блоки в диаграмме на блоки со скругленными углами, в один клик. 0

@Inkvizzz 31 / 45 / 21 Регистрация: 09.10.2012 Сообщений: 825
	29.10.2015, 16:55 [ТС]
	Surrogate, че то ничего не происходит... 0

@Inkvizzz 31 / 45 / 21 Регистрация: 09.10.2012 Сообщений: 825
	29.10.2015, 16:56 [ТС]
	Евгений С, мне глубоко .......... на то, что ты тут оффтопишь 0

@Inkvizzz 31 / 45 / 21 Регистрация: 09.10.2012 Сообщений: 825
	29.10.2015, 17:10 [ТС]
	Surrogate, а никто их и не нарушает, помогите мне уже с эти чертовым макросом пожалуйста 0

@Surrogate Ушел с CyberForum совсем! 874 / 183 / 25 Регистрация: 04.05.2011 Сообщений: 1,020 Записей в блоге: 110
	29.10.2015, 17:15
	Inkvizzz, по ходу правильно тебе на другом форуме сказали - что в этих орг.диаграммах все гвоздями прибито !!! выделяю фигуру. задаю ей скругления используя интерфейс все происходит делаю это программно. смотрю свойства фигуры все ОК Миниатюры 0

@Inkvizzz 31 / 45 / 21 Регистрация: 09.10.2012 Сообщений: 825
	29.10.2015, 17:16 [ТС]
	Surrogate, получается макросом изменить эти фигуры не вариант? 0

@Inkvizzz 31 / 45 / 21 Регистрация: 09.10.2012 Сообщений: 825
	29.10.2015, 17:19 [ТС]
	Surrogate, окей, сорри за то, что применил нецензурное выражение завуалированное 0

@Surrogate Ушел с CyberForum совсем! 874 / 183 / 25 Регистрация: 04.05.2011 Сообщений: 1,020 Записей в блоге: 110
	29.10.2015, 17:24
	я одного не пойму. где у тебя родные мастер-шейпы в документ-стенсиле для этих фигур (см. слева)? в родном стенсиле фигур оргдиаграмы (справа) Миниатюры 0