用Excel来制作桌面标签（以下简称桌签）确实是一个比较新颖的方法，不过要是同时制作很多桌签也还是比较费时的。那么今天笔者就介绍一种用VBA轻松实现桌签批量打印的方法。一、准备工作⒈启动Excel2003其他单元格也可以，执行“工具→自定义”命令，打开“自定义”对话框。在“命令”标签中，选中“类别”下面的“工具”选项，然后在“命令”下面找到“照相机”选项，并将它拖到工具栏合适位置上。⒉在Sheet1工作表中最好将文档取名保存一下，仿照图1的样式，B列相应的单元格中输入需要在打印桌签的名称，并在A1中输入一个名称。
⒊在C1单元格也可以是其他单元格中输入公式COUNTABB，用于统计所要打印的桌签数目。⒋选中A1单元格，设置字符居中对齐，并设置一种适合用作桌签的字体如魏碑体。二、制作桌签⒈选中A1单元格，单击一下工具栏上的“照相机”按钮，再切换到“Sheet2”工作表中，单击一下鼠标，即可得到一张A1单元格的照片图2。
小贴士这种照片不同于普通图片，它与A1单元格中的数据建立了链接，随A1单元格中的字符改变而改变。⒉选中“照片”，执行“格式→图片”命令，打开“设置图片格式”对话框，在“颜色与线条”标签中，将“线条”设置为“无线条颜色”，点击“确定”返回。⒊根据桌签底座的尺寸，将“照片”调整至合适大小，并将它定位到页面合适位置上。
f⒋将上述“照片”复制一份，在“设置图片格式”对话框的“大小”标签中，将它“旋转→180°，并将它定位”到页面合适位置上效果参见图2。三、编制宏程序⒈按下“AltF11”组合键，打开“VisualBasic编辑器”图3，在右侧的“工程资源管理器”区域中，选中“VBAProject桌签xls”选项，执行“插入→模块”命令，插入一个模块模块1。
⒉双击“模块1”，展开右侧的代码编辑区，将下述代码输入其中Sub桌签建立一个名称为“桌签”的宏。Fori1ToSheet1Cells13设立一个循环开始值为1，结束值为Sheet1工作表C3单元格内的值即桌签数目。Sheet1Select选中Sheet1工作表。Cells11ValueCellsi2Value依次将B列的桌签字符调入A1单元格中。Colum
s