Excel的图片怎么批量居中？

发布网友 发布时间：2022-02-26 12:17

我来回答

共3个回答

热心网友 时间：2022-02-26 13:46

'第2列数据改变则插入同名图片，图片不变形且居中

Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Count > 1 Or Target.Column <> 2 Then Exit Sub

On Error Resume Next

Dim Pic As Object, FN As String
If Target.Count = 1 And Target <> "" And Target.Column = 2 And Target.Row > 4 Then ' Target.Column=数字,这个数字为你输入图片名称单元格所在列的列号,A=1,B=2.....
FN = ThisWorkbook.Path & "\图片\" & Target & ".jpg" '遍历本工作簿路径的“图片”文件夹，查找图片
Shapes(Target.Address).Delete

' Target.Offset(0,1), 其中的数字1代表了显示图片的单元格位置列号与图片名称所在单元格位置列号的差
Set Pic = ActiveSheet.Shapes.AddPicture(FN, True, True, Target.Offset(0, 1).Left + Target.Offset(0, 1).Width * 0.005, Target.Offset(0, 1).Top + Target.Offset(0, 1).Height * 0.005, Target.Offset(0, 1).Width * 0.99, Target.Offset(0, 1).Height * 0.99)
Pic.Name = Target.Address
'ActiveSheet.Hyperlinks.Add Anchor:=Pic, Address:=FN 建立超链接
End If

End Sub追问请看看我的代码，可以修改成图片自动居中吗？http://zhidao.baidu.com/question/367927934564480764.html?quesup2&oldq=1

追答关于http://zhidao.baidu.com/question/367927934564480764.html?quesup2&oldq=1，已作答，请留意

热心网友 时间：2022-02-26 15:04

F5 定位-对象,这样可以选定所有图片，再设置格式对齐方式追问我这个表格有400款产品，输入产品编号，自动分解出全部详细物料。你这个方法只适用于不变的表格，我这个内容经常变换的。

热心网友 时间：2022-02-26 16:39

选中列然后居中不行吗？追问这样居中的是文字，不包含图片。另外图片我是用VB插入的。