Форум программистов, компьютерный форум, киберфорум
VBA
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.82/11: Рейтинг темы: голосов - 11, средняя оценка - 4.82
0 / 0 / 0
Регистрация: 30.01.2016
Сообщений: 4
1

Прорисовка фигуры средствами VBA в MS Office Visio

22.02.2018, 00:04. Просмотров 2285. Ответов 1
Метки нет (Все метки)


Доброй ночи!
Никак не могу разобраться как нарисовать программно фигуру.
я рисую линию по координатам из Exel, далее необходимо дорисовать (ну например до квадрата) и закрасить
Visual Basic
1
2
3
4
5
6
7
8
9
For i=1 to 10
Dim vsoS As Visio.Shape
set vsoS = Application.ActiveWindow.Page.DrawLine x, y, x1, y1 'Координаты грузятся из Exel
 vsoS.DrawLine ,,,, 'как рассчитать координаты чтобы начать из точки x1,y1 опуститься вниз до определенного положения листа?
 vsoS.DrawLine ,,,, 'как рассчитать координаты Чтобы вернуться назад на -(x1-x)?
 vsoS.DrawLine ,,,, 'как рассчитать координаты чтобы вернуться в точку х?
vsoS.CellsSRC(visSectionObject, visRowFill, visFillForegnd).FormulaU = "5"
vsoS.CellsSRC(visSectionObject, visRowFill,visFillBkgnd).FormulaU _ ="THEMEGUARD(SHADE(FillForegnd,LUMDIFF(THEME(""FillColor""),THEME(""FillColor2""))))"
next
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
22.02.2018, 00:04
Ответы с готовыми решениями:

Как убрать текст в шейпе средствами VBA в Visio?
Такая проблема, нужно в Visio создать мини програмку в VBA которая бы убирала текст внутри шейпа!...

Разработать средствами HTML, CSS справочник VBA для MS Office
Разработать с помощью средств HTML, CSS справочник VBA для MS Office с необходимыми примерами и...

Прорисовка фигуры
при указании координат нужно проверить расположение введенной точки не попала ли она на фигуру(в...

Microsoft Office Visio
Всем привет, срочно нужна книга-самоучитель по Microsoft Office Visio! Подскажите, где можно купить...

1
0 / 0 / 0
Регистрация: 30.01.2016
Сообщений: 4
05.03.2018, 15:59  [ТС] 2
Спасибо разобрался. маленько коряво но работает )))
Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
'рисуем линии (главное чтобы начинали рисоваться из координат конца предыдущей )
Set a = Application.ActiveWindow.Page.DrawLine(x , y , x1 , y1 )
Set a1 = Application.ActiveWindow.Page.DrawLine(x1 , y1 , x1 , z )
Set a2 = Application.ActiveWindow.Page.DrawLine(x1, z , x , z )
Set a3 = Application.ActiveWindow.Page.DrawLine(x , z , x , y )
ActiveWindow.DeselectAll
'выбираем
 ActiveWindow.Select a, visSelect
 ActiveWindow.Select a1, visSelect
 ActiveWindow.Select a2, visSelect
 ActiveWindow.Select a3, visSelect
'соединяем в фигуру
 Set a4 = Application.ActiveWindow.Selection
    a4.Join
'находим порядковый номер фигуры
  sh = Mid(ActiveWindow.Selection.Item(1).Name, 7, 4)
' закрашиваем
    Application.ActiveWindow.Page.Shapes.ItemFromID(sh).CellsSRC(visSectionObject, visRowFill, visFillForegnd).FormulaU = "THEMEGUARD(RGB(0,176,240))"
    Application.ActiveWindow.Page.Shapes.ItemFromID(sh).CellsSRC(visSectionObject, visRowFill, visFillBkgnd).FormulaU = "THEMEGUARD(SHADE(FillForegnd,LUMDIFF(THEME(""FillColor""),THEME(""FillColor2""))))"
    Application.ActiveWindow.Page.Shapes.ItemFromID(sh).CellsSRC(visSectionObject, visRowFill, visFillPattern).FormulaU = "1"
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
05.03.2018, 15:59

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь или здесь.

Задание в MS Office Visio
Нужно построить схему, вот задание: "Ввести матрицу SOL порядка К. Правда ли, что наибольший...

Использовать макрос (VBA Excel) в Open office либо в Libre office
Можно ли использовать макрос написанный в VBA Excel в программах OpenOffice/LibreOffice?...

office 2010 + visio 2013
Всем привет! Вообщем тут такая проблема возникла. Начал ставить Visio 2013 на комп(на нем стоит...

Не запускается Microsoft Office Visio 2007
При попытке запустить Microsoft Office Visio 2007 выдается сообщение об ошибке: "Конфигурация...

Где скачать office visio 2007 бесплатно?
Помогите, пожалуйста скачать программу

Фигуры Cisco в Visio
Собственно, интересуют cisco-фигуры. Хочу найти варианты для Visio именно этих фигур -...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.