Question

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 操作。(图片较多的话可能需要稍微等待一两分钟,之后所有被选中的图片就都整整齐齐的对齐啦。)

上面代码哪里错了，怎么修改。

Answer 1

步骤一:选中需要批量居中的图片(推荐随便选中一张图片,然后按住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 操作。(图片较多的话可能需要稍微等待一两分钟,之后所有被选中的图片就都整整齐齐的对齐啦。)

追问

你能看完在copy？

Answer 2

答案来自其他网友提供，但我亲自测试过
方法有很多，前面二位说的都是插入图片的方法，我建议你使用插入→图片→找到你要插入图片的目标位置→插入。此时图片是插入了，但图片可能会很大，也不符合你说的在某一“单元格里”这才是关键所在，因为你说的要在单元格中，所以还需要以下操作，首先，你把需要插入图片的单元格拖放大一些，这样方便操作，插入图片后，根据你的应用需要再把图片缩小，同时也把单元格缩放与图片同样大小，然后选中图片→单击右键→大小和属性→属性→大小和位置随单元格面变→关闭。好了，这样就设置好了，之后不管单元格如何变（放大或者缩小），图片也会跟着变。如果需要在多个单元格中插入图片，可以复制设置好的单元格，然后粘贴到其它单元格，全部复制好后，选择右键→更改图片→更改成你需要的图片就ok了，不知道这们朋友是不是要达到这样的效果。
不过需要注意的是：office2003不支持更改图片选项，建议这位朋友使用office2007或者2010版的。如有满意可以继续来问，谢谢！祝开心！

Answer 3

代码是对的，亲测是你的空格没有放好！应该这样：
Sub dq()
Dim shp As Shape
For Each shp In ActiveSheet.Shapes
shp.Left = (shp.TopLeftCell.Width - shp.Width) / 2 + shp.TopLeftCell.Left
shp.Top = (shp.TopLeftCell.Height - shp.Height) / 2 + shp.TopLeftCell.Top
Next
End Sub

Answer 4

步骤一:选中需要批量居中的图片(推荐随便选中一张图片,然后按住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 操作。(图片较多的话可能需要稍微等待一两分钟,之后所有被选中的图片就都整整齐齐的对齐啦。)

扩展资料：
Microsoft Excel是Microsoft为使用Windows和AppleMacintosh操作系统的电脑编写的一款电子表格软件。 直观的界面、出色的计算功能和图表工具，再加上成功的市场营销，使Excel成为最流行的个人计算机数据处理软件。在1993年，作为Microsoft Office的组件发布了5.0版之后，Excel就开始成为所适用操作平台上的电子制表软件的霸主。

Answer 5

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 操作。(图片较多的话可能需要稍微等待一两分钟,之后所有被选中的图片就都整整齐齐的对齐啦。)