Как маштабировать картинку по ячейке Excel?

@rfvgy · Регистрация: 26.01.2020

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

Имеется вот такой код:

VB.NET
1
2
3
4
With exl.ActiveSheet.Pictures.Insert(Path & "\1.jpg")
                .Top = exl.Cells(5, "D").Top
                .Left = exl.Cells(5, "D").Left
            End With

Он вставляет картинку в ячейку 5D, но не маштабирует по размеру этой ячейки. Как реализовать маштабирование?

@ovva · 10.08.2020, 20:46

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

Он вставляет картинку в ячейку 5D

Это не так. Рисунок вставляется на лист, а установив координаты {Top, Left} вы просто указали точку привязки рисунка (левый верхний угол). Варианты вопроса:
1. установить размеры рисунка в соответствии с размерами ячейки (ширина, высота или и то и другое)
2. установить размеры ячейки в соответствии с размерами рисунка (ширина, высота или и то и другое)

@rfvgy · 10.08.2020, 21:32 **[ТС]**

ovva, 1. установить размеры рисунка в соответствии с размерами ячейки ( и то и другое)

@ovva · 10.08.2020, 21:37

VB.NET
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Imports Exc = Microsoft.Office.Interop.Excel
Imports Microsoft.Office
'…
Private Sub Button3_Click(sender As System.Object, e As System.EventArgs) Handles Button3.Click
    Dim xl As New Exc.Application
    Dim book As Exc.Workbook = xl.Workbooks.Add
    Dim sheet As Exc.Worksheet = book.ActiveSheet
    sheet.Name = "Test"
    xl.Visible = True
    Dim pth As String = IO.Path.Combine(Application.StartupPath, "t1.png")
    Dim rn As Exc.Range = xl.Cells(5, 4)
    Dim pl As Integer = rn.Left
    Dim pt As Integer = rn.Top
    'рисунок масштабируется под размеры ячейки
    Dim xw As Single = rn.Width
    Dim xh As Single = rn.Height
    sheet.Shapes.AddPicture(pth, Microsoft.Office.Core.MsoTriState.msoFalse, Microsoft.Office.Core.MsoTriState.msoTrue, pl, pt, xw, xh)
End Sub

@rfvgy · 10.08.2020, 21:42 **[ТС]**

ovva, я все импортировал, но...

@ovva · 10.08.2020, 22:00

Посмотрите на определения Imports

@rfvgy · 10.08.2020, 22:01 **[ТС]**

ovva, я вставил в импортс то что вы написали в коде

@ovva · 10.08.2020, 22:25

rfvgy, а ссылки на библиотеки вы установили (меню: Project/Add Reference…)?

@rfvgy · 10.08.2020, 22:27 **[ТС]**

ovva, как это сделать, на какие именно библиотеки?

@UBUNTU · 10.08.2020, 22:31

rfvgy, офис и Эксель. Правой кнопкой мыши на проекте добавить ссылку раздел com

@rfvgy · 10.08.2020, 22:56 **[ТС]**

UBUNTU, ovva, все работает отлично, спасибо)

Новые блоги и статьи Все статьи Все блоги /
Новый ноутбук volvo 07.12.2025 Всем привет. По скидке в "черную пятницу" взял себе новый ноутбук Lenovo ThinkBook 16 G7 на Амазоне: Ryzen 5 7533HS 64 Gb DDR5 1Tb NVMe 16" Full HD Display Win11 Pro	Музыка, написанная Искусственным Интеллектом volvo 04.12.2025 Всем привет. Некоторое время назад меня заинтересовало, что уже умеет ИИ в плане написания музыки для песен, и, собственно, исполнения этих самых песен. Стихов у нас много, уже вышли 4 книги, еще 3. . .	От async/await к виртуальным потокам в Python IndentationError 23.11.2025 Армин Ронахер поставил под сомнение async/ await. Создатель Flask заявляет: цветные функции - провал, виртуальные потоки - решение. Не threading-динозавры, а новое поколение лёгких потоков. Откат?. . .	Поиск "дружественных имён" СОМ портов Argus19 22.11.2025 Поиск "дружественных имён" СОМ портов На странице: https:/ / norseev. ru/ 2018/ 01/ 04/ comportlist_windows/ нашёл схожую тему. Там приведён код на С++, который показывает только имена СОМ портов, типа,. . .	Сколько Государство потратило денег на меня, обеспечивая инсулином. Programma_Boinc 20.11.2025 Сколько Государство потратило денег на меня, обеспечивая инсулином. Вот решила сделать интересный приблизительный подсчет, сколько государство потратило на меня денег на покупку инсулинов. . . .
Ломающие изменения в C#.NStar Alpha Etyuhibosecyu 20.11.2025 Уже можно не только тестировать, но и пользоваться C#. NStar - писать оконные приложения, содержащие надписи, кнопки, текстовые поля и даже изображения, например, моя игра "Три в ряд" написана на этом. . .	Мысли в слух kumehtar 18.11.2025 Кстати, совсем недавно имел разговор на тему медитаций с людьми. И обнаружил, что они вообще не понимают что такое медитация и зачем она нужна. Самые базовые вещи. Для них это - когда просто люди. . .	Создание Single Page Application на фреймах krapotkin 16.11.2025 Статья исключительно для начинающих. Подходы оригинальностью не блещут. В век Веб все очень привыкли к дизайну Single-Page-Application . Быстренько разберем подход "на фреймах". Мы делаем одну. . .	Фото: Daniel Greenwood kumehtar 13.11.2025	Расскажи мне о Мире, бродяга kumehtar 12.11.2025 — Расскажи мне о Мире, бродяга, Ты же видел моря и метели. Как сменялись короны и стяги, Как эпохи стрелою летели. - Этот мир — это крылья и горы, Снег и пламя, любовь и тревоги, И бескрайние. . .

Как маштабировать картинку по ячейке Excel?

Решение

Решение

@rfvgy 1 / 1 / 0 Регистрация: 26.01.2020 Сообщений: 180
	10.08.2020, 21:32 [ТС]
	ovva, 1. установить размеры рисунка в соответствии с размерами ячейки ( и то и другое) 0

@rfvgy 1 / 1 / 0 Регистрация: 26.01.2020 Сообщений: 180
	10.08.2020, 21:42 [ТС]
	ovva, я все импортировал, но... Миниатюры 0

@ovva 4708 / 3661 / 857 Регистрация: 02.02.2013 Сообщений: 3,518 Записей в блоге: 2
	10.08.2020, 22:00
	Посмотрите на определения Imports 0

@rfvgy 1 / 1 / 0 Регистрация: 26.01.2020 Сообщений: 180
	10.08.2020, 22:01 [ТС]
	ovva, я вставил в импортс то что вы написали в коде 0

@ovva 4708 / 3661 / 857 Регистрация: 02.02.2013 Сообщений: 3,518 Записей в блоге: 2
	10.08.2020, 22:25
	rfvgy, а ссылки на библиотеки вы установили (меню: Project/Add Reference…)? 0

@rfvgy 1 / 1 / 0 Регистрация: 26.01.2020 Сообщений: 180
	10.08.2020, 22:27 [ТС]
	ovva, как это сделать, на какие именно библиотеки? 0

@UBUNTU 352 / 213 / 42 Регистрация: 04.02.2015 Сообщений: 1,344
	10.08.2020, 22:31
	Сообщение было отмечено rfvgy как решение Решение rfvgy, офис и Эксель. Правой кнопкой мыши на проекте добавить ссылку раздел com 1

@rfvgy 1 / 1 / 0 Регистрация: 26.01.2020 Сообщений: 180
	10.08.2020, 22:56 [ТС]
	UBUNTU, ovva, все работает отлично, спасибо) 0