How to set images format when saving in HTML
using C# and VB.NET
Complete code
using System;
using System.Collections.Generic;
using System.Linq;
using System.Text;
using System.IO;
using SautinSoft.RtfToHtml;
namespace Example
{
class Program
{
static void Main(string[] args)
{
SetImagesFormat();
}
/// <summary>
/// How to set images format.
/// <summary>
static void SetImagesFormat()
{
string inpFile = @"..\..\..\..\example.docx";
string outFile = Path.GetFullPath(@"Result.html");
string imgDir = Path.GetDirectoryName(outFile);
RtfToHtml r = new RtfToHtml();
// 1. Set PNG format.
HtmlFixedSaveOptions opt = new HtmlFixedSaveOptions()
{
ImagesDirectoryPath = Path.Combine(imgDir, "Result_images"),
ImagesDirectorySrcPath = "Result_images",
// Change to store images as physical files on local drive.
EmbedImages = false,
ImagesFormat = HtmlSaveOptions.EmbImagesFormat.Png,
Title = "HTML document, PNG images"
};
try
{
r.Convert(inpFile, outFile, opt);
}
catch (Exception ex)
{
Console.WriteLine($"Conversion failed! {ex.Message}");
}
// Open the result.
System.Diagnostics.Process.Start(new System.Diagnostics.ProcessStartInfo(outFile) { UseShellExecute = true });
}
}
}
Imports System
Imports System.Collections.Generic
Imports System.Linq
Imports System.Text
Imports System.IO
Imports SautinSoft.RtfToHtml
Namespace Example
Friend Class Program
Shared Sub Main(ByVal args() As String)
SetImagesFormat()
End Sub
''' <summary>
''' How to set images format.
''' </summary>
Private Shared Sub SetImagesFormat()
Dim inpFile As String = "..\..\..\..\example.docx"
Dim outFile As String = Path.GetFullPath("Result.html")
Dim imgDir As String = Path.GetDirectoryName(outFile)
Dim r As New RtfToHtml()
' 1. Set PNG format.
Dim opt As New HtmlFixedSaveOptions() With {
.ImagesDirectoryPath = Path.Combine(imgDir, "Result_images"),
.ImagesDirectorySrcPath = "Result_images",
.EmbedImages = False,
.ImagesFormat = HtmlSaveOptions.EmbImagesFormat.Png,
.Title = "HTML document, PNG images"
}
Try
r.Convert(inpFile, outFile, opt)
Catch ex As Exception
Console.WriteLine($"Conversion failed! {ex.Message}")
End Try
' Open the result.
System.Diagnostics.Process.Start(New System.Diagnostics.ProcessStartInfo(outFile) With {.UseShellExecute = True})
End Sub
End Class
End Namespace
If you are looking also for a .NET solution to Create or Modify HTML documents, see our Document .Net.
If you need a new code example or have a question: email us at support@sautinsoft.com or ask at Online Chat (right-bottom corner of this page) or use the Form below: