Re: [分享] 讓你輕鬆大量修改 Word圖片大小

看板Office作者layzer (我有一個豬寶貝)時間10年前 (2016/02/22 15:24)推噓0(0推 0噓 0→)

留言0則, 0人參與討論串2/2 (看更多)

※ 引述《ijn123g (小花)》之銘言： : 小的身為辦公室人員 : 常常遇到要將多張圖片 : 縮成特定尺寸而感到困擾 : 例如常要將某一大型圖片縮成 3.14*6.1 : 每次都必須丟圖片後手動將「縮比例限制」解除 : 然後在手動輸入這六個字 : 每次都有30幾張圖片要弄 : 弄起來真的很生氣阿~偏偏word很不親人 : 也沒有這樣的修改方式給大家用 : 後來拜託朋友寫出以下'巨集' : 提供給同樣有這困擾的朋友一起來使用 : 先前有在office板以及估狗大神上 : 找過相關的關鍵字 word 圖片 : 每次都沒有人回答 : 小的希望這篇可以造福全世人獨樂樂不如眾樂樂 : 況且真是很方便阿~~~~~~~ : 首先先按>檢視>檢視巨集>之後創建一個巨集名稱可以亂取 : 然後創建後按>編輯>之後在編輯內貼上以下語法(感謝fbiwbi大大編寫提供) : (裡面的高Height3.42 寬Width 6.1 是我要的尺寸， : 各位朋友有想要不同的圖片大小要自己改掉填入喔 : 之後再按儲存，並切關閉語法畫面回到word畫面 : 之後就依序把多張圖片都丟入此word檔案中 : 然後同樣來到檢視的地方>按下檢視巨集>執行 : 咻---------------- : 圖片就瞬間變成想要的樣子啦 Magic~~~~~~~ : 爽度增加+++++ : ~(￣▽￣)~(＿△＿)~(￣▽￣)~(＿△＿)~(￣▽￣)~ : 好文分享 : 希望大家在辦公的效率上都能有提升^^ : 謝謝收看~~~~~ 借用vba改了一下原有vba會固定尺寸如果圖片一下直一下橫那就完了XD 我把它改成用乘的來調整因為不能打百分比所以只好直接用小數了 Sub adjustPictSize() Dim picWidth As Integer Dim picHeight As Integer Dim oIshp As InlineShape For Each oIshp In ActiveDocument.InlineShapes '這邊不能用百分比 picHeight = oIshp.Height * 0.2 picWidth = oIshp.Width * 0.2 With oIshp .LockAspectRatio = msoFalse .Height = picHeight .Width = picWidth End With Next oIshp End Sub -- 第1話似乎在課堂上聽過的樣子第2話那真是太令人絕望了呢第3話再也沒什麼好寫的了第4話 32和21都是存在的喔第5話怎麼可能會寫這種考卷第6話考古題絕對很有用的啊第7話你能面對真正的分數嗎第8話我真是個笨蛋第9話這種成績教授絕不會讓我過的第10話再也不讓任何學分被當第11話最後留下來的補考第12話我最棒的教授期末少女小圓★重修 -- ※ 發信站: 批踢踢實業坊(ptt.cc), 來自: 203.74.123.154 ※ 文章網址: https://www.ptt.cc/bbs/Office/M.1456125892.A.99A.html