Displaying items by tag: xlsnetheaderandfooter

PM> Install-Package Spire.XLS

using Spire.Xls;
using System.Drawing;

namespace AddImageAndTextToHeader
{
    class Program
    {
        static void Main(string[] args)
        {
            // Workbook オブジェクトを作成
            Workbook wb = new Workbook();

            // 既存の Excel ファイルを読み込む
            wb.LoadFromFile(@"C:\Users\Administrator\Desktop\sample.xlsx");

            // 最初のワークシートを取得
            Worksheet sheet = wb.Worksheets[0];

            // 画像を読み込む
            Image image = Image.FromFile("logo.png");

            // 画像をスケーリング
            Bitmap bitmap = new Bitmap(image, new Size(image.Width / 2, image.Height / 2));

            // ヘッダーの左セクションに画像を追加
            sheet.PageSetup.LeftHeaderImage = bitmap;
            sheet.PageSetup.LeftHeader = "&G";

            // ヘッダーの右セクションにフォーマットされたテキストを追加
            sheet.PageSetup.RightHeader = &"Calibri"&B&10&K4253E2X Information Technology, Inc.  
 www.xxx.com";

            // ファイルを保存
            wb.SaveToFile("Header.xlsx", ExcelVersion.Version2016);
            wb.Dispose();
        }
    }
}

using Spire.Xls;

namespace AddDateAndPageNumberToFooter
{
    class Program
    {
        static void Main(string[] args)
        {
            // Workbook オブジェクトを作成
            Workbook wb = new Workbook();

            // 既存の Excel ファイルを読み込む
            wb.LoadFromFile("sample.xlsx");

            // 最初のワークシートを取得
            Worksheet sheet = wb.Worksheets[0];

            // フッターの左セクションにページ番号を追加
            sheet.PageSetup.LeftFooter = "&\"Calibri\"&B&10&K4253E2ページ &P";

            // フッターの右セクションに現在の日付を追加
            sheet.PageSetup.RightFooter = "&\"Calibri\"&B&10&K4253E2&D";

            // ファイルを保存
            wb.SaveToFile("Footer.xlsx", ExcelVersion.Version2016);
            wb.Dispose();
        }
    }
}

PM> Install-Package Spire.XLS

using Spire.Xls;
using System.Drawing;

namespace AddWatermark
{
    class Program
    {
        static void Main(string[] args)
        {
            //Workbookクラスのインスタンスを初期化し、Excelファイルをロードする
            Workbook workbook = new Workbook();
            workbook.LoadFromFile(@"Sample.xlsx");

            //フォントを作成する
            Font font = new Font("Arial", 40);
            //テキストを定義する
            string watermark = "機密";

            //ファイル内のすべてのシートをループする
            foreach (Worksheet sheet in workbook.Worksheets)
            {
                //DrawWatermarkImage()メソッドを使用して、テキストに基づいて画像を作成する
                Image imgWtrmrk = DrawWatermarkImage(watermark, font, Color.LightCoral, Color.White, sheet.PageSetup.PageHeight, sheet.PageSetup.PageWidth);

                //各シートの左ヘッダーのセクションに画像を追加する
                sheet.PageSetup.LeftHeaderImage = imgWtrmrk;
                sheet.PageSetup.LeftHeader = "&G";

                //シートのビューモードを透かしを見るためのページレイアウトに変更する
                sheet.ViewMode = ViewMode.Layout;
            }

            ///結果ファイルを保存する
            workbook.SaveToFile("AddWatermark.xlsx", ExcelVersion.Version2013);
        }

        private static Image DrawWatermarkImage(string text, Font font, Color textColor, Color backColor, double height, double width)
        {
            //指定した幅と高さの画像を作成する
            Image img = new Bitmap((int)width, (int)height);
            //画像からグラフィックのオブジェクトを作成する
            Graphics drawing = Graphics.FromImage(img);

            //テキストのサイズを取得する
            SizeF textSize = drawing.MeasureString(text, font);

            //指定されたトランスレーションをグラフィックの変換マトリックスに前置きして座標系の原点を変更する
            drawing.TranslateTransform(((int)width - textSize.Width) / 2, ((int)height - textSize.Height) / 2);

            //ローテーションを適用する
            drawing.RotateTransform(-45);

            //指定されたトランスレーションをグラフィックの変換マトリックスに前置きして座標系の原点を変更する
            drawing.TranslateTransform(-((int)width - textSize.Width) / 2, -((int)height - textSize.Height) / 2);

            //背景をペイントする
            drawing.Clear(backColor);

            //テキストのブラシを作成する
            Brush textBrush = new SolidBrush(textColor);

            //グラフィックの中心にテキストを描画する
            drawing.DrawString(text, font, textBrush, ((int)width - textSize.Width) / 2, ((int)height - textSize.Height) / 2);
            drawing.Save();
            return img;
        }
    }
}

Imports Spire.Xls
Imports System.Drawing

Namespace AddWatermark
    Friend Class Program
        Private Shared Sub Main(ByVal args As String())
            'Workbookクラスのインスタンスを初期化し、Excelファイルをロードする
            Dim workbook As Workbook = New Workbook()
            workbook.LoadFromFile("Sample.xlsx")

            'フォントを作成する
            Dim font As Font = New Font("Arial", 40)
            'テキストを定義する
            Dim watermark = "機密"

            'ファイル内のすべてのシートをループする 
            For Each sheet As Worksheet In workbook.Worksheets
                'DrawWatermarkImage()メソッドを呼び出してテキストに基づいて画像を作成する
                Dim imgWtrmrk As Image = DrawWatermarkImage(watermark, font, Color.LightCoral, Color.White, sheet.PageSetup.PageHeight, sheet.PageSetup.PageWidth)

                '各シートの左ヘッダーのセクションに画像を追加する
                sheet.PageSetup.LeftHeaderImage = imgWtrmrk
                sheet.PageSetup.LeftHeader = "&G"

                'シートのビューモードを透かしを見るためのページレイアウトに変更する
                sheet.ViewMode = ViewMode.Layout
            Next

            '結果ファイルを保存する 
            workbook.SaveToFile("AddWatermark.xlsx", ExcelVersion.Version2013)
        End Sub

        Private Shared Function DrawWatermarkImage(ByVal text As String, ByVal font As Font, ByVal textColor As Color, ByVal backColor As Color, ByVal height As Double, ByVal width As Double) As Image
            '指定した幅と高さの画像を作成する 
            Dim img As Image = New Bitmap(width, height)
            '画像からグラフィックのオブジェクトを作成する
            Dim drawing As Graphics = Graphics.FromImage(img)

            'テキストのサイズを取得する
            Dim textSize As SizeF = drawing.MeasureString(text, font)

            '指定されたトランスレーションをグラフィックの変換マトリックスに前置きして座標系の原点を変更する
            drawing.TranslateTransform((CInt(width) - textSize.Width) / 2, (CInt(height) - textSize.Height) / 2)

            'ローテーションを適用する
            drawing.RotateTransform(-45)

            '指定されたトランスレーションをグラフィックの変換マトリックスに前置きして座標系の原点を変更する
            drawing.TranslateTransform(-(CInt(width) - textSize.Width) / 2, -(CInt(height) - textSize.Height) / 2)

            '背景をペイントする
            drawing.Clear(backColor)

            'テキストのブラシを作成する
            Dim textBrush As Brush = New SolidBrush(textColor)

            'グラフィックの中心にテキストを描画する
            drawing.DrawString(text, font, textBrush, (CInt(width) - textSize.Width) / 2, (CInt(height) - textSize.Height) / 2)
            drawing.Save()
            Return img
        End Function
    End Class
End Namespace