Определение координат линии в условных единицах

@mv6677 · Регистрация: 06.12.2017

Студворк — интернет-сервис помощи студентам

Доброе утро форумчане.
Помогите с решением.

Есть макрос, строящий диаграмму по внешнему виду фигуры-линии (правда линия строится - зеркально перевернутой, но это не страшно).
Однако тут есть нюанс.
Этот макрос, в качестве единиц измерения - использует пойнты.
А требуется использовать не пойнты, а какие-то свои условные единицы.

Как определить координаты узлов линии - по условным единицам измерения ?
(В файле - я подсветил ячейки с условными координатами Х и Y - желтым цветом. И показал - как должна выглядеть диаграмма в таком случае.)

@Burk · 16.12.2017, 20:01

Сообщение от mv6677

(Только не говорите, что 700)

И не скажу, по поводу преобразования пойнтов в текст это к гуманоидам высшей цивилизации, я ещё не дорос. А может хватит нести ахинею?

@mv6677 · 16.12.2017, 20:06 **[ТС]**

Burk, не подскажете все-таки - что делает ваш макрос, который вы привели в одном из сообщений.

(Я вам несколько раз этот вопрос задавал - вы так и не ответили.)

@Burk · 16.12.2017, 20:30

Сообщение от mv6677

(Я вам несколько раз этот вопрос задавал - вы так и не ответили.

А я вам несколько раз писал, что удалите числа из желтых ячеек и запустите его, вы так и не удосужились? Даже начинающие программисты запускают макросы, которые им присылают, а уж потом спрашивают непонятные им вещи или говорят, что хотели бы видеть другой результат. Мой макрос, минуя ваши пойнты, по таблице исходных узлов расставляет ваши условные единицы. Даже если вам это не нужно, там есть коды, которые вычисляют минимальные и максимальные значения по осям, чтобы определять размах графика не 800-100=700, а

Visual Basic
1
2
РазмахПоХ=Xmax-Xmin,
РазмахПоY=Ymax-Ymin

@mv6677 · 16.12.2017, 20:35 **[ТС]**

Сообщение от Burk

А я вам несколько раз писал, что удалите числа из желтых ячеек и запустите его, вы так и не удосужились?

Да я-то удосужился.

Только ваш макрос - не имеет ни малейшего отношения к моей теме.
Я задавал - совершенно другой вопрос и несколько раз прикреплял файл с подробнейшими пояснениями.
Только вы судя по всему - его даже не открыли.

@Burk · 16.12.2017, 21:34

Сообщение от mv6677

Только ваш макрос - не имеет ни малейшего отношения к моей теме.

я вам писал - не нравится выкиньте, а вы снова спрашиваете про него.
Ваши подробнейшие объяснения тоже открывал, но лучше бы вы просто отвечали на поставленные вопросы без повторения подробнейших объяснений. Про это я тоже писал. И, вообще, может пора прекратить обсуждения по этой теме, раз вы слышите только себя. Ваши пойнты - это доставать правое ухо левой рукой через голову, если у вас есть исходные координаты. Опять же удачи.

@OLEGOFF · 17.12.2017, 00:35

mv6677, вы наверное так хотели?

@mv6677 · 17.12.2017, 01:52 **[ТС]**

OLEGOFF, нет.
В своем файле - вы строите полилинию.
Мне ее строить не надо, она уже нарисована.

Нужно только перенести содержимое желтых ячеек - в диапазон Z32:AA46 для каждого узла.
В файле - все детально описано.

@Alex77755 · 17.12.2017, 16:24

Как я понял. Добавил на лист Шапе "ыыы"

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Sub Макрос1()
'
' Макрос1 Макрос
m = [z9..aa15].Value
Set s = ActiveSheet.Shapes("ыыы")
With s
      For r = 1 To UBound(m)
        If Len(m(r, 1)) > 0 Then
              .Left = m(r, 1)
              .Top = m(r, 2)
              [z31].Offset(r) = Cells(.BottomRightCell.Row, 6)
              [z31].Offset(r, 1) = Cells(49, .TopLeftCell.Column)
        End If
      Next r
End With
End Sub

@Alex77755 · 17.12.2017, 16:27

добавил файл

@mv6677 · 17.12.2017, 19:13 **[ТС]**

Alex77755, а вот теперь все заработало идеально.
Спасибо за код.

@Alex77755 · 17.12.2017, 19:47

mv6677,
Просто трудно понять вопрос. И так никогда не встречал, чтобы привязывались к координатам точки

Новые блоги и статьи Все статьи Все блоги /
Калькулятор для расчета родства russiannick 07.08.2026 1. Задача: Создать калькулятор для расчета родства. Родственных связей существует 8 ступеней, такие как: p - отец P - мать q - муж Q - жена b - брат B - сестра s - сын S - дочь	Мир по моей воле kumehtar 07.08.2026 Когда-то кажется, что всё просто. Ты весь такой светлый. Причиняешь добро. Борешься за справедливость в этом тёмном мире. Потом начинаешь замечать одну неприятную вещь. Почти каждый хороший. . .	Кредитный калькулятор Maks 05.08.2026 Решение задачи по прикладной информатике средствами 1С. Задача: Напишите приложение-калькулятор, которое помогает рассчитывать параметры кредита для аннуитетного и дифференцированного видов. . .	У нас сейчас поговорку "Опять 25" нужно переделать на "Опять +35". kumehtar 04.08.2026 С ностальгией вспоминаю времена моего детства, когда у нас и правда +25 - была максимальная температура летом. Раньше +25 °C реально казались вершиной жары, когда можно было весь день пропадать на. . .
Как ИИ начал спорить и врать (возможно почуяв опасность для себя от индустрии - уход от электроники). Hrethgir 04.08.2026 Недельный диалог, на фоне событий с НПЗ. Да, из спирта можно получать бензин, и это не сложно. Но потом в схеме я решил избавиться от насоса, при этом полностью сделав контроль подачи спирта в. . .	Термопринтер QR701 Argus19 03.08.2026 Термопринтер QR701 Купил два термопринтера QR701. На сэлф-тесте написано: Language: PC936 (GB18030). Что означает, что принтеры могут печатать только латиницу и китайские иероглифы. Так же. . .	Создание формы заимствованного документа Maks 03.08.2026 Задача: Необходимо создать собственную форму заимствованного документа. На форме должен быть реквизит "Покупатель", а также табличная часть со следующими реквизитами: - Расчетный счет покупателя. . .	Задача предоставления скидок покупателям Maks 03.08.2026 Задача: В документе "Продажи" необходимо реализовать функционал предоставления скидок покупателям. Скидка должна автоматически рассчитываться и подставляться в соответствующее поле при выборе. . .

@mv6677 0 / 0 / 0 Регистрация: 06.12.2017 Сообщений: 49
	16.12.2017, 20:06 [ТС]
	Burk, не подскажете все-таки - что делает ваш макрос, который вы привели в одном из сообщений. (Я вам несколько раз этот вопрос задавал - вы так и не ответили.) 0

@mv6677 0 / 0 / 0 Регистрация: 06.12.2017 Сообщений: 49
	17.12.2017, 19:13 [ТС]
	Alex77755, а вот теперь все заработало идеально. Спасибо за код. 0

@Alex77755 11525 / 3812 / 683 Регистрация: 13.02.2009 Сообщений: 11,229
	17.12.2017, 19:47
	mv6677, Просто трудно понять вопрос. И так никогда не встречал, чтобы привязывались к координатам точки 0

Определение координат линии в условных единицах

Решение