步驟一:選中需要批量居中的圖片(推薦隨便選中一張圖片,然后按住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 操作。(圖片較多的話可能需要稍微等待一兩分鐘,之后所有被選中的圖片就都整整齊齊的對齊啦。)

?

選擇圖表，再選擇居中鍵就可以了。