Автофигура - линия со стрелкой - Microsoft Office Excel

BaygeldinM · 15.02.2011, 16:26

Здравствуйте. Не знаю, стоило ли из-за этого создавать новую тему, но ответа поиском не нашел.
Подскажите, пожалуйста, как через VBA вставить на рабочий лист автофигуру стрелки (просто линия со стрелкой на конце, такие обычно используются в качестве соединителей между другими автофигурами). Видел на форуме решение для линии без стрелки (метод AddConnector), только, как я понял существует 4 типа линий-коннекторов (msoConnectorStraight, msoConnectorCurve, msoConnectorElbow, msoConnectorTypeMixed), и там нет линии-коннектора со стрелкой. Нужен именно коннектор, а не какая-либо другая автофигура со стрелкой.

EducatedFool · 15.02.2011, 17:57

А записать макрос не пробовали, вставив этот коннектор вручную?

Здесь есть пример рисования стрелок макросом: http://excelvba.ru/dimensions

BaygeldinM · 16.02.2011, 09:44

Да, я пробовал, только почему-то макрос получается пустым. Пример по ссылке выглядит здорово, но я работаю в Excel 2007. В общем, все еще не понятно, как нарисовать такой коннектор.

BaygeldinM · 16.02.2011, 10:04

Все, я понял как это сделать. У только что созданного коннектора есть свойство ".Line.EndArrowheadStyle". Надо было просто присвоить ему значение msoArrowheadTriangle

SAS888 · 16.02.2011, 10:07

Код:

Sub Стрелка()
    Dim sh As Shape
    Set sh = ActiveSheet.Shapes.AddLine(30, 8, 168#, 30)
    sh.Line.EndArrowheadStyle = msoArrowheadTriangle
End Sub

15.02.2011, 16:26	#1
BaygeldinM Пользователь Регистрация: 09.02.2011 Сообщений: 10	Автофигура - линия со стрелкой Здравствуйте. Не знаю, стоило ли из-за этого создавать новую тему, но ответа поиском не нашел. Подскажите, пожалуйста, как через VBA вставить на рабочий лист автофигуру стрелки (просто линия со стрелкой на конце, такие обычно используются в качестве соединителей между другими автофигурами). Видел на форуме решение для линии без стрелки (метод AddConnector), только, как я понял существует 4 типа линий-коннекторов (msoConnectorStraight, msoConnectorCurve, msoConnectorElbow, msoConnectorTypeMixed), и там нет линии-коннектора со стрелкой. Нужен именно коннектор, а не какая-либо другая автофигура со стрелкой.

15.02.2011, 17:57	#2
EducatedFool Программист VBA СуперМодератор Регистрация: 13.07.2008 Сообщений: 6,856	А записать макрос не пробовали, вставив этот коннектор вручную? Здесь есть пример рисования стрелок макросом: http://excelvba.ru/dimensions __Полезные надстройки для Excel. Парсинг сайтов и файлов. Макросы любой сложности на заказ. Мониторинг цен конкурентов

16.02.2011, 10:07	#5
SAS888 Старожил Регистрация: 05.12.2007 Сообщений: 4,180	Код: `Sub Стрелка() Dim sh As Shape Set sh = ActiveSheet.Shapes.AddLine(30, 8, 168#, 30) sh.Line.EndArrowheadStyle = msoArrowheadTriangle End Sub` Чем шире угол зрения, тем он тупее.

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
Часы с плавно передвигающейся секундной стрелкой	Sh@rky	Общие вопросы Delphi	11	01.12.2010 15:05
отследить нажатие кнопки со стрелкой для раскрытия поля со списком	Bezdar	Microsoft Office Excel	4	16.03.2010 12:47
Линия	SheriffCat	Microsoft Office Word	8	22.10.2009 19:20
Линия тренда	maxic	Microsoft Office Excel	0	15.09.2009 18:23

16.02.2011, 09:44	#3
BaygeldinM Пользователь Регистрация: 09.02.2011 Сообщений: 10	Да, я пробовал, только почему-то макрос получается пустым. Пример по ссылке выглядит здорово, но я работаю в Excel 2007. В общем, все еще не понятно, как нарисовать такой коннектор.

16.02.2011, 10:04	#4
BaygeldinM Пользователь Регистрация: 09.02.2011 Сообщений: 10	Все, я понял как это сделать. У только что созданного коннектора есть свойство ".Line.EndArrowheadStyle". Надо было просто присвоить ему значение msoArrowheadTriangle