//create a new workbook var workbook = new GrapeCity.Documents.Excel.Workbook(); var ws = workbook.ActiveSheet; // The base64 string of the image. var base64Img = "data:image/jpeg;base64,/9j/4AAQSkZJRgABAQEAYABgAAD/2wBDAAYEBQYFBAYGBQYHBwYIChAKCgkJChQODwwQFxQYGBcUFhYaHSUfGhsjHBYWICwgIyYnKSopGR8tMC0oMCUoKSj/2wBDAQcHBwoIChMKChMoGhYaKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCj/wAARCABtAG8DAREAAhEBAxEB/8QAHAAAAQUBAQEAAAAAAAAAAAAAAAECBAUGAwgH/8QAOhAAAQMCAwUGAggGAwAAAAAAAQACAwQRBRIhBhMxQVEHFCJhcYEysSNCUlNikZLBFRYkJTThM3Kh/8QAGwEAAQUBAQAAAAAAAAAAAAAAAAECAwQFBgf/xAAsEQACAgEEAQMEAgEFAAAAAAAAAQIDEQQSITEFEyJBBhQyURUkUiMzQmFx/9oADAMBAAIRAxEAPwD1SgAuEieegAlGUAlwk3LAESqrYafV7tfLis/UeRop/KRLGmc+kdIKqGZt45Gn3Umn19Ny9shJVSj2jsHC/FWXbD9jMMa+VjRdzwPVNs1Nday2KoSfSIf8Upu9CEyC9r5uSzl5bTOzbuJPQnjOCc17SLhwIWpXbGxZiyJprsddSCBdD4ALpE88oASgCAEJsNUmP0BX4liUVHu2vPjkNmjzWT5LysPHrGMsmrqcmUdZX1kxcN5u28g1chqfNajUv2vCNGrTQXJXxl8gIlcS/mSsa65t+55ZYcFHoe3eRmzZLn0sleougvYxPSTXJIjkmdGS+Qg30GY6re0ulvt07tlMrOMN205GSZ3xAW63usC6+2FmyUuCaNcUco2OLiXWN9B5J3qLP/ZJ7cE2GpngsY5HDy4q1V5TUaf8JcEU6YTLWjxlrnhlQMrjwcOC6jxv1ArWoWlC3TuPRbteHNuDcdV1MZJrP7KrWBwS9CCpQAlAEWtqmU0LnuPoOqoa/Vx0le5vkkrrlN8GPxEurQ/eE3doPLovONZrJ6q31Js2a64xjgfDL3inZKLjMLqmll5YPjoHDW4TpSSHfA5rm380xuUhG2xwe9o8L7C+otdW46+6uHproh9JJ7hpBIOuhKrSSm9z7JUhBpySNprHTF2p9iuNm3sh4x+wxjoY5pLdEtcpJ+3gXh8MtMDxAseKee+U/CTyK7bwnk/WXpXPlGbqaWuUaPmF1WSkuhUoDJHBjC48AorrVVHcxYrc8GVxKqNVObGzBwH7rzvzXkJ6mzbHo1dPXtRDPwlYspJLBcEof+KSMfUcR7JyI5HZ1gLlAqGOZf1RkGxLEIygfKHC/MpjljkEKhNSWRRHXKVCMeRZDTa4GsYQTqFZpvlTNTj8BOO+ODQ4JXd4j3Up+lZ/6F6T47XQ1dSa7Me2vYy1WiREDFY5ZKUiE8DqOoWV5WuydElAlpaU02Zcg5zcWI0svN5RlXNqXZrwkn0NI42UEo85l2SfIyiNqqoHK4KdDnhCSQ+rnbA5peCczwwEa2J4J8YOecfA3ckiuxeurYnvgwuhkq5xHvPAMwYQ5ujulw5x9lq6Lx09VXvrWUQWWqPLOlBioqoax5pqmnNLI+N0c7N245QDmANtDra6q6rQ2U2KEkPrsU1lFYMfrG1EdQ/C61mFPp2vEpgcHNkc4AtceAAFjfhpxWjLw1vo79pH9xBy255NAydjpBGCS4tzjzHX0WF6W1FhS+DpxIUa5eBzHcSeqkjlMRDToUL9As5ObJnw1DHxEl4I0HNdd9Oae6t5x7SjqpQa47NrA8vjY4tLS4XI6LsjPHngmyxjkCqxPDt5eWHSTmOv+1zfmPCR1EXOrss1XuPBROjJNnDKQdQVxL01tL9OS5NKFqayRacDvM5HQIdUoS9ywPUtxxxOrbDNGzJJI8Xks21rDiUUVbG22CivkrMR24ptldln176US1BIe8s+GRpuQ4EakAae69F8HGqdajFYMPXSlCWfg5naygx6DBMVip5xvHgVwbGHgQ2vmd+G9vO11Prq9NG5ep2NqtlKGYkij7UsMqtsajZ19I9sLWH6S12uFyPSx6LRsohXS2+iKFm6ePkkUNZCKqWIRSRsEjhC54A8BNwPLy9F5h5aMXZmro3q1iPuLJxs8FZihl7V2TPo6tIdYtcNVNPR214yRKa6OchIdu4xmkOgC3vE+GlfJTsXBXu1G3hF5g2EiACao8Up1A+yu4qphWkomdKe95LsKUQSyAAhJjIIgYhh0dY3W7H/AGm8fdVJ6Gqc97Q9WNcFFU0cdHUGOMl3hFyVx/1GowtUYI0NPJtZINVA2ZhJA3gBDXcOK5yviSyW+0fO+y7ajCMVwqTBtoaeKrrqciJ0c2XM4tuAW5jrp068LL0KjUrSRU0vaZ+podvDRsqygdLNO+gpqajp+692jhtzBJu4j1WB5Xy8dZbF9YCqhVRwiNjlZsxgdLPiGI4bHS1roDG6WzQHOtxBJuT0XRfycdTUqk+yGOkcZ70UXZrjv82MxGumaAyOZkUYv4nNaNHO93XXKeYo+2cYxNKLz2bt/K/BZFP+9GQ+zLjwWuDUUVXhlpG2dmIDhxC9N+xqthFyMh2vJY4bhUVGS7WSQ/WPJW4QUVtSwiKT3dliBqpBBUACAAoAQ6IEZnMXP9e//qFwP1G/7JqaX8SrnzCGTICXZTYBc58otN4R5Y7TcOfhe101XTsdDS1gFRTva7UXAzgHiLOHyXo/jra79OoS5ES3Iu8O7Ue5YXg9M2hrXTUkjTVSnE5D3qPKQWWI8NyQbjopZaGiXDiRyg8mJ2lxufGsTqql0lSKaSV0kMEs7pRECSQ0X6Xt1U9VNNUXLHQ+Kwehex/Z1uC7Nwyufeadgke22rS4AjX0suF8zrVqLcL4HKPOTeSHQLIpfuX/AKL/AMWX+yxvRPHR69bq/CJhPtl0pBAQAIAEABQAjkj6EZmcYP8AcZPQLz36hlnUs1dKvaQdbLn8lpLPBiO07ZOkx/B4ZJSIn0T99doAzMHxM8gdNeoXQeB1coT2sEnngx1T2b4BNHDuoZaV4c1zssrjmHNviPProu5jc2ui5CtNZJdD2dYGcbw/u1M+MMfvXl0hdmynhY6a8fZZfktS6a3ggthg+tRsbGwNa1rWgWAaLaLz2djnJtkaEcLkBJV+SEfEWXmypvBOPxr1vTtSqi0YcliTyXqmGggAQAIAEAIeSBGZbFj/AHCX2+QXm/n3/aka+lXsId1ixxnksrs4YhSx11DUUst93NG6N1uNiLJ2mulVbuQdGXp8MxaGQ088DZ4mNAFQyQDPbqw8Cu10/mq9uJdk0bWidgmH1jMTkqKxgiijaWRsDg4vvbxm3uFk+V8nG5YQyc22aFc3HlNjfgQj5qWnsbPoudlD9HUj8Q+S9W0T/wBGJi3fkXytEYIAEACABADSkl0BlcU/z5fUfJea+el/bkbGmftIqxiwCXpCAkUfnIYE5oxnsXgcEc5wgY08E6t4Y2fRb7KaCpHO4/deq+PlmiODFu/I0CukYIAEACABADXaJsnhAZXE/wDOl9V5p5tp6yRsaZe0irKb5LAJMMARhgCMMUAUdCMOKWDy0JLottl9JKoeY/dep+Na+3iY135GgV8hBAAgAQAIAa7VI1lYFM1isEsVS+R7CWPddpaFxXlPEX3aiVkI8M0Kboxjhsgl4H1T+SzZeE1OeIkn3MP2JnHQ/kk/hdX/AIi/cQ/Ym8bb/SP4XV/4h9xD9hvG8/kj+F1f+IfcQ/YmdvIH8kv8Jqn3EHqIfsaHHNox35J8fBanj2iS1UGuy52YDt/Uktc0G3EWXdaOl1VKMuzNslullGhVsYCABAAUANSYDCFQ+EGBCLjVCwxOhu6YTqxp9kbEODcx/ds/Sk2oTIbiL7tn6QjagyG5j+7Z+lG1BkNzH92z9KNqDIu6Z9hv5IUUgHBoHAAegTgFQAIAEAf/2Q=="; // Alternative text that describes the image for accessibility. var altText = "altText"; // Customize the image size by using the height and width arguments. // 0 Fit the image in the cell and maintain its aspect ratio. // 1 Fill the cell with the image and ignore its aspect ratio. // 2 Maintain the original image size, which may exceed the cell boundary. // 3 Customize the image size by using the height and width arguments. var sizing = 3; // Custom height of the image in pixels. var height = 60; // Custom width of the image in pixels. var width = 60; // The Y-axis coordinate of the top left corner of the sub-rectangle of the source image to draw into the destination context. var clipY = 0; // The X-axis coordinate of the top left corner of the sub-rectangle of the source image to draw into the destination context. var clipX = 0; // The height of the sub-rectangle of the source image to draw into the destination context. var clipH = 50; // The width of the sub-rectangle of the source image to draw into the destination context. var clipW = 50; // This value indicates the vertical alignment of the image. 0 = top, 1 = center, 2 = bottom. var vAlign = 1; // This value indicates the horizontal alignment of the image. 0 = left, 1 = center, 2 = right. var hAlign = 1; ws.Range["A1"].Value = "Clipped image"; ws.Range["B1"].Value = "Original image"; ws.Range["A2"].Formula = $"=IMAGE(\"{base64Img}\",\"{altText}\",{sizing},{height},{width},{clipY},{clipX},{clipH},{clipW},{vAlign},{hAlign})"; ws.Range["B2"].Formula = $"=IMAGE(\"{base64Img}\",\"{altText}\",{sizing},{height},{width})"; ws.Range["A2:B2"].RowHeightInPixel = 120; ws.Range["A2:B2"].ColumnWidthInPixel = 120; ws.PageSetup.PrintGridlines = true; // Save to a pdf file workbook.Save("ImageSparkline.pdf");
' Create a new Workbook Dim workbook As New Workbook Dim ws = workbook.ActiveSheet ' The base64 string of the image. Dim base64Img As String = "data:image/jpeg;base64,/9j/4AAQSkZJRgABAQEAYABgAAD/2wBDAAYEBQYFBAYGBQYHBwYIChAKCgkJChQODwwQFxQYGBcUFhYaHSUfGhsjHBYWICwgIyYnKSopGR8tMC0oMCUoKSj/2wBDAQcHBwoIChMKChMoGhYaKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCj/wAARCABtAG8DAREAAhEBAxEB/8QAHAAAAQUBAQEAAAAAAAAAAAAAAAECBAUGAwgH/8QAOhAAAQMCAwUGAggGAwAAAAAAAQACAwQRBRIhBhMxQVEHFCJhcYEysSNCUlNikZLBFRYkJTThM3Kh/8QAGwEAAQUBAQAAAAAAAAAAAAAAAAECAwQFBgf/xAAsEQACAgEEAQMEAgEFAAAAAAAAAQIDEQQSITEFEyJBBhQyURUkUiMzQmFx/9oADAMBAAIRAxEAPwD1SgAuEieegAlGUAlwk3LAESqrYafV7tfLis/UeRop/KRLGmc+kdIKqGZt45Gn3Umn19Ny9shJVSj2jsHC/FWXbD9jMMa+VjRdzwPVNs1Nday2KoSfSIf8Upu9CEyC9r5uSzl5bTOzbuJPQnjOCc17SLhwIWpXbGxZiyJprsddSCBdD4ALpE88oASgCAEJsNUmP0BX4liUVHu2vPjkNmjzWT5LysPHrGMsmrqcmUdZX1kxcN5u28g1chqfNajUv2vCNGrTQXJXxl8gIlcS/mSsa65t+55ZYcFHoe3eRmzZLn0sleougvYxPSTXJIjkmdGS+Qg30GY6re0ulvt07tlMrOMN205GSZ3xAW63usC6+2FmyUuCaNcUco2OLiXWN9B5J3qLP/ZJ7cE2GpngsY5HDy4q1V5TUaf8JcEU6YTLWjxlrnhlQMrjwcOC6jxv1ArWoWlC3TuPRbteHNuDcdV1MZJrP7KrWBwS9CCpQAlAEWtqmU0LnuPoOqoa/Vx0le5vkkrrlN8GPxEurQ/eE3doPLovONZrJ6q31Js2a64xjgfDL3inZKLjMLqmll5YPjoHDW4TpSSHfA5rm380xuUhG2xwe9o8L7C+otdW46+6uHproh9JJ7hpBIOuhKrSSm9z7JUhBpySNprHTF2p9iuNm3sh4x+wxjoY5pLdEtcpJ+3gXh8MtMDxAseKee+U/CTyK7bwnk/WXpXPlGbqaWuUaPmF1WSkuhUoDJHBjC48AorrVVHcxYrc8GVxKqNVObGzBwH7rzvzXkJ6mzbHo1dPXtRDPwlYspJLBcEof+KSMfUcR7JyI5HZ1gLlAqGOZf1RkGxLEIygfKHC/MpjljkEKhNSWRRHXKVCMeRZDTa4GsYQTqFZpvlTNTj8BOO+ODQ4JXd4j3Up+lZ/6F6T47XQ1dSa7Me2vYy1WiREDFY5ZKUiE8DqOoWV5WuydElAlpaU02Zcg5zcWI0svN5RlXNqXZrwkn0NI42UEo85l2SfIyiNqqoHK4KdDnhCSQ+rnbA5peCczwwEa2J4J8YOecfA3ckiuxeurYnvgwuhkq5xHvPAMwYQ5ujulw5x9lq6Lx09VXvrWUQWWqPLOlBioqoax5pqmnNLI+N0c7N245QDmANtDra6q6rQ2U2KEkPrsU1lFYMfrG1EdQ/C61mFPp2vEpgcHNkc4AtceAAFjfhpxWjLw1vo79pH9xBy255NAydjpBGCS4tzjzHX0WF6W1FhS+DpxIUa5eBzHcSeqkjlMRDToUL9As5ObJnw1DHxEl4I0HNdd9Oae6t5x7SjqpQa47NrA8vjY4tLS4XI6LsjPHngmyxjkCqxPDt5eWHSTmOv+1zfmPCR1EXOrss1XuPBROjJNnDKQdQVxL01tL9OS5NKFqayRacDvM5HQIdUoS9ywPUtxxxOrbDNGzJJI8Xks21rDiUUVbG22CivkrMR24ptldln176US1BIe8s+GRpuQ4EakAae69F8HGqdajFYMPXSlCWfg5naygx6DBMVip5xvHgVwbGHgQ2vmd+G9vO11Prq9NG5ep2NqtlKGYkij7UsMqtsajZ19I9sLWH6S12uFyPSx6LRsohXS2+iKFm6ePkkUNZCKqWIRSRsEjhC54A8BNwPLy9F5h5aMXZmro3q1iPuLJxs8FZihl7V2TPo6tIdYtcNVNPR214yRKa6OchIdu4xmkOgC3vE+GlfJTsXBXu1G3hF5g2EiACao8Up1A+yu4qphWkomdKe95LsKUQSyAAhJjIIgYhh0dY3W7H/AGm8fdVJ6Gqc97Q9WNcFFU0cdHUGOMl3hFyVx/1GowtUYI0NPJtZINVA2ZhJA3gBDXcOK5yviSyW+0fO+y7ajCMVwqTBtoaeKrrqciJ0c2XM4tuAW5jrp068LL0KjUrSRU0vaZ+podvDRsqygdLNO+gpqajp+692jhtzBJu4j1WB5Xy8dZbF9YCqhVRwiNjlZsxgdLPiGI4bHS1roDG6WzQHOtxBJuT0XRfycdTUqk+yGOkcZ70UXZrjv82MxGumaAyOZkUYv4nNaNHO93XXKeYo+2cYxNKLz2bt/K/BZFP+9GQ+zLjwWuDUUVXhlpG2dmIDhxC9N+xqthFyMh2vJY4bhUVGS7WSQ/WPJW4QUVtSwiKT3dliBqpBBUACAAoAQ6IEZnMXP9e//qFwP1G/7JqaX8SrnzCGTICXZTYBc58otN4R5Y7TcOfhe101XTsdDS1gFRTva7UXAzgHiLOHyXo/jra79OoS5ES3Iu8O7Ue5YXg9M2hrXTUkjTVSnE5D3qPKQWWI8NyQbjopZaGiXDiRyg8mJ2lxufGsTqql0lSKaSV0kMEs7pRECSQ0X6Xt1U9VNNUXLHQ+Kwehex/Z1uC7Nwyufeadgke22rS4AjX0suF8zrVqLcL4HKPOTeSHQLIpfuX/AKL/AMWX+yxvRPHR69bq/CJhPtl0pBAQAIAEABQAjkj6EZmcYP8AcZPQLz36hlnUs1dKvaQdbLn8lpLPBiO07ZOkx/B4ZJSIn0T99doAzMHxM8gdNeoXQeB1coT2sEnngx1T2b4BNHDuoZaV4c1zssrjmHNviPProu5jc2ui5CtNZJdD2dYGcbw/u1M+MMfvXl0hdmynhY6a8fZZfktS6a3ggthg+tRsbGwNa1rWgWAaLaLz2djnJtkaEcLkBJV+SEfEWXmypvBOPxr1vTtSqi0YcliTyXqmGggAQAIAEAIeSBGZbFj/AHCX2+QXm/n3/aka+lXsId1ixxnksrs4YhSx11DUUst93NG6N1uNiLJ2mulVbuQdGXp8MxaGQ088DZ4mNAFQyQDPbqw8Cu10/mq9uJdk0bWidgmH1jMTkqKxgiijaWRsDg4vvbxm3uFk+V8nG5YQyc22aFc3HlNjfgQj5qWnsbPoudlD9HUj8Q+S9W0T/wBGJi3fkXytEYIAEACABADSkl0BlcU/z5fUfJea+el/bkbGmftIqxiwCXpCAkUfnIYE5oxnsXgcEc5wgY08E6t4Y2fRb7KaCpHO4/deq+PlmiODFu/I0CukYIAEACABADXaJsnhAZXE/wDOl9V5p5tp6yRsaZe0irKb5LAJMMARhgCMMUAUdCMOKWDy0JLottl9JKoeY/dep+Na+3iY135GgV8hBAAgAQAIAa7VI1lYFM1isEsVS+R7CWPddpaFxXlPEX3aiVkI8M0Kboxjhsgl4H1T+SzZeE1OeIkn3MP2JnHQ/kk/hdX/AIi/cQ/Ym8bb/SP4XV/4h9xD9hvG8/kj+F1f+IfcQ/YmdvIH8kv8Jqn3EHqIfsaHHNox35J8fBanj2iS1UGuy52YDt/Uktc0G3EWXdaOl1VKMuzNslullGhVsYCABAAUANSYDCFQ+EGBCLjVCwxOhu6YTqxp9kbEODcx/ds/Sk2oTIbiL7tn6QjagyG5j+7Z+lG1BkNzH92z9KNqDIu6Z9hv5IUUgHBoHAAegTgFQAIAEAf/2Q==" ' Alternative text that describes the image for accessibility. Dim altText As String = "altText" ' Customize the image size by using the height and width arguments. ' 0 Fit the image in the cell and maintain its aspect ratio. ' 1 Fill the cell with the image and ignore its aspect ratio. ' 2 Maintain the original image size, which may exceed the cell boundary. ' 3 Customize the image size by using the height and width arguments. Dim sizing As Integer = 3 ' Custom height of the image in pixels. Dim height As Integer = 60 ' Custom width of the image in pixels. Dim width As Integer = 60 ' The Y-axis coordinate of the top left corner of the sub-rectangle of the source image to draw into the destination context. Dim clipY As Integer = 0 ' The X-axis coordinate of the top left corner of the sub-rectangle of the source image to draw into the destination context. Dim clipX As Integer = 0 ' The height of the sub-rectangle of the source image to draw into the destination context. Dim clipH As Integer = 50 ' The width of the sub-rectangle of the source image to draw into the destination context. Dim clipW As Integer = 50 ' This value indicates the vertical alignment of the image. 0 = top, 1 = center, 2 = bottom. Dim vAlign As Integer = 1 ' This value indicates the horizontal alignment of the image. 0 = left, 1 = center, 2 = right. Dim hAlign As Integer = 1 ws.Range("A1").Value = "Clipped image" ws.Range("B1").Value = "Original image" ws.Range("A2").Formula = $"=IMAGE(""{base64Img}"",""{altText}"",{sizing},{height},{width},{clipY},{clipX},{clipH},{clipW},{vAlign _ },{hAlign})" ws.Range("B2").Formula = $"=IMAGE(""{base64Img}"",""{altText}"",{sizing},{height},{width})" ws.Range("A2:B2").RowHeightInPixel = 120 ws.Range("A2:B2").ColumnWidthInPixel = 120 ws.PageSetup.PrintGridlines = True ' save to a pdf file workbook.Save("ImageSparkline.pdf")