gxchai的博客

需要将第2页幻灯片的第3个文本框设置为动态变化的时钟。

碰到一个问题，是要从干部大表中提取人员的各种信息，几百张大表都是DOC格式，就写了以下代码，把这个EXCEL文件和所有WORD放在同一个目录下，运行下就可以了。

昨天写了一个分组公式，把同事激动得以为所有排座位都可以用一个公式来完成，今天一早又说排座位，把整个会场分成3片，中间片是交错排列，左侧和右侧是向两边排列，画个图示意就是这样让我写个公式，我说，这还真不是一个公式可以完成的，就写了几行代码，可以做到以下功能：1、可以只设定中间区域，也就是会场所有人员按交错排列2、可以只设定左边区域或右边区载，也就是所有人员统一从左向右排或从右向左排3、可以混合排，就是按我同事的要求，先中间交错排，然后左侧从右向左排，再右侧从左向右排大概界面是这样分两个工作表，

在B列已有图片的链接地址，要在C列显示相应的图片，下面是代码Sub 把B列图片链接在C列生成图片() '以第2-4行为例，设定单位格宽度（图片宽度） Columns("C:C").ColumnWidth = 36.22 Rows("2:4").RowHeight = 150 '插入图片（假设图都是4：3的，否则还涉及要取得原始尺寸，如果图小，可以直接把200，150改为-1，-1） For i = 2 To 4 ActiveSheet.Shapes.

下面脚本是进行对本目录（不含子目录）的xls文件进行打印最大的问题自动双面无法处理。现在解决办法是：1、默认打印机中直接设置为自动双面，但有的打印机（如东芝AC2000）即使设置了也没有带到EXCEL里来2、取消Application.Dialogs(xlDialogPrint).Show前的注释，这时每次要打前会提示打印设置，这个有点头大3、根据https://stackoverflow.com/questions/40848751/excel-vba-printer-api-set-colou