Сохранение картинок в Excel без сжатия на C#?

[vik_S]

Здравствуйте, средствами С# создаю Excel файл, в ячейке есть картинка. При сохранении картинка сжимается. Вопрос вот в чем, в Excel есть возможность сохранять картинки в документе без сжатия, как на C# включить такую возможность? Спасибо.

[EducatedFool]

Сохраните открытый файл Excel с формате HTML - все картинки выгрузятся в отдельную папку
Правда, потом фиг разберешь, где какая картинка, если их несколько в файле было

[vik_S]

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

Сохраните открытый файл Excel с формате HTML - все картинки выгрузятся в отдельную папку
Правда, потом фиг разберешь, где какая картинка, если их несколько в файле было

Не, Вы видимо не так поняли вопрос. Я создаю файл Excel с картинкой внутри, программно на С#. Картинка сжимается, но в самом Excel есть опция "Не сжимать картинки". Как программно на С# эту опцию активировать?

[Alex11223]

Зависит от того как создаете: COM Interop, библиотеки основанные на OpenXML API, ...

[vik_S]

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

Зависит от того как создаете: COM Interop, библиотеки основанные на OpenXML API, ...

Создаю через COM Interop

[Alex11223]

Может быть никак.
Тут так считают https://social.msdn.microsoft.com/Fo...?forum=worddev

[vik_S]

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

Может быть никак.
Тут так считают https://social.msdn.microsoft.com/Fo...?forum=worddev

Видимо что так... спасибо.

[doober]

Я так вставляю без проблем.

  Imports Excel = Microsoft.Office.Interop.Excel
    '----------------------------------------
    Sub InsertPhoto(ByRef cell As Excel.Range, ByVal PicturePath As String, img As System.Drawing.Image)
        Dim dh = 1, w = 0, h = 0, WW = 0, HH = 0
        Try
            img.Save(PicturePath)
            Dim sha As Excel.Shape
            sha = cell.Worksheet.Shapes.AddPicture(PicturePath, True, True, _
            cell.Left - 1, cell.Top - 1, img.Width - 2, img.Height - 2)
            sha.ScaleWidth(1, -1)
            sha.ScaleHeight(1, -1)
            With sha
                .LockAspectRatio = -1
                .Top = cell.Top + dh
                w = .Width
                h = .Height
                WW = cell.Width - 2 * dh
                HH = cell.Height - 2 * dh

                .Height = h * cell.Width / w
                .Width = WW        '
                .Left = cell.Left        '
                If .Height > cell.Height Then
                    .Height = cell.Height
                End If

            End With
            IO.File.Delete(PicturePath)
        Catch ex As Exception
        End Try
    End Sub

[vik_S]

Спасибо.

[vik_S]

Здравствуйте, а как прочитать картинки, что бы размер картинки был оригинальный можно? Пробовал через CopyPicture и потом считываю через Clipboard.GetImage(), но картинка размером как и в документе Excel на странице, а как сделать размером оригинала?