作者： 陳秀峰

　　用Excel來制作桌面標簽（以下簡稱桌簽）確實是一個比較新穎的方法，不過要是同時制作很多桌簽也還是比較費時的。那么今天筆者就介紹一種用VBA輕松實現(xiàn)桌簽批量打印的方法。

　　一、 準備工作
　　⒈啟動Excel2003(其他單元格也可以)，執(zhí)行“工具→自定義”命令，打開“自定義”對話框。在“命令”標簽中，選中“類別”下面的“工具”選項，然后在“命令”下面找到“照相機”選項，并將它拖到工具欄合適位置上。

　　⒉在Sheet1工作表中(最好將文檔取名保存一下)，仿照圖1的樣式，在B列相應(yīng)的單元格中輸入需要打印桌簽的名稱，并在A1中輸入一個名稱。

圖1

　　⒊在C1單元格(也可以是其他單元格)中輸入公式:=COUNTA(B:B)，用于統(tǒng)計所要打印的桌簽數(shù)目。

　　⒋選中A1單元格，設(shè)置字符居中對齊，并設(shè)置一種適合用作桌簽的字體(如魏碑體)。

　　二、 制作桌簽

　　⒈選中A1單元格，單擊一下工具欄上的“照相機”按鈕，再切換到“Sheet2”工作表中，單擊一下鼠標，即可得到一張A1單元格的照片(圖2)。

圖2

　　小貼士:這種照片不同于普通圖片，它與A1單元格中的數(shù)據(jù)建立了鏈接，隨A1單元格中的字符改變而改變。

　　⒉選中“照片”，執(zhí)行“格式→圖片”命令，打開“設(shè)置圖片格式”對話框，在“顏色與線條”標簽中，將“線條”設(shè)置為“無線條顏色”，點擊“確定”返回。

　　⒊根據(jù)桌簽底座的尺寸，將“照片”調(diào)整至合適大小，并將它定位到頁面合適位置上。

　　⒋將上述“照片”復(fù)制一份，在“設(shè)置圖片格式”對話框的“大小”標簽中，將它“旋轉(zhuǎn)→180°”，并將它定位到頁面合適位置上(效果參見圖2)。

　　三、 編制宏程序

　　⒈按下“Alt+F11”組合鍵，打開“Visual Basic編輯器”(圖3)，在右側(cè)的“工程資源管理器”區(qū)域中，選中“VBAPRoject(桌簽.xls)”選項，執(zhí)行“插入→模塊”命令，插入一個模塊(模塊1)。

圖4

　　⒉雙擊“模塊1”，展開右側(cè)的代碼編輯區(qū)，將下述代碼輸入其中:

　　Sub 桌簽() '建立一個名稱為“桌簽”的宏。

　　For i = 1 To Sheet1.Cells(1, 3) '設(shè)立一個循環(huán):開始值為1，結(jié)束值為Sheet1工作表C3單元格內(nèi)的值(即桌簽數(shù)目)。

　　Sheet1.Select '選中Sheet1工作表。

　　Cells(1, 1).Value = Cells(i, 2).Value '依次將B列的桌簽字符調(diào)入A1單元格中。

　　Columns("A:A").Select '選中A列。

　　Selection.Columns.AutoFit '將A列設(shè)置為“最合適的列寬”，這樣讓字符不同的桌簽自動適應(yīng)“照片”的大小。

　　Sheet2.Select '選中Sheet2工作表。

　　ActiveWindow.SelectedSheets.PrintOut'執(zhí)行一下打印操作，打印出一張桌簽。

　　Next '進入下一個循環(huán)。

　　Sheet1.Select '桌簽全部打印完成后，選中Sheet1工作表。

　　Range("B1").Select '選中B1單元格，等待下一次修改字符。

　　ActiveWorkbook.Save '保存當前工作簿文檔。

　　application.Quit '退出Excel。

　　End Sub '宏的結(jié)束符號。

　　小貼士:①上述代碼中英文單引號及其后面的字符是對代碼的注釋，可以不輸入。②宏的結(jié)束符號上面的4行代碼不輸入不影響桌簽的打印。

　　⒊輸入完成后，關(guān)閉“Visual Basic編輯器”窗口。

　　四、添加按鈕

　　⒈切換到Sheet1工作表中，執(zhí)行“視圖→工具欄→窗體”命令，展開“窗體”工具欄，單擊工具欄上的“按鈕”按鈕，在工作表中拖拉出一個按鈕，此時系統(tǒng)彈出“指定宏”對話框(圖4)，選中剛才編制的“桌簽”宏，確定返回。

圖5

　　2.將按鈕上的文字修改為“打印桌簽”，再調(diào)整好大小，并定位在工作表合適位置上(參見圖1)。

　　以后需要打印桌簽時，只要將相應(yīng)的字符輸入到B列下面的單元格中，然后按下“打印桌簽”按鈕，就一切OK了。