Рисование автофигур - Microsoft Office Excel

OMEN_6666 · 12.11.2010, 01:20

Люди, подскажите, пожалуйста, как нарисовать прямую, используя макрос.
Например, есть координаты n точек (x,y) (столбец А содержит координаты x, столбец B - координаты y). Нужно последовательно соединить все точки прямыми линиями с использованием макроса.

Skif-F · 12.11.2010, 07:51

Примерно так:

Код:

Sub Макрос1()
    Dim WS As Worksheet
    
    Set WS = ActiveSheet
    WS.Shapes.AddConnector Type:=msoConnectorStraight, _
            BeginX:=62, BeginY:=45, _
            EndX:=34, EndY:=54
End Sub

Обернуть в цикл, надеюсь, сможешь?

OMEN_6666 · 12.11.2010, 20:37

Skif-F, огромное спасибо! Получилось и в цикл замкнуть. А для чего нужны нижние подчеркивания?

VictorM · 12.11.2010, 20:44

Цитата:

А для чего нужны нижние подчеркивания?

разрыв, перенос длинной строки кода VBA - пробел + _ + Enter

OMEN_6666 · 12.11.2010, 22:31

А-а-а, понятно, спасибо за просвещение. Если не сложно, можете скинуть ссылку на какой-нибудь путевый справочник или словарь объектов, свойств, процедур и т.д. VBA - а то я в этом деле новичок: раньше только на Pascalе писал.

VictorM · 12.11.2010, 22:41

Посмотрите ЗДЕСЬ

OMEN_6666 · 12.11.2010, 23:27

VictorM, Спасибо, жаль, что там про Shapes ничего нет.

VictorM · 12.11.2010, 23:34

Цитата:

жаль, что там про Shapes ничего нет

Инет бесконечен и инфы в нем море))
Я дал Вам ссылку на ресурс, которым сам часто пользуюсь. Хорошая, качественная справка, без лишней "воды". Ну, а Shapes - это уже можно поискать конкретно.

OMEN_6666 · 12.11.2010, 23:37

спасибо, буду потихоньку осваиваться, а то словарный запас VBA пока скудноват

12.11.2010, 01:20	#1
OMEN_6666 Пользователь Регистрация: 26.10.2010 Сообщений: 34	Рисование автофигур Люди, подскажите, пожалуйста, как нарисовать прямую, используя макрос. Например, есть координаты n точек (x,y) (столбец А содержит координаты x, столбец B - координаты y). Нужно последовательно соединить все точки прямыми линиями с использованием макроса.

12.11.2010, 07:51	#2
Skif-F Форумчанин Регистрация: 24.03.2010 Сообщений: 349	Примерно так: Код: `Sub Макрос1() Dim WS As Worksheet Set WS = ActiveSheet WS.Shapes.AddConnector Type:=msoConnectorStraight, _ BeginX:=62, BeginY:=45, _ EndX:=34, EndY:=54 End Sub` Обернуть в цикл, надеюсь, сможешь? Нет нерешаемых задач - есть недостаток времени и данных!

12.11.2010, 22:41	#6
VictorM Старожил Регистрация: 15.05.2008 Сообщений: 2,058	Посмотрите ЗДЕСЬ "Дайте людям рыбы, и вы накормите их на весь день; научите их ловить рыбу - и вы накормите их на всю жизнь" "Большое спасибо" - Z261597841314, R208907249777, U447361470499

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
Рисование автофигур в документах Word	Sasha_Smirnov	Microsoft Office Word	27	26.02.2014 22:51
Рисование	Granus	Assembler - Ассемблер (FASM, MASM, WASM, NASM, GoASM, Gas, RosAsm, HLA) и не рекомендуем TASM	32	30.06.2009 23:23
Вытаскивание слов из автофигур	Busine2009	Microsoft Office Word	4	28.05.2009 07:15
Рисование	Granus	Общие вопросы Delphi	2	24.12.2008 07:44
Как настроить печать автофигур в ms word???	181988	Помощь студентам	1	08.09.2008 13:42

12.11.2010, 20:37	#3
OMEN_6666 Пользователь Регистрация: 26.10.2010 Сообщений: 34	Skif-F, огромное спасибо! Получилось и в цикл замкнуть. А для чего нужны нижние подчеркивания?

12.11.2010, 22:31	#5
OMEN_6666 Пользователь Регистрация: 26.10.2010 Сообщений: 34	А-а-а, понятно, спасибо за просвещение. Если не сложно, можете скинуть ссылку на какой-нибудь путевый справочник или словарь объектов, свойств, процедур и т.д. VBA - а то я в этом деле новичок: раньше только на Pascalе писал.

12.11.2010, 23:27	#7
OMEN_6666 Пользователь Регистрация: 26.10.2010 Сообщений: 34	VictorM, Спасибо, жаль, что там про Shapes ничего нет.

12.11.2010, 23:37	#9
OMEN_6666 Пользователь Регистрация: 26.10.2010 Сообщений: 34	спасибо, буду потихоньку осваиваться, а то словарный запас VBA пока скудноват