步骤一:选中需要批量居中的图片(推荐随便选中一张图片,然后按住CTRL+A 即可全选表格中所有图片) 步骤二:按alt+F11,出现另外一个代码处理窗口,选中“插入-模块” 步骤三:在输入框中插入下列代码 Sub dq() Dimshp AsShape ForEachshp ***.shapes ***.left = (***.topLeftCell.Width - ***.width) / 2 ...
步骤一:选中需要批量居中的图片(推荐随便选中一张图片,然后按住CTRL+A 即可全选表格中所有图片)步骤二:...
手工操作基本上是不可能的咯，需要用VBA代码将各个图片的TOP/LEFT属性都指定一遍才可以~~去网上搜一下这方面的代码自己试试。
起点136 3298 8526: 步骤一:选中需要批量居中的图片(推荐随便选中一张图片,然后按住CTRL+A即可全选表格中所有图片)步骤二:按alt+F11,出现另外一个代码处理窗口,选中“插入-模块”步骤三:在输入框中插入下列代码Subdq()DimshpAsShapeForEachshpInActiveSheet.Shapesshp.Left=(shp.TopLeftCell.Width-shp.Width)/2+s...
步骤一:选中需要批量居中的图片(推荐随便选中一张图片,然后按住CTRL+A 即可全选表格中所有图片)步骤二:按alt+F11,出现另外一个代码处理窗口,选中“插入-模块”步骤三:在输入框中插入下列代码 Sub dq()Dimshp AsShape ForEachshp InActiveSheet.Shapes shp.Left = (shp.TopLeftCell.Width - shp....
步骤一:选中需要批量居中的图片(推荐随便选中一张图片,然后按住CTRL+A 即可全选表格中所有图片)步骤二:按alt+F11,出现另外一个代码处理窗口,选中“插入-模块”步骤三:在输入框中插入下列代码 Sub dq()Dimshp AsShape ForEachshp InActiveSheet.Shapes shp.Left = (shp.TopLeftCell.Width - shp....
手工操作基本上是不可能的咯，需要用VBA代码将各个图片的TOP/LEFT属性都指定一遍才可以~~ 去网上搜一...