GemBox add image excel c#

 https://www.gemboxsoftware.com/spreadsheet/examples/excel-images/209

using GemBox.Spreadsheet;

class Program
{
    static void Main()
    {
        // If using the Professional version, put your serial key below.
        SpreadsheetInfo.SetLicense("FREE-LIMITED-KEY");

        var workbook = new ExcelFile();
        var worksheet = workbook.Worksheets.Add("Images");

        // Add small BMP image with specified rectangle position.
        worksheet.Pictures.Add("SmallImage.bmp", 50, 50, 48, 48, LengthUnit.Pixel);

        // Add large JPG image with specified top-left cell.
        worksheet.Pictures.Add("FragonardReader.jpg", "B9");

        // Add PNG image with specified top-left and bottom-right cells.
        worksheet.Pictures.Add("Dices.png", "J16", "K20");

        // Add GIF image using anchors.
        var picture = worksheet.Pictures.Add("Zahnrad.gif",
            new AnchorCell(worksheet.Columns[9], worksheet.Rows[21], 100000, 100000),
            new AnchorCell(worksheet.Columns[10], worksheet.Rows[23], 50000, 50000));

        // Set picture's position mode.
        picture.Position.Mode = PositioningMode.Move;

        // Add SVG image with specified top-left cell and size.
        picture = worksheet.Pictures.Add("Graphics1.svg", "J9", 250, 100, LengthUnit.Pixel);

        // Set picture's metadata.
        picture.Metadata.Name = "SVG Image";

        workbook.Save("Images.xlsx");
    }
}

• C#
• VB.NET

View on GitHub

Screenshot of Excel sheet with images

GemBox.Spreadsheet supports all popular image formats like PNG, JPEG, EXIF, GIF, TIFF, ISO, SVG, EMF, and WMF. However, note that only PNG, JPEG, and EMF images are supported in XLS files (old binary format).

In PDF files, the SVG images are rendered as vector graphics, resulting in smaller file sizes and better quality than bitmap images (PNG, JPEG, BMP, etc.).

Recover unsaved Notepad++ from autosave

https://www.cisdem.com/resource/recover-notepad-files.html#:~:text=Steps%20to%20recover%20unsaved%20Notepad,AppData%5CRoaming%20by%20File%20Explorer. 

Recover unsaved Notepad++ from autosave

Differing from Notepad, Notepad++ has the autosave option by default. Via menu > Settings > Preferences > Backup > Enable session snapshot and periodic backup, Notepad++ users are allowed to recover unsaved notes easily, even after restarting the app. As a bonus tip, here we’ll demonstrate how to restore unsaved files from Notepad++ using auto backup feature.

Where does Notepad++ store unsaved files?

Unsaved files in Notepad++ will be automatically backed up and saved to its temporary folder on the local disk of Windows 11/10. The Notepad++ temp files location is C:\Users\USERNAME\AppData\Roaming\Notepad++\backup.

How to recover unsaved Notepad++ files？

1. Go to the location of your unsaved Notepad++ files on your Windows PC.
2. Once you’re in the backup folder, locate the Notepad++ unsaved files you need and open them one by one for recovery.

comprimir json

 https://www.zickty.com/gziptotext

Controller.cs

 Public Function GetValue() As HttpResponseMessage

        Dim objResponse As Object = ""

      

        Dim numeroElementos As Int32 = 0

        Dim fecha As Date = Date.Now

        Dim departamentoId As String = ""

 

        Dim paramOption As String = Convert.ToString(Request.Headers.GetValues("paramOption").FirstOrDefault())

        If Request.Headers.Contains("fecha") Then

            fecha = Convert.ToString(Request.Headers.GetValues("fecha").FirstOrDefault())

        End If

        

Select Case paramOption

Case "ObtenerInfoDisponibles"

                Dim jResults As String = ObtenerInfoDisponiblesSerializar(fecha)

                objResponse = CompressJsonData(jResults)

        End Select

    End Function

Private Function ObtenerInfoDisponiblesSerializar(fecha As String) As String

        Dim sqlQuery As New System.Text.StringBuilder

        sqlQuery.Append("ObtenerInfoDisponibles " + fecha & vbCrLf)

        Dim dt As DataTable = MSSQL1.QueryDataTable(conexion, sqlQuery.ToString())

        If dt.Rows.Count > 0 Then

            Return JsonConvert.SerializeObject(dt)

        End If

        Return Nothing

    End Function

    Public Function CompressGZip(input As String, Optional encoding As Encoding = Nothing) As Byte()

        encoding = If(encoding, Encoding.Unicode)

        Dim bytes As Byte() = encoding.GetBytes(input)

        Using stream As New MemoryStream()

            Using zipStream As New GZipStream(stream, CompressionMode.Compress)

                zipStream.Write(bytes, 0, bytes.Length)

                Return stream.ToArray()

            End Using

        End Using

    End Function

    Function CompressJsonData(jsonData As String) As Byte()

        Dim byteArray As Byte() = Encoding.UTF8.GetBytes(jsonData)

        Using memoryStream As New MemoryStream()

            Using gzipStream As New GZipStream(memoryStream, CompressionLevel.Optimal)

                gzipStream.Write(byteArray, 0, byteArray.Length)

            End Using

            Return memoryStream.ToArray()

        End Using

    End Function