Вставить текст в картинку на листе в координаты точки

@sersahar · Регистрация: 04.04.2014

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

Есть картинка, она в файле ексель. Требуется вставить текст в точку на картинке, зная координаты точки (x,y)

@Catstail · 08.05.2025, 17:41

Это нужно автоматизировать? т.е. сделать программно?

@sersahar · 08.05.2025, 17:43 **[ТС]**

Да. У меня есть макрос, который по координатам точек рисует линии между этими точками. Мне требуется сейчас указать расстояние, между точками на чертеже(я его уже вычислил по формуле, остается только добавить в макрос, чтобы оно отображалось на чертеже)

@Апострофф · 08.05.2025, 18:52

sersahar, не с того конца к задаче подходите.
Об этом вам говорили уже не раз.

@sersahar · 08.05.2025, 18:53 **[ТС]**

поясните пожалуйста

@Апострофф · 08.05.2025, 18:56

Откуда взялась картинка?
Кто (и как) её рисовал?

@sersahar · 08.05.2025, 19:02 **[ТС]**

Картинка вставлена в лист. Я попробовал вставлять текст вот таким кодом. Вставляет в нужные координаты, но делает большие текстовые поля, а не просто текст.

Visual Basic
1
2
Worksheets("Карта").Shapes.AddTextbox(msoTextOrientationHorizontal, x1, y1, x2, y2) _
   TextFrame.Characters.Text = "123"

@Апострофф · 08.05.2025, 19:10

Тогда причем здесь картинка?
А поля и размер текста легко меняются макросом.

@sersahar · 08.05.2025, 19:13 **[ТС]**

тогда подскажите пожалуйста, как мне отредактировать мой код, если мне необходимо вставить не более трех символов (3 цифры)

@Апострофф · 08.05.2025, 19:15

Без файла сочинять на пустом месте?
Я пас. Может кто и сподобится, ждите...

shanemac51 · 08.05.2025, 19:53

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

как мне отредактировать мой код, если мне необходимо вставить не более трех символов (3 цифры)

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

@sersahar · 09.05.2025, 16:58 **[ТС]**

Visual Basic
1
2
3
4
5
Sub Пример()
          Worksheets("1").Shapes.AddTextbox(msoTextOrientationHorizontal, _
                100, 100, 30, 30) _
                .TextFrame.Characters.Text = "123"
   End Sub

Вставляет в тестовое окно с текстом в точку с координатами 100 100. Вопрос - можно ли вставить только текст, без текстового поля?

@Апострофф · 09.05.2025, 20:23

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
Sub Пример()
Dim SH As Shape
Set SH = Worksheets("1").Shapes.AddTextbox(msoTextOrientationHorizontal, 100, 100, 30, 30)
SH.Line.Visible = msoFalse: SH.Fill.Visible = msoFalse 'скрыть рамку и заливку
SH.TextFrame2.MarginBottom = 0: SH.TextFrame2.MarginLeft = 0: SH.TextFrame2.MarginRight = 0: SH.TextFrame2.MarginTop = 0 'поля
SH.TextFrame2.VerticalAnchor = msoAnchorMiddle: SH.TextFrame2.HorizontalAnchor = msoAnchorCenter 'выравнивание
SH.TextFrame2.TextRange.Font.Fill.ForeColor.RGB = vbGreen: SH.TextFrame2.TextRange.Font.Size = 24 'цвет и размер
SH.TextFrame2.WordWrap = msoFalse 'не переносить по словам
SH.TextFrame2.AutoSize = msoAutoSizeShapeToFitText 'подогнать под размер текста
SH.TextFrame2.TextRange.Text = "123"
SH.IncrementLeft -SH.Width * 0.5:SH.IncrementTop -SH.Height * 0.5 'центрируем относительно точки вставки
End Sub

Новые блоги и статьи Все статьи Все блоги /
Dev-c++5.11 Покорение вершины russiannick 02.06.2025 С утра преследовала одна мысль - вот бы выучить С++. Сказано-сделано. Окончив смену, скачал в интернете бестселлер Дэвиса Dev-C++ для чайников. Книга оказалась интересной и я скачал среду, на примере. . .	Тестирование Pull Request в Kubernetes с GitHub Actions и GKE Mr. Docker 02.06.2025 Мы все знаем, что тестирование на локальной машине или в изолированном CI-окружении — это не совсем то же самое, что тестирование в реальном кластере Kubernetes. Контекстно-зависимые ошибки, проблемы. . .	Оптимизация CMake для ускорения сборки bytestream 02.06.2025 Вы когда-нибудь ловили себя на мысле, что пока ваш проект компилируется, можно успеть сварить кофе, прочитать главу книги или даже сбегать в соседний офис? Если да, то добро пожаловать в клуб. . .	JS String.prototype.localeCompare() mr_dramm 02.06.2025 скопировано из этой темы чтобы не потерялось. localeCompare без указания локали для сравнения строк под капотом использует Intl. Collator , который работает согласно Unicode Collation Algorithm. . .	Облако проектов russiannick 01.06.2025 Слава Джа, написал прогу для компиляции. Значит написал компилятор? Обьем кода 300+ строк. Язык-яву. Вводим данные, заполняем поля, тычем радиобаттоны. И по итогу в поле результат получам листинг. . .
Rust и квантовые вычисления: интеграция с Q# и Qiskit golander 01.06.2025 Мир квантовых вычислений традиционно оставался закрытым клубом для высокоуровневых языков типа Python и специализированных DSL вроде Q#. Однако в последние годы Rust начал тихую революцию в этой. . .	Кэш REDIS и C# UnmanagedCoder 01.06.2025 Redis (Remote Dictionary Server) - это ультраскоростное хранилище данных в оперативной памяти, работающее по принципу "ключ-значение". Суть проста: данные хранятся не на диске, а прямо в RAM, что. . .	Lenovo IH110CX Rev: 1.0 motherboard manual Maks 01.06.2025	Размещения без повторений VistaSV30 31.05.2025 Код возвращает список вариантов размещений A^{k}_{n}=\frac{n!}{(n-k)!} from itertools import permutations def pwr(k, n): # Размещение без повторений (Placement without repetition) if k. . .	Redis и Node.js с TypeScript - решения для высоконагруженных систем Reangularity 31.05.2025 Redis (Remote Dictionary Server) — сверхбыстрое хранилище данных в памяти, способное обрабатывать операции за микросекунды. И что особенно важно для нас — с удивительно простым API. А теперь. . .

@sersahar 0 / 0 / 0 Регистрация: 04.04.2014 Сообщений: 35

	Вставить текст в картинку на листе в координаты точки 08.05.2025, 17:10. Показов 582. Ответов 12 Метки нет (Все метки) Есть картинка, она в файле ексель. Требуется вставить текст в точку на картинке, зная координаты точки (x,y) 0

@Catstail Супер-модератор 37960 / 20994 / 4298 Регистрация: 12.02.2012 Сообщений: 34,544 Записей в блоге: 14
	08.05.2025, 17:41
	Это нужно автоматизировать? т.е. сделать программно? 0

@sersahar 0 / 0 / 0 Регистрация: 04.04.2014 Сообщений: 35
	08.05.2025, 17:43 [ТС]
	Да. У меня есть макрос, который по координатам точек рисует линии между этими точками. Мне требуется сейчас указать расстояние, между точками на чертеже(я его уже вычислил по формуле, остается только добавить в макрос, чтобы оно отображалось на чертеже) 0

@Апострофф 9902 / 3911 / 740 Регистрация: 11.10.2011 Сообщений: 5,887
	08.05.2025, 18:52
	sersahar, не с того конца к задаче подходите. Об этом вам говорили уже не раз. 1

@sersahar 0 / 0 / 0 Регистрация: 04.04.2014 Сообщений: 35
	08.05.2025, 18:53 [ТС]
	поясните пожалуйста 0

@Апострофф 9902 / 3911 / 740 Регистрация: 11.10.2011 Сообщений: 5,887
	08.05.2025, 18:56
	Откуда взялась картинка? Кто (и как) её рисовал? 0

@Апострофф 9902 / 3911 / 740 Регистрация: 11.10.2011 Сообщений: 5,887
	08.05.2025, 19:10
	Тогда причем здесь картинка? А поля и размер текста легко меняются макросом. 0

@sersahar 0 / 0 / 0 Регистрация: 04.04.2014 Сообщений: 35
	08.05.2025, 19:13 [ТС]
	тогда подскажите пожалуйста, как мне отредактировать мой код, если мне необходимо вставить не более трех символов (3 цифры) 0

@Апострофф 9902 / 3911 / 740 Регистрация: 11.10.2011 Сообщений: 5,887
	08.05.2025, 19:15
	Без файла сочинять на пустом месте? Я пас. Может кто и сподобится, ждите... 0

Вставить текст в картинку на листе в координаты точки

Решение