如何在 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 中動態插入圖片或影像？
• 如何在 Excel 中點擊圖片時放大圖片？