Barcode Generator Add-in for Word & Excel

作者:wbc 日期:2009-04-21

字體大小: 小中大

這兩天心血來潮，打算試試看office的add-in開發.
就用之前搞定的barcode generator來繼續開發。
當然，目前依然只支持 code 128,code39,code93
效果如下：

幻燈片演示：效果圖片

在微軟的網上看了些文章及i示例，下載文件

點擊下載此文件,詳細示範了Office 2007 新加入的Ribbon UI使用方法。
更多資料：http://msdn.microsoft.com/en-us/library/aa434078.aspx
昨天搞定了Excel的調用，今天則繼續做word的。
兩個程序都遇到不同的麻煩事：
Excel插入圖片的座標計算：
Pixel to Point，
Point to Inch,
Inch to #Character
Point to #Character
...非常麻煩.

代碼類型：CSHARP [複製]

        private float GetColumnWidth(Excel.Worksheet ws, int colIndex)
        {
            return float.Parse(((Excel.Range)ws.Cells[1, colIndex]).EntireColumn.ColumnWidth.ToString());
        }

        private float GetColumnWidthInPoint(Excel.Worksheet ws, int colIndex)
        {
            return float.Parse(((Excel.Range)ws.Cells[1, colIndex]).EntireColumn.Width.ToString());
        }

        private float GetColumnWidthCharactersForPointRatio(Excel.Worksheet ws)
        {
            float colWidthinchar = GetColumnWidth(ws, 1);
            float colWidthinpt = GetColumnWidthInPoint(ws, 1);
            int screenres = 96;
            return (colWidthinpt / 72) * screenres / colWidthinchar;
            
        }

        public float Pixel2Char(Excel.Worksheet ws, int pix)
        {
            return (pix) / GetColumnWidthCharactersForPointRatio(ws);
        }

圖像長寬的計算：

代碼類型：CSHARP [複製]

currentsheet.Shapes.AddPicture(Environment.GetFolderPath(Environment.SpecialFolder.MyPictures) + "/temp.png",
                    Microsoft.Office.Core.MsoTriState.msoFalse,
                    Microsoft.Office.Core.MsoTriState.msoCTrue,
                    Pixel2Char(timesheet, (int)float.Parse(Cell.Left.ToString())), RowPixel2Char(timesheet, (int)float.Parse(Cell.Top.ToString())),
                    (int)(bm.Width * 72 / 96), (int)(bm.Height * 72 / 96));

轉換后，依然不能非常精確至pixel，所以有些圖片會出現模糊現象，要按程式內建的重設圖像才可解決。

由於對excel 及word的model，不熟悉費了很多神，走了很多彎路。
不過發現office的addin支持非常強大，再多熟悉下相關接口，相信之後搞sharepoint等，都很不是問題了。。
Com的註冊問題也費了不少時間，還導致我錯誤把一些系統的com給刪除了，現在凡是右鍵菜單，直接開啟office的主程式等，都得等上一分鐘或以上。真是要重裝了。。。

[本日志由 wbc 于 2009-04-21 05:05 PM 编辑]