為什麼這篇Word 多張照片鄉民發文收入到精華區:因為在Word 多張照片這個討論話題中,有許多相關的文章在討論,這篇最有參考價值!作者ijn123g (小花)看板Office標題[分享] 讓你輕鬆大量修改 Word圖片大小 時間F...
Word 多張照片 在 茵茵❌かおり Instagram 的最佳解答
2020-05-03 23:23:42
今天花了好多時間要整理吳哥窟的照片 看了很多張照片下載⏬了很多到電腦 然後 . . . . . . . . . . . . 我就又懶得修照片了⋯⋯ #吳哥窟#小吳哥#Cambodia#Angkor Wat#SiemReap#travel#friend#girl#word#trip#art#...
小的身為辦公室人員
常常遇到要將多張圖片
縮成特定尺寸而感到困擾
例如常要將某一大型圖片 縮成 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
※ ijn123g:轉錄至看板 share 10/25 11:19