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

@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

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

Новые блоги и статьи Все статьи Все блоги /
Запрет дублирования строк в табличной части Maks 13.09.2026 Реализация из решения ниже выполнена на нетиповом справочнике "Нормы ТО" с табличной часть "Виды ТО", разработанного в КА2, со следующими реквизитами: - ВидТО (СправочникСсылка. ВидыТО); - ВидГСМ. . .	Скрипты Tampermonkey для CyberForum, ChatGPT, Claude и пр. Jin X 06.09.2026 Скрипты Tampermonkey для CyberForum, ChatGPT, Claude и пр. Работая с форумом и нейросетями в браузере часто хочется что-то подкорректировать или добавить какого-то функционала. Ниже прикреплён. . .	Программа опроса у.з. расходомера SLS-720F Argus19 02.09.2026 Программа опроса у. з. расходомера SLS-720F Программа опрашивает один раз в минуту три ультразвуковых расходомера SLS-720F через интерфейс RS-485 по протоколу Modbus RTU. Опрашиваются регистры. . .	Hyper-V: Компьютер должен поддерживать доверенный платформенный модуль 2.0. Maks 31.08.2026 При установке Windows 11 на виртуальную машину Hyper-V 2-го поколения вылезла такая ошибка: Решение: в параметрах виртуальной машины, в разделе "Безопасность" (Security) активировать флаг. . .
Архитектура биовида Стива в Майнкрафте: Зачем бонобо кубический каннибализм anaschu 30.08.2026 Кубический Вагинокапитализм в Minecraft: Математический инвариант ОДУ и рок Стивов-бонобо Главная задача разработанной «Модели Всего» — наглядно продемонстрировать наличие системной «судьбы». . .	Оттачиваю умение писать js программы. russiannick 30.08.2026 Проектом выходного дня стало написание Книги шифров Виженера. Итогом стала версия 200, синий туман. Синий туман назван так, потому что замораживает текст под собой. Нажатие синих кнопок управляют. . .	мат медиц модель 30. презентация проекта anaschu 27.08.2026 хоп хоп хоп хидахоп, а я кладую))	Как у меня протекала болезнь zorxor 27.08.2026 Здравствуйте, друзья! Эта запись блога предназначена именно для вас - для моих дорогих друзей, которые знали меня лично. Чтобы ответить на вопрос - а что же со мной произошло на самом деле? Я учился. . .

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

	Макрос для замены фигур на пользовательские 29.10.2015, 09:40. Показов 5058. Ответов 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