作者ijn123g (小花)
看板share
標題Fw: [分享] 讓你輕鬆大量修改 Word圖片大小
時間Fri Oct 25 11:19:13 2013
※ [本文轉錄自 Office 看板 #1IQUAWOR ]
作者: ijn123g (小花) 看板: Office
標題: [分享] 讓你輕鬆大量修改 Word圖片大小
時間: Fri Oct 25 11:16:44 2013
小的身為辦公室人員
常常遇到要將多張圖片
縮成特定尺寸而感到困擾
例如常要將某一大型圖片 縮成 3.14*6.1
每次都必須丟圖片後手動將「縮比例限制」解除
然後在手動輸入這六個字
每次都有30幾張圖片要弄
弄起來真的很生氣阿~偏偏word很不親人
也沒有這樣的修改方式給大家用
後來拜託朋友寫出以下'巨集'
提供給同樣有這困擾的朋友一起來使用
先前有在office板以及估狗大神上
找過相關的關鍵字 word 圖片
每次都沒有人回答
小的希望這篇可以造福全世人 獨樂樂不如眾樂樂
況且真是很方便阿~~~~~~~
首先先按>檢視>檢視巨集>之後創建一個巨集名稱可以亂取
然後創建後按>編輯>之後在編輯內貼上以下語法(感謝fbiwbi大大編寫提供)
(裡面的高Height3.42 寬Width 6.1 是我要的尺寸，
各位朋友有想要不同的圖片大小要自己改掉填入喔
---------------------------------
Sub adjustPictSize()
Dim picWidth As Integer
Dim picHeight As Integer
Dim oIshp As InlineShape
picHeight = 3.42 * 28.32
picWidth = 6.1 * 28.32
For Each oIshp In ActiveDocument.InlineShapes
With oIshp
.LockAspectRatio = msoFalse
.Height = picHeight
.Width = picWidth
End With
Next oIshp
End Sub
之後再按儲存，並切關閉語法畫面回到word畫面
之後就依序把多張圖片都丟入此word檔案中
然後同樣來到檢視的地方>按下檢視巨集>執行
咻----------------
圖片就瞬間變成想要的樣子啦 Magic~~~~~~~
爽度增加+++++
~(￣▽￣)~(＿△＿)~(￣▽￣)~(＿△＿)~(￣▽￣)~
好文分享
希望大家在辦公的效率上都能有提升^^
謝謝收看~~~~~
--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 122.146.56.168
※ 發信站: 批踢踢實業坊(ptt.cc)
※ 轉錄者: ijn123g (122.146.56.168), 時間: 10/25/2013 11:19:13