Как растянуть картинку на определенное количество ячеек в excel?

@black96zm · Регистрация: 15.12.2016

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

Есть метод который добавляет картинку в excel файл но не растягивает её в определенном диапазоне ячеек, как это можно сделать? Вот функция:

C#
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
public void WriteShape(Excel.Picture shape, int curRow)
        {
            try
            {
 
                this.SelectCells("B13", "AE42");
                int width = Convert.ToInt32(this.range.Width) - 5;
                int height = Convert.ToInt32(this.range.Height) - 5;
 
 
 
                Excel.Picture pic = shape;
 
 
 
                int width = 820;
                int height = 405;              
 
                int oneCellWidth = width / 29;
                int oneCellHeight = height / 26;
 
                float ratioX = 0;
                float ratioY = 0;
                float ratio = 1;
 
                if ((float)pic.Width > (float)width)
                {
                    ratioX = (float)width / (float)pic.Width;
                    ratio = ratioX;
                }
                if ((float)pic.Height > (float)height)
                {
                    ratioY = (float)height / (float)pic.Height;
                    ratio = ratioY;
                }
 
                if (ratioX != 0 && ratioY != 0) ratio = Math.Min(ratioX, ratioY);
 
                int left = Convert.ToInt32(width * 0.5 - pic.Width * 0.5 * ratio);
                int top = Convert.ToInt32(height * 0.5 - pic.Height * 0.5 * ratio);
 
                int colPaste = left / oneCellWidth;
                int rowPaste = Convert.ToInt32(top / oneCellHeight);
 
                pic.Width = Convert.ToInt32(pic.Width * ratio);
                pic.Height = Convert.ToInt32(pic.Height * ratio);
 
                pic.Left = left;
                pic.Top = top;
 
                pic.Copy();               
 
 
                this.SelectCell(String.Format("{0}{1}", "B", curRow - 3));//rowPaste == 0 ? curRow : curRow + rowPaste));
 
                //this.SelectCell(String.Format("B{0}", curRow));
                System.Threading.Thread.Sleep(1500);
                this.xlWorkSheet.Paste(this.range, pic);
                System.Threading.Thread.Sleep(1500);
            }
            catch (Exception ex) { LOG.LogPrint.WriteLog(String.Format("{0}{1}{2}", "Ошибка при копировании картинки в документ!", Environment.NewLine, ex.ToString())); }
        }

@ViterAlex · 21.12.2021, 11:58

Из кода непонятно, как быть с соотношением сторон? Если изображение не вписывается в выделенный диапазон, как изменять размер? Чтобы вписался по ширине или по высоте?
Размер изображения нужно вычислять, исходя из координат верхней левой и нижней правой ячеек в выделении.

Добавлено через 29 минут
Предложу такой вариант. Переписал из VBA, не тестировал, но на VBA работает:

C#
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
/// <summary>
/// Вставка изображения в заданный диапазон ячеек
/// </summary>
/// <param name="path">Путь к файлу изображения</param>
/// <param name="sel">Диапазон ячеек</param>
/// <param name="mode">Режим подгонки размера</param>
static void InsertPicture(string path, Excel.Range sel, AspectRatioMode mode)
{
    var xlSheet = sel.Worksheet;
    var lastCell = (Excel.Range)(xlSheet.Cells[sel.Row + sel.Rows.Count - 1, sel.Column + sel.Columns.Count - 1]);
    var w = lastCell.Left + lastCell.Width - sel.Left;
    var h = lastCell.Top + lastCell.Height - sel.Top;
    var pic =(Excel.Shape)xlSheet.Shapes.AddPicture(path,
        LinkToFile: 0,
        SaveWithDocument: Microsoft.Office.Core.MsoTriState.msoTrue,
        Left: sel.Left,
        Top: sel.Top,
        Width: -1, Height: -1);
    var ar = pic.Width / pic.Height;
    switch (mode)
    {
        case AspectRatioMode.None:
            pic.LockAspectRatio = Microsoft.Office.Core.MsoTriState.msoFalse;
            break;
        case AspectRatioMode.FitToRows:
            pic.LockAspectRatio = Microsoft.Office.Core.MsoTriState.msoTrue;
            w /= ar;
            break;
        case AspectRatioMode.FitToColumns:
            pic.LockAspectRatio = Microsoft.Office.Core.MsoTriState.msoTrue;
            h *= ar;
            break;
    }
    pic.Width = w;
    pic.Height = h;
}
enum AspectRatioMode
{
    None,
    FitToRows,
    FitToColumns
}

@black96zm · 21.12.2021, 17:05 **[ТС]**

Только я не знаю как путь получить до картинки, у меня есть Excel.Picture который я получаю из другого excel файла в цикле

C#
1
Excel.Picture pic = (Excel.Picture)xlWorkSheetloc.Pictures(i);

@ViterAlex · 21.12.2021, 17:31

Ну тогда путь не нужен. Можно передавать объект, никакой разницы, только убрать фрагмент вставки на лист:

C#
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
static void InsertPicture(Excel.Picture pic, Excel.Range sel, AspectRatioMode mode)
{
    var xlSheet = sel.Worksheet;
    var lastCell = (Excel.Range)(xlSheet.Cells[sel.Row + sel.Rows.Count - 1, sel.Column + sel.Columns.Count - 1]);
    var w = lastCell.Left + lastCell.Width - sel.Left;
    var h = lastCell.Top + lastCell.Height - sel.Top;
    var ar = pic.Width / pic.Height;
    switch (mode)
    {
        case AspectRatioMode.None:
            pic.LockAspectRatio = Microsoft.Office.Core.MsoTriState.msoFalse;
            break;
        case AspectRatioMode.FitToRows:
            pic.LockAspectRatio = Microsoft.Office.Core.MsoTriState.msoTrue;
            w /= ar;
            break;
        case AspectRatioMode.FitToColumns:
            pic.LockAspectRatio = Microsoft.Office.Core.MsoTriState.msoTrue;
            h *= ar;
            break;
    }
    pic.Width = w;
    pic.Height = h;
}
enum AspectRatioMode
{
    None,
    FitToRows,
    FitToColumns
}

@black96zm · 21.12.2021, 17:36 **[ТС]**

Тогда я сталкиваюсь с такой проблемой

@ViterAlex · 21.12.2021, 17:42

Странный объект этот Picture. В объектной модели VBA его нет, только в Interop. Ну не используй это свойство, просто задавай ширину и высоту

Новые блоги и статьи Все статьи Все блоги /
SDL3 для Desktop (MinGW): Рисуем цветные прямоугольники с помощью рисовальщика SDL3 на Си и C++ 8Observer8 17.03.2026 Содержание блога Финальные проекты на Си и на C++: finish-rectangles-sdl3-c. zip finish-rectangles-sdl3-cpp. zip	Символические и жёсткие ссылки в Linux. algri14 15.03.2026 Существует два типа ссылок — символические и жёсткие. Ссылка в Linux — это запись в каталоге, которая может указывать либо на inode «файла-ИСТОЧНИКА», тогда это будет «жёсткая ссылка» (hard link),. . .	[Owen Logic] Поддержание уровня воды в резервуаре количеством включённых насосов: моделирование и выбор регулятора ФедосеевПавел 14.03.2026 Поддержание уровня воды в резервуаре количеством включённых насосов: моделирование и выбор регулятора ВВЕДЕНИЕ Выполняя задание на управление насосной группой заполнения резервуара,. . .	делаю науч статью по влиянию грибов на сукцессию anaschu 13.03.2026 прикрепляю статью
SDL3 для Desktop (MinGW): Создаём пустое окно с нуля для 2D-графики на SDL3, Си и C++ 8Observer8 10.03.2026 Содержание блога Финальные проекты на Си и на C++: hello-sdl3-c. zip hello-sdl3-cpp. zip Результат:	Установка CMake и MinGW 13.1 для сборки С и C++ приложений из консоли и из Qt Creator в EXE 8Observer8 10.03.2026 Содержание блога MinGW - это коллекция инструментов для сборки приложений в EXE. CMake - это система сборки приложений. Здесь описаны базовые шаги для старта программирования с помощью CMake и. . .	Как дизайн сайта влияет на конверсию: 7 решений, которые реально повышают заявки Neotwalker 08.03.2026 Многие до сих пор воспринимают дизайн сайта как “красивую оболочку”. На практике всё иначе: дизайн напрямую влияет на то, оставит человек заявку или уйдёт через несколько секунд. Даже если у вас. . .	Модульная разработка через nuget packages DevAlt 07.03.2026 Сложившийся в . Net-среде способ разработки чаще всего предполагает монорепозиторий в котором находятся все исходники. При создании нового решения, мы просто добавляем нужные проекты и имеем. . .

@black96zm 0 / 0 / 0 Регистрация: 15.12.2016 Сообщений: 48
	21.12.2021, 17:36 [ТС]
	Тогда я сталкиваюсь с такой проблемой Миниатюры 0

@ViterAlex 8952 / 4864 / 1886 Регистрация: 11.02.2013 Сообщений: 10,246
	21.12.2021, 17:42
	Странный объект этот Picture. В объектной модели VBA его нет, только в Interop. Ну не используй это свойство, просто задавай ширину и высоту 1

Как растянуть картинку на определенное количество ячеек в excel?

Решение