This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
Sub CopySAPage() | |
'------------------------------------------------------------------------------------------------------------ | |
' Sub : CopySAPage - Копирует страницу САПР-АСУ за текущей, копируя ее свойства и содержимое | |
'Переименовывает страницы раздела идущие за вставляемой страницей | |
'------------------------------------------------------------------------------------------------------------ | |
Dim vsoPage As Visio.Page | |
Dim vsoPageNew As Visio.Page | |
Dim vsoPageSource As Visio.Page | |
Dim colPagesAll As Collection | |
Dim colPagesAfter As Collection |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
'------------------------------------------------------------------------------------------------------------ | |
' Module : Specifikaciya - Спецификация | |
' Author : gtfox | |
' Date : 2019.09.22 | |
' Description : spDEL - Удаляет листы спецификации | |
' spADD_Excel_Razbienie - Добавляет листы спецификации из Excel из листа SP_2_Visio (после разбиения на ячейки) | |
' spADD_Visio_Perenos - Добавляет листы спецификации из Excel из листа SP (перенос длинных строк делает визио) | |
' spEXP_2_XLS – Экспортирует спецификацию из Visio в Excel | |
' SP_2_Visio.xls -Спецификация | |
' Лист SP содержит исходную спецификацию, с многострочным текстом в одной ячейке. |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
'------------------------------------------------------------------------------------------------------------ | |
' Module : AutoNumber - Автонумерация | |
' Author : gtfox | |
' Date : 2020.05.11 | |
' Description : Автонумерация/Перенумерация элементов схемы | |
' Link : https://visio.getbb.ru/viewtopic.php?f=44&t=1491, https://github.com/gtfox/SAPR_ASU, https://yadi.sk/d/24V8ngEM_8KXyg | |
'------------------------------------------------------------------------------------------------------------ | |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
'------------------------------------------------------------------------------------------------------------ | |
' Module : WireNet - Провода на схеме электрической принципиальной | |
' Author : gtfox | |
' Date : 2020.06.03 | |
' Description : Соединение/отсоединение проводов, нумерация, удаление, стрелки/точки на концах, взаимодействие с элементами | |
' Link : https://visio.getbb.ru/viewtopic.php?f=44&t=1491, https://github.com/gtfox/SAPR_ASU, https://yadi.sk/d/24V8ngEM_8KXyg | |
'------------------------------------------------------------------------------------------------------------ | |
Option Explicit | |
Public bUnGlue As Boolean 'Запрет обработки события ConnectionsDeleted |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
Function AddSAPage(PageName As String) As Visio.Page | |
'------------------------------------------------------------------------------------------------------------ | |
' Function : AddSAPage - Добавляет страницу САПР-АСУ если ее нет, добавляет еще, если подобные уже есть | |
'В строке передается имя страницы, возвращаем что создали | |
'------------------------------------------------------------------------------------------------------------ | |
Dim vsoPage As Visio.Page | |
Dim colPages As Collection | |
Dim Ramka As Visio.Master | |
Dim shpRamka As Visio.Shape | |
Dim Npage As Integer |