C# excel ,word , powerpoint 轉成圖檔 JPG

c# word powerpoint excel jpg

ted8224 2018-04-26 15:54:45 ‧ 9377 瀏覽

使用C#
要寫出一個 .exe 檔
它要有能把 excel ,word , powerpoint 轉成圖檔 JPG
還可以調整解析度
有人有做過類似的嗎?
網路上有免費的轉檔網頁啦
只是好像是不是沒人寫過這一種code呢?

以下是我找資料寫出的code,已經可以把word轉成jpg了
ptt和excel 也大概改好只是很多錯誤

看更多先前的討論...收起先前的討論...

優悠 iT邦新手 3 級 ‧ 2018-04-30 17:45:01 檢舉

有紅色波浪，把滑鼠移動過去看解決辦法

優悠 iT邦新手 3 級 ‧ 2018-04-30 17:48:35 檢舉

把你錯誤清單點出來給我看看

ted8224 iT邦新手 5 級 ‧ 2018-05-02 09:32:39 檢舉

我有貼出來給您看看了
下面有完整
code

小魚 iT邦大師 1 級 ‧ 2018-05-02 21:08:35 檢舉

很多錯誤，連ppt都寫錯了...

ted8224 iT邦新手 5 級 ‧ 2018-05-04 14:15:54 檢舉

有改好了那些 ppt 打成 ptt...

登入發表討論

直播研討會

{{ item.channelVendor }} {{ item.webinarstarted }} |

直播中

3 個回答

暐翰

iT邦大師 1 級 ‧ 2018-04-26 16:36:49

可以參考這篇
How to convert the ppt to the jpg file which resolution is 3840x2160?

回應 1
分享
檢舉

ted8224 iT邦新手 5 級 ‧ 2018-04-27 08:07:42 檢舉

好的謝謝...

登入發表回應

sam0407

iT邦大師 1 級 ‧ 2018-04-29 08:25:33

沒作過...但若是我要作的話會先找PRN轉JPG的範例，先將這個元件作出來後，以後不管接到任何軟件有轉JPG的需求,就只要再實作該軟件打印PRN的功能就可以了~

回應 6
分享
檢舉

看更多先前的回應...收起先前的回應...

ted8224 iT邦新手 5 級 ‧ 2018-04-30 08:21:15 檢舉

好的

ted8224 iT邦新手 5 級 ‧ 2018-05-02 09:28:56 檢舉

            string pttPath = @"D:\DocToImg\55555.pttx"; //Ptt檔案路徑
        string pttoutPutByOfficePath = @"D:\PttToImg\PrintByOffice_Page_"; //Doc圖片輸出路徑 by Office
        var msPttApp = new Microsoft.Office.Interop.PowerPoint.Application();
        msPttApp.Visible = true;
       

        //開啟該Ptt檔
        //           Microsoft.Office.Interop.Word.Document doc = msWordApp.Documents.Open(docPath);
        //           Microsoft.Office.Interop.PowerPoint.MediaBookmarks = msPttApp.Presentations.Open(pttPath);

        Microsoft.Office.Interop.PowerPoint.Application appPPT = new Microsoft.Office.Interop.PowerPoint.Application();
        var pptSlide = appPPT.Presentations.Open(pttPath);
        //Opens the word document and fetch each page and converts to image
  //          foreach (Microsoft.Office.Interop.Word.Window window in doc.Windows)
            foreach (Microsoft.Office.Interop.PowerPoint window in appPPT.Windows)

            {
                foreach (Microsoft.Office.Interop.PowerPoint.Pane pane in window.Panes)
                {
                    
                    for (var i = 1; i <= pane.Pages.Count; i++)
                    {
                        var page = pane.Pages[i];
                        object bits = page.EnhMetaFileBits;//Returns a Object that represents a picture 【Read-only】
                                                           //以下Try Catch區段為將圖片的背景填滿為白色，不然輸出的圖片背景會是透明的
                        try
                        {
                            using (var ms = new MemoryStream((byte[])bits))
                            {
                                System.Drawing.Image image = System.Drawing.Image.FromStream(ms);

                                using (var backGroundWritePNG = new Bitmap(image.Width, image.Height))
                                {
                                    //設定圖片的解析度
                                    backGroundWritePNG.SetResolution(image.HorizontalResolution, image.VerticalResolution);

                                    using (Graphics graphis = Graphics.FromImage(backGroundWritePNG))
                                    {
                                        graphis.Clear(Color.White);
                                        graphis.DrawImageUnscaled(image, 0, 0);
                                    }
                                    string outPutFilePath = Path.ChangeExtension(pttoutPutByOfficePath + i, "png");
                                    backGroundWritePNG.Save(outPutFilePath, ImageFormat.Png);//輸出圖片
                                }
                            }
                        }
                        catch (Exception ex)
                        {
                            Console.WriteLine(ex.ToString());
                        }
                    }
                }
            }
        //關閉Ptt，釋放資源
        appPPT.Close(Type.Missing, Type.Missing, Type.Missing);
        msPttApp.Quit(Type.Missing, Type.Missing, Type.Missing);
        System.Runtime.InteropServices.Marshal.ReleaseComObject(pttPath);
        System.Runtime.InteropServices.Marshal.ReleaseComObject(msPttApp);

string pttPath = @"D:\DocToImg\55555.pttx"; //Ptt檔案路徑
            string pttoutPutByOfficePath = @"D:\PttToImg\PrintByOffice_Page_"; //Doc圖片輸出路徑 by Office
            var msPttApp = new Microsoft.Office.Interop.PowerPoint.Application();
            msPttApp.Visible = true;

//開啟該Ptt檔
            //           Microsoft.Office.Interop.Word.Document doc = msWordApp.Documents.Open(docPath);
            //           Microsoft.Office.Interop.PowerPoint.MediaBookmarks = msPttApp.Presentations.Open(pttPath);

Microsoft.Office.Interop.PowerPoint.Application appPPT = new Microsoft.Office.Interop.PowerPoint.Application();
            var pptSlide = appPPT.Presentations.Open(pttPath);
            //Opens the word document and fetch each page and converts to image
      //          foreach (Microsoft.Office.Interop.Word.Window window in doc.Windows)
                foreach (Microsoft.Office.Interop.PowerPoint window in appPPT.Windows)

{
                    foreach (Microsoft.Office.Interop.PowerPoint.Pane pane in window.Panes)
                    {
                        
                        for (var i = 1; i <= pane.Pages.Count; i++)
                        {
                            var page = pane.Pages[i];
                            object bits = page.EnhMetaFileBits;//Returns a Object that represents a picture 【Read-only】
                                                               //以下Try Catch區段為將圖片的背景填滿為白色，不然輸出的圖片背景會是透明的
                            try
                            {
                                using (var ms = new MemoryStream((byte[])bits))
                                {
                                    System.Drawing.Image image = System.Drawing.Image.FromStream(ms);

using (var backGroundWritePNG = new Bitmap(image.Width, image.Height))
                                    {
                                        //設定圖片的解析度
                                        backGroundWritePNG.SetResolution(image.HorizontalResolution, image.VerticalResolution);

using (Graphics graphis = Graphics.FromImage(backGroundWritePNG))
                                        {
                                            graphis.Clear(Color.White);
                                            graphis.DrawImageUnscaled(image, 0, 0);
                                        }
                                        string outPutFilePath = Path.ChangeExtension(pttoutPutByOfficePath + i, "png");
                                        backGroundWritePNG.Save(outPutFilePath, ImageFormat.Png);//輸出圖片
                                    }
                                }
                            }
                            catch (Exception ex)
                            {
                                Console.WriteLine(ex.ToString());
                            }
                        }
                    }
                }
            //關閉Ptt，釋放資源
            appPPT.Close(Type.Missing, Type.Missing, Type.Missing);
            msPttApp.Quit(Type.Missing, Type.Missing, Type.Missing);
            System.Runtime.InteropServices.Marshal.ReleaseComObject(pttPath);
            System.Runtime.InteropServices.Marshal.ReleaseComObject(msPttApp);

修改

ted8224 iT邦新手 5 級 ‧ 2018-05-02 09:30:20 檢舉

string xlsxPath = @"D:\DocToImg\Source.xlsx"; //Excel檔案路徑
string xlsxPutByOfficePath = @"D:\DocToImg\PrintByOffice_Page_"; //Excel圖片輸出路徑 by Office

        var msxlsxApp = new Microsoft.Office.Interop.Excel.Application();
        msxlsxApp.Visible = true;
        //         開啟該Excel檔，天啊！　真的開起Excel我真得是醉了
        Microsoft.Office.Interop.Excel.Document excel = msxlsxApp.Documents.Open(xlsxPath);

        //      Opens the word document and fetch each page and converts to image
        foreach (Microsoft.Office.Interop.Excel.Window window in excel.Windows)
        {
            foreach (Microsoft.Office.Interop.Excel.Pane pane in window.Panes)
            {
                for (var i = 1; i <= pane.Pages.Count; i++)
                {
                    var page = pane.Pages[i];
                    object bits = page.EnhMetaFileBits;//Returns a Object that represents a picture 【Read-only】
                                                       //           以下Try Catch區段為將圖片的背景填滿為白色，不然輸出的圖片背景會是透明的
                    try
                    {
                        using (var ms = new MemoryStream((byte[])bits))
                        {
                            System.Drawing.Image image = System.Drawing.Image.FromStream(ms);

                            using (var backGroundWritePNG = new Bitmap(image.Width, image.Height))
                            {
                                //                       設定圖片的解析度
                                backGroundWritePNG.SetResolution(image.HorizontalResolution, image.VerticalResolution);

                                using (Graphics graphis = Graphics.FromImage(backGroundWritePNG))
                                {
                                    graphis.Clear(Color.White);
                                    graphis.DrawImageUnscaled(image, 0, 0);
                                }
                                string outPutFilePath = Path.ChangeExtension(xlsxPutByOfficePath + i, "png");
                                backGroundWritePNG.Save(outPutFilePath, ImageFormat.Png);//輸出圖片
                            }
                        }
                    }
                    catch (Exception ex)
                    {
                        Console.WriteLine(ex.ToString());
                    }
                }
            }
        }
        //        關閉Word，釋放資源
        excel.Close(Type.Missing, Type.Missing, Type.Missing);
        msxlsxApp.Quit(Type.Missing, Type.Missing, Type.Missing);
        System.Runtime.InteropServices.Marshal.ReleaseComObject(excel);
        System.Runtime.InteropServices.Marshal.ReleaseComObject(msxlsxApp);


    }
}

}

string xlsxPath = @"D:\DocToImg\Source.xlsx"; //Excel檔案路徑
            string xlsxPutByOfficePath = @"D:\DocToImg\PrintByOffice_Page_"; //Excel圖片輸出路徑 by Office
           
            var msxlsxApp = new Microsoft.Office.Interop.Excel.Application();
            msxlsxApp.Visible = true;
            //         開啟該Excel檔，天啊！　真的開起Excel我真得是醉了
            Microsoft.Office.Interop.Excel.Document excel = msxlsxApp.Documents.Open(xlsxPath);

//      Opens the word document and fetch each page and converts to image
            foreach (Microsoft.Office.Interop.Excel.Window window in excel.Windows)
            {
                foreach (Microsoft.Office.Interop.Excel.Pane pane in window.Panes)
                {
                    for (var i = 1; i <= pane.Pages.Count; i++)
                    {
                        var page = pane.Pages[i];
                        object bits = page.EnhMetaFileBits;//Returns a Object that represents a picture 【Read-only】
                                                           //           以下Try Catch區段為將圖片的背景填滿為白色，不然輸出的圖片背景會是透明的
                        try
                        {
                            using (var ms = new MemoryStream((byte[])bits))
                            {
                                System.Drawing.Image image = System.Drawing.Image.FromStream(ms);

using (var backGroundWritePNG = new Bitmap(image.Width, image.Height))
                                {
                                    //                       設定圖片的解析度
                                    backGroundWritePNG.SetResolution(image.HorizontalResolution, image.VerticalResolution);

using (Graphics graphis = Graphics.FromImage(backGroundWritePNG))
                                    {
                                        graphis.Clear(Color.White);
                                        graphis.DrawImageUnscaled(image, 0, 0);
                                    }
                                    string outPutFilePath = Path.ChangeExtension(xlsxPutByOfficePath + i, "png");
                                    backGroundWritePNG.Save(outPutFilePath, ImageFormat.Png);//輸出圖片
                                }
                            }
                        }
                        catch (Exception ex)
                        {
                            Console.WriteLine(ex.ToString());
                        }
                    }
                }
            }
            //        關閉Word，釋放資源
            excel.Close(Type.Missing, Type.Missing, Type.Missing);
            msxlsxApp.Quit(Type.Missing, Type.Missing, Type.Missing);
            System.Runtime.InteropServices.Marshal.ReleaseComObject(excel);
            System.Runtime.InteropServices.Marshal.ReleaseComObject(msxlsxApp);

}
    }
}

修改

ted8224 iT邦新手 5 級 ‧ 2018-05-02 09:32:15 檢舉