返回目录:excel表格制作
其实这个可以不用宏也可以实现
<table><img src = "E:\91ef76c6a7efce1b4a7e517ca551f3deb48f652b.jpg" height = "125" width = "235"> </table>
src 图片的地址这个可以根据自己的 图片路径来改zd
height 是图片的高度单位是内像素可以根据自己的 图片高度来改
width 是图片的高度单位是像素可以根据自己的 图片宽度来改
所以就要把单元格的高度设置为 125px
宽度设置为 235 px
在拉动了标题的时候会出现宽度只要拉到235就行了
高度也是一样的设置
接下来容复制<table><img src = "E:\91ef76c6a7efce1b4a7e517ca551f3deb48f652b.jpg" height = "125" width = "235"> </table>选中单元格右键选择性粘贴
执行结果:
首先打开excel表格,【插入】-【图片】
插入多张图片后,如下百图,小编插入7张图为例
看最下面一张图片大致在多少度行
然后“ctrl+G”定位快捷键,选“对象”定位
选择【绘知图工具】-对齐-左对齐
鼠标拖动至左道侧位置
上面说到插入7张图,最底图大概在18行位置,所以18*7=126,把最上面的图版往下拖至126行位置
然后“ctrl+G”定位选择“对象”--“定位”
选择【绘图工具】--对齐--纵向分布权
步骤一:选中需要批量居中的图片(推荐随便选中一张图抄片,然后按住CTRL+A 即可全选表格中所有图片)
步骤二:按alt+F11,出现另外一个代袭码处理窗口,选中“插入-模块”
步骤三:在输入框中插入下列代码
Sub dq()
Dimshp AsShape
ForEachshp InActiveSheet.Shapes
shp.Left = (shp.TopLeftCell.Width - shp.Width) / 2 + shp.TopLeftCell.Left
shp.Top = (shp.TopLeftCell.Height - shp.Height) / 2 + shp.TopLeftCell.Top
Next
EndSub
步骤四:回到需要处理图片知居中对齐的窗口
按住ALT +F8 执行宏dq 操作。(图片较多的话可能需要稍微道等待一两分钟,之后所有被选中的图片就都整整齐齐的对齐啦。)
完成