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

@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

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

Новые блоги и статьи Все статьи Все блоги /
Жара жесть. kumehtar 18.08.2026 Пролетают летом дни Тридцать пять жары в тени. Каждый август год от года Дарит жаркую погоду.	Когда логика программы не спасает от человеческих ошибок Maks 18.08.2026 В последнее время всё чаще и чаще сталкиваюсь с таким явлением, как абсолютная невнимательность (или глупость) пользователей. Проявляется это чаще всего на работе в коллективе. Допустим, человек с. . .	Лето уходит kumehtar 17.08.2026	Мысли в слух kumehtar 17.08.2026 Забавно, насколько сейчас стала доступна информация. Например о магии, духовном развитии, медитациях, и других подобных направлениях, ранее зачастую тайных, передаваемых от учителя к ученику. Хотя. . .
Перемещение строк из ТЧ в другой документ с учетом текущего пробега Maks 17.08.2026 Реализация из решения ниже выполнена на примере нетипового документа "Автозапчасти", с ТЧ "Шины". За основу взят алгоритм отсюда: https:/ / www. cyberforum. ru/ blogs/ 359708/ 10838. html Задача: . . .	Саморегулирующийся социальный контракт для сервера cross-section. Hrethgir 14.08.2026 С кодом конечно таких глубоких размышлений пока не было, впрочем я уже привык к алгоритмизации. Суть предмета записи: снова в диалоге с нейросетью (я взял пока себе ник для учётки админа - Rector). . . .	Часы электронные Uhbif79 12.08.2026 Выкладываю программу часов. Программа позволяет: 1. Использовать системное время и дату, 2. Есть возможность вводить время и дату вручную. 3. Реализованы 2 будильника: начало и конец рабочего дня. . . .	Часы с будильником на основе класса QLCDNumber Uhbif79 12.08.2026 Всем добрый день, выкладываю программу часов с будильником на основе класса QLCDNumber. Здесь я пробовал самостоятельно создавал классы, впервые столкнулся с видимостью переменной одного класса из. . .

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

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