Лечение "пятого колеса" в трафарете от immortal
Dim mSh As Shape, subSH As Shape, cln As String, clv As String
Sub bvv()
Set mSh = ActivePage.Shapes(1)
For Each subSH In mSh.Shapes
If subSH.Type = visTypeShape Then FixFormula subSH
Next
MsgBox "TheEnd!!!"
End Sub
В данной заметке я привожу ряд полезных ссылок описывающих, что же такое таблица свойств (a.k.a. ShapeSheet) в MS Visio.
Visio 2013/2016/2019/2021. ShapeSheet reference
Актуальная онлайн-версия документации не изменяестя начиная с версии Visio 2013!
Visio 2010. ShapeSheet reference
Онлайн-версия документации для версии Visio 2010
Visio 2007. ShapeSheet reference
Онлайн-версия документации для версии Visio 2007
Visio 2003. ShapeSheet reference
Онлайн-версия документации для версии Visio 2003
30.08.2023 11:07 С номера +7(499) 648-70-23 позвонил "капитан полиции Юрий Николаевич". Сказал, что на меня возбуждено уголовное дело по статье "мошенничество". Что уже арестовали сотрудников какого-то банка, которые выводили деньги через мой счет. Стал интересоваться давал ли я доступ к своим персональным данным на территории страны в течении последних 6 месяцев
29.08.2023 07:40 С номера +79910324751 звонила девушка. Представилась сотрудником агентства по минимизации долговой нагрузки. Спрашивала, моя долговая нагрузка превышает 250.000 рублей…
13.07.2023 11:01
Позвонила девушка с номера 89646238720 (принадлежит оператору Билайн), представилась сотрудником оператора Мегафон. Стала предлагать подключение к домашнему интернету/ТВ от Мегафон. По быстрому переключила на старшего менеджера Андрея, который стал выведывать мой адрес.
Код должен открыть группу, выделенной фигуры рядом с основным окном документа.
Код может примениться к одиночной выделенной фигуре!
Для корректной работы были добавлены следующие этапы проверки:
Лучше пользователю лишний раз увидеть предупреждение, чем долго и упорно нажимать кнопки без результата (т.к. нет объекта для выполнения команд [1 этап] или к выделеному объекту данная команда не может быть применена [3 этап]).
По долгу службы пришлось в разделах Geometry заменить формулы в ячейках содержащие относительные значения (вроде Width*0.5) на их абсолютные значения в милиметрах.
Sub MakeGeometryAbsolute()
Dim src As Shape ' Declare Selected Shape variable
Dim gs_s% ' Declare Geometry section quanaity variable
Dim S% ' Declare Geometry section counter variable
Dim R% ' Declare Row in Geometry section counter variable
Dim gsr% ' Declare current rowtype value variable
Dim gr% ' Declare row quanaity variable
К этому разбору кода меня подтолкнула тема Аналог "копирки" в висио для создание фигур, взаимодействие.
Цель: научиться добавлять в целевую фигуру дополнительные разделы Geometry (visSectionFirstComponent), как в фигуре-образце.
Нижеследующий код получен при записи макрорекордером (добавлены комментарии/убраны UNDO).
Sub ModifyGeometry()
' Add new Geomtry section +1
Application.ActiveWindow.Shape.AddSection visSectionFirstComponent + 1 ' Add new Geometry Section for Line
Application.ActiveWindow.Shape.AddRow visSectionFirstComponent + 1, visRowComponent, visTagComponent ' Add default settings Geometry
Application.ActiveWindow.Shape.AddRow visSectionFirstComponent + 1, visRowVertex, visTagLineTo ' Add default tag LineTo
Требуется изменить условное обозначение контактора ?
Раньше был похож на обозначение рубильника внутри пунктирного прямоугольника. Теперь небольшой прямоугольник с диагональным отрезком внутри.
В фигуру Аппарат можно добавить возможность переместить за желтую точку и притянуть ее к другому аппарату.
Эта статья первоначально опубликована в блоге Геннадия Туманова (a.k.a. Croc) (19 января 2020).
Описание задачи. Шейп имеет два поля данных. Оба - фиксированные списки. Причем второй список зависит от того, какое значение выбрано в первом списке. По-существу, получается двух уровневый список в Shape Data.
Prop1 = value1; value 2; value 3 - первый список
Prop2= value1.1; value1.2; value1.3 - при Prop1 = value1
Prop2= value2.1; value2.2; value2.3 - при Prop1 = value2