Выявление длины фигуры в px

@Figures · Регистрация: 11.03.2024

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

Здравствуйте,

Нужен макрос на выявление длины фигуры в px.

При проигрывании макроса, макрос должен узнать длину выделенной фигуру (Shape, Line - линия), от ее основания до конца, и дает всп. сообщение о том, какая длина у линии в пикселях.

shanemac51 · 11.03.2024, 13:43

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

макрос должен узнать длину выделенной фигуру

обычно требуется, чтобы вы выложили пример файла с несколькими линиями

@andris2 · 11.03.2024, 21:53

Размеры графических элементов обычно задаются как Ширина х Высота, поэтому чтобы вычислить длину отрезка нужно еще знать угол ее наклона. Ну, это и школьник знает.
С использованием библиотеки GDI+ проблем нет, в VBA не приходилось вычислять
И чего только не приходит на ум пытливым разрабам!

Добавлено через 19 минут
Можно узнать длину отрезка, если вычислять ее с помощью фукции API GetCursorPos(), который возвращает текущую позицию курсора, но для этого нужно щелкнуть курсором в начале и в конце отрезка, а дальше - простая геометрия.
VBA вообще слабо приспособлен для работы с графикой.

Добавлено через 22 минуты
А вообще-то вопрос такой. А чем линия создавалась, или это просто кусок битмапа?

@АЕ · 11.03.2024, 22:07

любой отрезок (как показанный) это прямоугольный объект. Его длина это диагональ (формула понятна), а объект имеет размеры. Во что твипы переводить не понятно и не задано. Все.

@andris2 · 11.03.2024, 22:10

Сообщение от АЕ

Во что твипы переводить не понятно

Он же просит в пикселях.
Ваше решение верно, если отрезок точно вписан в прямоугольник. Тут даже придумывать ничего не надо.

@Jamaica · 11.03.2024, 22:15

Visual Basic

Public Sub asdas()
    Dim w As Long
    Dim h As Long
    
    With ActiveWindow
        If TypeName(.Selection) = "Line" Then
            h = .PointsToScreenPixelsY(.Selection.Height)
            w = .PointsToScreenPixelsX(.Selection.Width)
            Debug.Print w, h
            MsgBox "Selection is '" & .Selection.Name & "', lenght = " & Sqr(h ^ 2 + w ^ 2) & " px."
        End If
    End With
End Sub

Не?

@andris2 · 11.03.2024, 22:20

Jamaica, ну да, элементарная геометрия

Я задавался вопросом, а вдруг линия создавалась программно? Тогда определить координаты таким способом не удастся

@Jamaica · 11.03.2024, 22:22

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

а вдруг линия создавалась программно? Тогда определить координаты таким способом не удастся

удастся, ровно так-же.

@andris2 · 11.03.2024, 22:26

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

удастся, ровно так-же.

Не соглашусь. Ровно также не получится. Нужно искать координаты начала и конца, кроме случая, если это просто картинка в которую вписан отрезок

@АЕ · 11.03.2024, 22:27

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

Ваше решение верно, если отрезок точно вписан в прямоугольник. Тут даже придумывать ничего не надо.

Нарисуйте в экселе отрезок не точно вписанный в прямоугольник и я вам буду рукоплескать. Отрезок есть прямоугольный объект, имеющий длину и высоту. Сделайте не точно нечто вписанное и поржем вместе.

Добавлено через 1 минуту
andris2,

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

Shape

и картинка это разные вещи.

@andris2 · 11.03.2024, 22:29

Сообщение от АЕ

Отрезок есть прямоугольный объект,

Вы говорите о картинке (битмапе), а я толкую совсем о другом. Поэтому задал ТС вопрос, чем линия создавалась.

@Jamaica · 11.03.2024, 22:36

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

Нужно искать координаты начала и конца,

ТС в вопросе указал

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

(Shape, Line - линия)

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

Visual Basic

Public Sub ыфыв()
    Dim w As Long
    Dim h As Long
    
    With Workbooks(1).ActiveSheet.Shapes.AddLine(10, 10, 250, 250).Select
        With ActiveWindow.Selection
            h = ActiveWindow.PointsToScreenPixelsY(.Height)
            w = ActiveWindow.PointsToScreenPixelsX(.Width)
            MsgBox "Selection is '" & .Name & "', lenght = " & Sqr(h ^ 2 + w ^ 2) & " px."
        End With
    End With
End Sub

@andris2 · 11.03.2024, 22:41

Вот пример, где все создается программно здесь

Добавлено через 4 минуты
Jamaica, главное, чтобы удовлетворило ТС
Я слишком углУбил вопрос

@Jamaica · 11.03.2024, 22:51

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

где все создается программно

Я уже стар, и ленив.

Пользую Grafana для визуализаций,
там мышкой натыкать можно.

@andris2 · 11.03.2024, 22:53

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

Я уже стар, и ленив

Я тоже по этому пути активно продвигаюсь

@Jamaica 1189 / 425 / 87 Регистрация: 29.03.2016 Сообщений: 1,027
	11.03.2024, 22:51	14
	Сообщение от andris2 где все создается программно Я уже стар, и ленив. Пользую Grafana для визуализаций, там мышкой натыкать можно. 0

@Figures 0 / 0 / 0 Регистрация: 11.03.2024 Сообщений: 1
		1
	Excel Выявление длины фигуры в px 11.03.2024, 12:47. Показов 523. Ответов 14 Метки нет (Все метки) Здравствуйте, Нужен макрос на выявление длины фигуры в px. При проигрывании макроса, макрос должен узнать длину выделенной фигуру (Shape, Line - линия), от ее основания до конца, и дает всп. сообщение о том, какая длина у линии в пикселях. Изображения 0

shanemac51 Модератор 11963 / 4831 / 779 Регистрация: 07.08.2010 Сообщений: 14,150 Записей в блоге: 4
	11.03.2024, 13:43	2
	Сообщение от Figures макрос должен узнать длину выделенной фигуру обычно требуется, чтобы вы выложили пример файла с несколькими линиями 0

@andris2 569 / 119 / 16 Регистрация: 04.10.2015 Сообщений: 451
	11.03.2024, 21:53	3
	Размеры графических элементов обычно задаются как Ширина х Высота, поэтому чтобы вычислить длину отрезка нужно еще знать угол ее наклона. Ну, это и школьник знает. С использованием библиотеки GDI+ проблем нет, в VBA не приходилось вычислять И чего только не приходит на ум пытливым разрабам! Добавлено через 19 минут Можно узнать длину отрезка, если вычислять ее с помощью фукции API GetCursorPos(), который возвращает текущую позицию курсора, но для этого нужно щелкнуть курсором в начале и в конце отрезка, а дальше - простая геометрия. VBA вообще слабо приспособлен для работы с графикой. Добавлено через 22 минуты А вообще-то вопрос такой. А чем линия создавалась, или это просто кусок битмапа? 0

@АЕ ᴁ® 3650 / 2006 / 427 Регистрация: 13.12.2016 Сообщений: 6,900 Записей в блоге: 5
	11.03.2024, 22:07	4
	любой отрезок (как показанный) это прямоугольный объект. Его длина это диагональ (формула понятна), а объект имеет размеры. Во что твипы переводить не понятно и не задано. Все. 0

@andris2 569 / 119 / 16 Регистрация: 04.10.2015 Сообщений: 451
	11.03.2024, 22:10	5
	Сообщение от АЕ Во что твипы переводить не понятно Он же просит в пикселях. Ваше решение верно, если отрезок точно вписан в прямоугольник. Тут даже придумывать ничего не надо. 0

@andris2 569 / 119 / 16 Регистрация: 04.10.2015 Сообщений: 451
	11.03.2024, 22:20	7
	Jamaica, ну да, элементарная геометрия Я задавался вопросом, а вдруг линия создавалась программно? Тогда определить координаты таким способом не удастся 0

@Jamaica 1189 / 425 / 87 Регистрация: 29.03.2016 Сообщений: 1,027
	11.03.2024, 22:22	8
	Сообщение от andris2 а вдруг линия создавалась программно? Тогда определить координаты таким способом не удастся удастся, ровно так-же. 0

@andris2 569 / 119 / 16 Регистрация: 04.10.2015 Сообщений: 451
	11.03.2024, 22:26	9
	Сообщение от Jamaica удастся, ровно так-же. Не соглашусь. Ровно также не получится. Нужно искать координаты начала и конца, кроме случая, если это просто картинка в которую вписан отрезок 0

@АЕ ᴁ® 3650 / 2006 / 427 Регистрация: 13.12.2016 Сообщений: 6,900 Записей в блоге: 5
	11.03.2024, 22:27	10
	Сообщение от andris2 Ваше решение верно, если отрезок точно вписан в прямоугольник. Тут даже придумывать ничего не надо. Нарисуйте в экселе отрезок не точно вписанный в прямоугольник и я вам буду рукоплескать. Отрезок есть прямоугольный объект, имеющий длину и высоту. Сделайте не точно нечто вписанное и поржем вместе. Добавлено через 1 минуту andris2, Сообщение от Figures Shape и картинка это разные вещи. 0

@andris2 569 / 119 / 16 Регистрация: 04.10.2015 Сообщений: 451
	11.03.2024, 22:29	11
	Сообщение от АЕ Отрезок есть прямоугольный объект, Вы говорите о картинке (битмапе), а я толкую совсем о другом. Поэтому задал ТС вопрос, чем линия создавалась. 0

	11.03.2024, 22:53

@andris2 569 / 119 / 16 Регистрация: 04.10.2015 Сообщений: 451
	11.03.2024, 22:41	13
	Вот пример, где все создается программно здесь Добавлено через 4 минуты Jamaica, главное, чтобы удовлетворило ТС Я слишком углУбил вопрос 0

@andris2 569 / 119 / 16 Регистрация: 04.10.2015 Сообщений: 451
	11.03.2024, 22:53	15
	Сообщение от Jamaica Я уже стар, и ленив Я тоже по этому пути активно продвигаюсь 0