How to replace an existing image in Excel worksheet using C#,VB.NET?

using Syncfusion.XlsIO;
 
namespace ReplaceImage
{
    class Program
    {
        static void Main(string[] args)
        {
            //Initialize ExcelEngine
            using (ExcelEngine = new ExcelEngine())
            {
                //Initialize IApplication
                IApplication application = excelEngine.Excel;
                application.DefaultVersion = ExcelVersion.Xlsx;
 
                //Opening existing workbook
                IWorkbook workbook = application.Workbooks.Open("../../Data/Sample.xlsx");
                IWorksheet worksheet = workbook.Worksheets[0];
                worksheet["A1"].Text = "The replaced image";
 
                //Gathering information of existing image
                IPictureShape oldImage = worksheet.Pictures[0];
                int leftPosition = oldImage.Left;
                int topPosition = oldImage.Top;
                int height = oldImage.Height;
                int width = oldImage.Width;
 
                //Removing the existing image
                worksheet.Pictures[0].Remove();
 
                //Replace the image with new one and assigning its bounds
                IPictureShape newImage = worksheet.Pictures.AddPicture("../../Data/NewImage.png");
                newImage.Left = leftPosition;
                newImage.Top = topPosition;
                newImage.Height = height;
                newImage.Width = width;
 
                //Save the workbook
                workbook.SaveAs("Output.xlsx");
                System.Diagnostics.Process.Start("Output.xlsx");
            }
        }
    }
}

Imports Syncfusion.XlsIO
 
Module ReplaceImage
 
    Sub Main()
        'Initialize ExcelEngine
        Using excelEngine As ExcelEngine = New ExcelEngine()
            'Initialize IApplication
            Dim application As IApplication = excelEngine.Excel
            application.DefaultVersion = ExcelVersion.Xlsx
 
            'Opening existing workbook
            Dim workbook As IWorkbook = application.Workbooks.Open("../../Data/Sample.xlsx")
            Dim worksheet As IWorksheet = workbook.Worksheets(0)
            worksheet("A1").Text = "The replaced image"
 
            'Gathering information of existing image
            Dim oldImage As IPictureShape = worksheet.Pictures(0)
            Dim leftPosition As Integer = oldImage.Left
            Dim topPosition As Integer = oldImage.Top
            Dim height As Integer = oldImage.Height
            Dim width As Integer = oldImage.Width
 
            'Removing the existing image
            worksheet.Pictures(0).Remove()
 
            'Replace the image with new one and assigning its bounds
            Dim newImage As IPictureShape = worksheet.Pictures.AddPicture("../../Data/NewImage.png")
            newImage.Left = leftPosition
            newImage.Top = topPosition
            newImage.Height = height
            newImage.Width = width
 
            'Save the workbook
            workbook.SaveAs("Output.xlsx")
            System.Diagnostics.Process.Start("Output.xlsx")
        End Using
    End Sub
End Module