用Excel來製作桌面標籤（以下簡稱桌籤）確實是一個比較新穎的方法，不過要是同時製作很多桌籤也還是比較費時的。那麼今天筆者就介紹一種用VBA輕鬆實現桌籤批量列印的方法。
步驟/方法
準備工作
⒈啟動Excel2003(其他單元格也可以)，執行“工具→自定義”命令，開啟“自定義”對話方塊。在“命令”標籤中，選中“類別”下面的“工具”選項，然後在“命令”下面找到“照相機”選項，並將它拖到工具欄合適位置上。
⒉在Sheet1工作表中(最好將文件取名儲存一下)，仿照圖1的樣式，在B列相應的單元格中輸入需要列印桌籤的名稱，並在A1中輸入一個名稱。
⒊在C1單元格(也可以是其他單元格)中輸入公式:=COUNTA(B:B)，用於統計所要列印的桌籤數目。 ⒋選中A1單元格，設定字元居中對齊，並設定一種適合用作桌籤的字型(如魏碑體)。
製作桌籤
⒈選中A1單元格，單擊一下工具欄上的“照相機”按鈕，再切換到“Sheet2”工作表中，單擊一下滑鼠，即可得到一張A1單元格的照片(圖2)。
小貼士:這種照片不同於普通圖片，它與A1單元格中的資料建立了連結，隨A1單元格中的字元改變而改變。 ⒉選中“照片”，執行“格式→圖片”命令，開啟“設定圖片格式”對話方塊，在“顏色與線條”標籤中，將“線條”設定為“無線條顏色”，點選“確定”返回。 ⒊根據桌籤底座的尺寸，將“照片”調整至合適大小，並將它定位到頁面合適位置上。 ⒋將上述“照片”複製一份，在“設定圖片格式”對話方塊的“大小”標籤中，將它“旋轉→180°”，並將它定位到頁面合適位置上(效果參見圖2)。
編制巨集程式
⒈按下“Alt+F11”組合鍵，開啟“Visual Basic編輯器”(圖3)，在右側的“工程資源管理器”區域中，選中“VBAProject(桌籤.xls)”選項，執行“插入→模組”命令，插入一個模組(模組1)。
⒉雙擊“模組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)，選中剛才編制的“桌籤”巨集，確定返回。
2.將按鈕上的文字修改為“列印桌籤”，再調整好大小，並定位在工作表合適位置上(參見圖1)。 以後需要列印桌籤時，只要將相應的字元輸入到B列下面的單元格中，然後按下“列印桌籤”按鈕，就一切OK了。
