批量調整word 圖片大小

打開文檔後，按Alt+F11,在左邊Porject下找到ThisDocument，右鍵插入模塊，貼上下面的 Sub Macro() For Each iShape In ActiveDocument.InlineShapes iShape.Height = iShape.Height * 0.25 iShape.Width = iShape.Width * 0.25 Next iShape End

>>阅读原文<<