返回目录:excel表格制作
图片可以直接拖动啊,你把几个单元格合并后就可以拖动了啊,不行久把单元格属性改为文本属性。如果以上方法都不行久发百度消息给我,把意思告诉我我帮你搞好在弄给你
步骤一知:选中需要批量居中的图片(推荐随便选中一张图片,然后按住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 操作。(图片较多的话可能需要稍微等待一两属分钟,之后所有被选中的图片就都整整齐齐的对齐啦。)
完成
可以通过VBA实现,点击【开发工具】,【Visual Basic】打开VBA编辑器,也可以使用【Alt+F11】组合键打开VBA编辑器。双击“模块1”,复制以下代码。然后插入按钮,指定宏即可。
代码如下
Sub InsertPic()
'ExcelHome VBA编程学习与实践 by:看见星光
Dim Arr, i&, k&, n&, pd&
Dim strPicName$, strPicPath$, strFdPath$, shp As Shape
Dim Rng As Range, Cll As Range, Rg As Range, strWhere As String
'On Error Resume Next
'用户选择图片所在的文件夹
With Application.FileDialog(msoFileDialogFolderPicker)
If .Show Then strFdPath = .SelectedItems(1) Else: Exit Sub
End With
If Right(strFdPath, 1) <> "\" Then strFdPath = strFdPath & "\"
Set Rng = Application.InputBox("请选择图片名称所在的单元格区域", Type:=8)
'用户选择需要插入图片的名称所在单元格范围
Set Rng = Intersect(Rng.Parent.UsedRange, Rng)
'intersect语句避免用户选择整列单元格,造成无谓运算的情况
If Rng Is Nothing Then MsgBox "选择的单元格范围不存在数据!": Exit Sub
strWhere = InputBox("请输入图片偏移的位置,例如上1、下1、左1、右1", , "右1")
'用户输入图片相对单元格的偏移位置。
If Len(strWhere) = 0 Then Exit Sub
x = Left(strWhere, 1)
'偏移的方向
If InStr("上下左右", x) = 0 Then MsgBox "你未输入偏移方位。": Exit Sub
y = Val(Mid(strWhere, 2))
'偏移的值
Select Case x
Case "上"
Set Rg = Rng.Offset(-y, 0)
Case "下"
Set Rg = Rng.Offset(y, 0)
Case "左"
Set Rg = Rng.Offset(0, -y)
Case "右"
Set Rg = Rng.Offset(0, y)
End Select
Application.ScreenUpdating = False
Rng.Parent.Select
For Each shp In ActiveSheet.Shapes
'如果旧图片存放在目标图片存放范围则删除
If Not Intersect(Rg, shp.TopLeftCell) Is Nothing Then shp.Delete
Next
x = Rg.Row - Rng.Row
y = Rg.Column - Rng.Column
'偏移的坐标
Arr = Array(".jpg", ".jpeg", ".bmp", ".png", ".gif")
'用数组变量记录五种文件格式
For Each Cll In Rng
'遍历选择区域的每一个单元格
strPicName = Cll.Text
'图片名称
If Len(strPicName) Then
'如果单元格存在值
strPicPath = strFdPath & strPicName
'图片路径
pd = 0
'pd变量标记是否找到7a686964616fe78988e69d83338相关图片
For i = 0 To UBound(Arr)
'由于不确定用户的图片格式,因此遍历图片格式
If Len(Dir(strPicPath & Arr(i))) Then
'如果存在相关文件
Set shp = ActiveSheet.Shapes.AddPicture( _
strPicPath & Arr(i), False, True, _
Cll.Offset(x, y).Left + 5, _
Cll.Offset(x, y).Top + 5, _
20, 20)
shp.Select
With Selection
.ShapeRange.LockAspectRatio = msoFalse
'撤销锁定图片纵横比
.Height = Cll.Offset(x, y).Height - 10 '图片高度
.Width = Cll.Offset(x, y).Width - 10 '图片宽度
End With
pd = 1 '标记找到结果
n = n + 1 '累加找到结果的个数
[a1].Select: Exit For '找到结果后就可以退出文件格式循环
End If
Next
If pd = 0 Then k = k + 1 '如果没找到图片累加个数
End If
Next
Application.ScreenUpdating = True
MsgBox "共处理成功" & n & "个图片,另有" & k & "个非空单元格未找到对应的图片。"
End Sub
小提示:
1,该段小代码支持一下图片格式:
".jpg", ".jpeg", ".bmp", ".png", ".gif"
2,图片的纵横比是未锁定的,如需锁定,可以注释掉下句代码:
.ShapeRange.LockAspectRatio = msoFalse
1、首先是需要打开百Word文件,如图所示,点击需要插入图片的表格。度
2、然知后点击左上角的插入,选择图片,就是需要插入的图标。
3、然后就是可以看到已经把图片插入进入了。
4、最道后,按住alt键将图片的四边图框进行再回表格里面,这样操作会快速将图片和单元格的边框居答中对齐即可解决问题了。