如何在Excel单元格中居中图片？

本文将向您展示一种方法，将图片移动到Excel工作表中单元格的中心位置，如下方截图所示。

使用VBA代码将图片移动到单元格中心

使用VBA代码将图片移动到单元格中心。

请按照以下步骤操作，将图片移动到Excel工作表中的单元格中心。

1. 打开包含需要居中图片的工作表，然后按 Alt + F11 键打开 Microsoft Visual Basic for Applications 窗口。

2. 在 Microsoft Visual Basic for Applications 窗口中，请点击 插入 > 模块。然后复制并粘贴 VBA 代码到代码窗口中。

VBA代码：将图片移动到工作表中的单元格中心

Sub CenterPictures()
With ActiveSheet.Shapes("Picture 2")
.Top = Range("A1").Top + (Range("A1").Height - .Height) / 2
.Left = Range("A1").Left + (Range("A1").Width - .Width) / 2
End With
With ActiveSheet.Shapes("Picture 4")
.Top = Range("A2").Top + (Range("A2").Height - .Height) / 2
.Left = Range("A2").Left + (Range("A2").Width - .Width) / 2
End With
With ActiveSheet.Shapes("Picture 6")
.Top = Range("A3").Top + (Range("A3").Height - .Height) / 2
.Left = Range("A3").Left + (Range("A3").Width - .Width) / 2
End With
End Sub

注意：

With ActiveSheet.Shapes("Picture name")
.Top = Range("Cell Address").Top + (Range("Cell Address").Height - .Height) / 2
.Left = Range("Cell Address").Left + (Range("Cell Address").Width - .Width) / 2
End With

3. 按下 F5 键运行代码。

随后，所有指定的图片将立即移动到特定单元格的中心位置，如下方截图所示。

使用 Kutools AI 解锁 Excel 魔法

• 智能执行：执行单元格操作、分析数据和创建图表——所有这些都由简单命令驱动。
• 自定义公式：生成量身定制的公式，优化您的工作流程。
• VBA 编码：轻松编写和实现 VBA 代码。
• 公式解释：轻松理解复杂公式。
• 文本翻译：打破电子表格中的语言障碍。

通过人工智能驱动的工具增强您的 Excel 能力。立即下载，体验前所未有的高效！

相关文章：

• 如何自动更改所有图片以随单元格移动和调整大小？
• 如何检查Excel中的单元格是否包含图片？
• 如何基于单元格值动态在单元格中插入图片或图像？
• 如何在Excel中单击图片时放大图片？