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

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

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

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

@Surrogate · 29.10.2015, 18:28

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

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

только что спросил в скайпе у nbelyh

Не по теме:

(который вчера тебя консультировал в другом форуме)

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

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

@Inkvizzz · 30.10.2015, 09:55 **[ТС]**

Surrogate, спасибо Вам огромное! Вы безумно помогли.

Новые блоги и статьи Все статьи Все блоги /
Саморегулирующийся социальный контракт для сервера cross-section. Hrethgir 14.08.2026 С кодом конечно таких глубоких размышлений пока не было, впрочем я уже привык к алгоритмизации. Суть предмета записи: снова в диалоге с нейросетью (я взял пока себе ник для учётки админа - Rector). . . .	Часы электронные Uhbif79 12.08.2026 Выкладываю программу часов. Программа позволяет: 1. Использовать системное время и дату, 2. Есть возможность вводить время и дату вручную. 3. Реализованы 2 будильника: начало и конец рабочего дня. . . .	Часы с будильником на основе класса QLCDNumber Uhbif79 12.08.2026 Всем добрый день, выкладываю программу часов с будильником на основе класса QLCDNumber. Здесь я пробовал самостоятельно создавал классы, впервые столкнулся с видимостью переменной одного класса из. . .	Установка MinGW GCC 16.2 и CMake 8Observer8 10.08.2026 VK Видео: https:/ / vkvideo. ru/ video-240781534_456239017 YouTube: eY5-5PyI9NM Текстовая версия
Неделя из жизни имитационной модели склада: мои кривые руки растут, откуда надо anaschu 10.08.2026 Неделя из жизни имитационной модели склада: как я почти написал неправильную логику и что с этим делать Работаю сейчас над учебно-рабочим проектом: строю в AnyLogic имитационную модель процессов. . .	Калькулятор для расчета родства russiannick 07.08.2026 1. Задача: Создать калькулятор для расчета родства. Родственных связей существует 8 ступеней, такие как: p - отец P - мать q - муж Q - жена b - брат B - сестра s - сын S - дочь	Мир по моей воле kumehtar 07.08.2026 Когда-то кажется, что всё просто. Ты весь такой светлый. Причиняешь добро. Борешься за справедливость в этом тёмном мире. Потом начинаешь замечать одну неприятную вещь. Почти каждый хороший. . .	Кредитный калькулятор Maks 05.08.2026 Решение задачи по прикладной информатике средствами 1С. Задача: Напишите приложение-калькулятор, которое помогает рассчитывать параметры кредита для аннуитетного и дифференцированного видов. . .

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

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

@Inkvizzz 31 / 45 / 21 Регистрация: 09.10.2012 Сообщений: 825
	30.10.2015, 09:55 [ТС]
	Surrogate, спасибо Вам огромное! Вы безумно помогли. 0

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

Решение