作者： 陳秀峰

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

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

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

圖1

　?、吃贑1單元格(也可以是其他單元格)中輸入公式:=COUNTA(B:B)，用于統計所要打印的桌簽數目。

　?、催x中A1單元格，設置字符居中對齊，并設置一種適合用作桌簽的字體(如魏碑體)。

　　二、 制作桌簽

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

圖2

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

　?、策x中“照片”，執行“格式→圖片”命令，打開“設置圖片格式”對話框，在“顏色與線條”標簽中，將“線條”設置為“無線條顏色”，點擊“確定”返回。

　?、掣鶕篮灥鬃某叽纾瑢ⅰ罢掌闭{整至合適大小，并將它定位到頁面合適位置上。

　?、磳⑸鲜觥罢掌睆椭埔环?，在“設置圖片格式”對話框的“大小”標簽中，將它“旋轉→180°”，并將它定位到頁面合適位置上(效果參見圖2)。

　　三、 編制宏程序

　?、卑聪隆癆lt+F11”組合鍵，打開“Visual Basic編輯器”(圖3)，在右側的“工程資源管理器”區域中，選中“VBAPRoject(桌簽.xls)”選項，執行“插入→模塊”命令，插入一個模塊(模塊1)。

圖4

　?、搽p擊“模塊1”，展開右側的代碼編輯區，將下述代碼輸入其中:

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

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

　　Sheet1.Select '選中Sheet1工作表。

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

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

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

　　Sheet2.Select '選中Sheet2工作表。

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

　　Next '進入下一個循環。

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

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

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

　　application.Quit '退出Excel。

　　End Sub '宏的結束符號。

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

　?、齿斎胪瓿珊?，關閉“Visual Basic編輯器”窗口。

　　四、添加按鈕

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

圖5

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

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