让图片在excel单元格中居中

单靠excel的基本功能没办法直接对齐到单元格，确实需要用VBA代码来对齐。

按alt+F11，插入-模块，然后在里面输入下面的代码，回到excel，选择你需要对齐图片的工作表，然后alt+F8执行宏“duiqi”就可以了。（以图片左上角所在单元格为对齐目标单元格，注意图片别放错格子）

1. Sub duiqi()
   
2. Dim shp As Shape
   
3. For Each shp In ActiveSheet.Shapes
   
4. shp.Left = (shp.TopLeftCell.Width - shp.Width) / 2 + shp.TopLeftCell.Left
   
5. shp.Top = (shp.TopLeftCell.Height - shp.Height) / 2 + shp.TopLeftCell.Top
   
6. Next
   
7. End Sub

复制代码