步驟一:選中需要批次居中的圖片(推薦隨便選中一張圖片,然後按住CTRL+A 即可全選表格中所有圖片)
步驟二:按alt+F11,出現另外一個程式碼處理視窗,選中“插入-模組”
步驟三:在輸入框中插入下列程式碼
Sub dq()
Dimshp AsShape
ForEachshp
InActiveSheet.Shapes
shp.Left
shp.TopLeftCell.Width
shp.TopLeftCell.Left
shp.Top
shp.TopLeftCell.Height
shp.TopLeftCell.Top
Next
EndSub
步驟四:回到需要處理圖片居中對齊的視窗
按住ALT +F8 執行宏dq 操作。(圖片較多的話可能需要稍微等待一兩分鐘,之後所有被選中的圖片就都整整齊齊的對齊啦。)
完成
步驟一:選中需要批次居中的圖片(推薦隨便選中一張圖片,然後按住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 操作。(圖片較多的話可能需要稍微等待一兩分鐘,之後所有被選中的圖片就都整整齊齊的對齊啦。)
完成