Visio VBA установил для динамического соединителя стиль прямого соединителя

Я использую Python для управления Visio через win32com.Client на платформе Windows 10. Этот проект добился большого успеха, но я застрял в попытках найти ответ. Я просматривал документацию Microsoft (конечно, для VBA), но не нашел ответа.

Я без проблем добавляю точки соединения к фигурам и соединяю их динамическими соединителями. Все соединители, которые я удаляю, отображаются как прямоугольные соединители, и я хотел бы переключить некоторые из них на стили прямых или изогнутых соединителей. Я не нашел в ShapeSheet ничего похожего на правильную настройку. Код, который я использую для отключения разъемов, приведен ниже. Заранее благодарим за любую оказанную помощь!

# visSectionConnectionPts = 7
shape = self.v_app.draw_page.Drop(self.v_app.app.ConnectorToolDataObject, 5, 4)
shape.Cells("BeginX").GlueTo(s_shp.shape.CellsSRC(7, s_row, 0))
shape.Cells("EndX").GlueTo(d_shp.shape.CellsSRC(7, d_row, 0))

if arrow:
  shape.Cells("EndArrow").FormulaForceU = "13"
if len(text) > 0:
  shape.Text = text
Почему в Python есть оператор "pass"?
Почему в Python есть оператор "pass"?
Оператор pass в Python - это простая концепция, которую могут быстро освоить даже новички без опыта программирования.
Некоторые методы, о которых вы не знали, что они существуют в Python
Некоторые методы, о которых вы не знали, что они существуют в Python
Python - самый известный и самый простой в изучении язык в наши дни. Имея широкий спектр применения в области машинного обучения, Data Science,...
Основы Python Часть I
Основы Python Часть I
Вы когда-нибудь задумывались, почему в программах на Python вы видите приведенный ниже код?
LeetCode - 1579. Удаление максимального числа ребер для сохранения полной проходимости графа
LeetCode - 1579. Удаление максимального числа ребер для сохранения полной проходимости графа
Алиса и Боб имеют неориентированный граф из n узлов и трех типов ребер:
Оптимизация кода с помощью тернарного оператора Python
Оптимизация кода с помощью тернарного оператора Python
И последнее, что мы хотели бы показать вам, прежде чем двигаться дальше, это
Советы по эффективной веб-разработке с помощью Python
Советы по эффективной веб-разработке с помощью Python
Как веб-разработчик, Python может стать мощным инструментом для создания эффективных и масштабируемых веб-приложений.
0
0
57
1
Перейти к ответу Данный вопрос помечен как решенный

Ответы 1

Ответ принят как подходящий

Я не нашел в ShapeSheet ничего похожего на правильную настройку.

Пожалуйста, проверьте раздел ShapeLayout.

ShapeLayout section

Особенно интересуют ячейки: LineRouteExt Cell и ShapeRouteStyle Cell. Dynamic connector style changes

import win32com.client as w32 
visio = w32.Dispatch("visio.Application") 
visio.Visible = 1 
shape = visio.Activewindow.Page.Drop (visio.ConnectorToolDataObject, 7, 40)

# define internal Visio constants for SRC-syntax
visSectionObject = "1"
visRowShapeLayout = "23"
visSLOLineRouteExt = "19"
visSLORouteStyle = "10"

# Switch connector style 
# Right-Angle Connector
shape.CellsSRC(visSectionObject, visRowShapeLayout, visSLOLineRouteExt).FormulaU = "1"
shape.CellsSRC(visSectionObject, visRowShapeLayout, visSLORouteStyle).FormulaU = "1"
# Curved Connector
shape.CellsSRC(visSectionObject, visRowShapeLayout, visSLOLineRouteExt).FormulaU = "2"
# Straight Connector
shape.CellsSRC(visSectionObject, visRowShapeLayout, visSLOLineRouteExt).FormulaU = "1"
shape.CellsSRC(visSectionObject, visRowShapeLayout, visSLORouteStyle).FormulaU = "16"

Спасибо, суррогатная мать, это очень полезно. После публикации этой статьи я воспользовался вашим предыдущим предложением и использовал функцию записи макросов Visio, чтобы найти решение. Мне пока не удалось заставить перечисления работать в win32com, но я буду изучать это дальше, поскольку это будет очень полезно.

WV_Mapper 02.05.2024 11:47

Другие вопросы по теме

Объедините адреса электронной почты на основе значения ячейки (группируйте адреса, связанные с компанией, в одной строке)
Как исправить ошибку времени выполнения 91 при печати ActiveWorkBook.Name VBA?
VBA вложенный if-do- while для суммирования значений
Как мне заставить Range.Find остановиться в конце диапазона?
Поле со списком на ленте Excel: всегда отображать текущий выбор и запоминать его перед сохранением
Поле со списком на ленте Excel: как настроить обратный вызов onChange
ListBox пользовательской формы VBA — ошибка выполнения 380. Не удалось установить свойство List. Недопустимое значение свойства
Код VBA (копирование и вставка из одной таблицы Excel в другую без использования формул)
Создайте гистограмму таблицы слов
Сообщение о медленной работе книги — неиспользуемое форматирование и метаданные можно оптимизировать для повышения производительности