標題: [分享] Word圖片大小一致化... [打印本頁]

---

作者: mark15jill    時間: 2015-8-9 17:05     標題: Word圖片大小一致化...

本帖最後由 mark15jill 於 2015-8-9 17:06 編輯

此範例主原始碼為網路找到的
但發此帖主要是想分享
檔案內所看到的圖片高度、寬度的cm和 VBA 所呈現數據的比值...
例如：我圖片全部要統一成為  寬度：6.35cm  高度3.89cm則...

            myInlineShape.Width = 180         '公分和程式比例：28.34645669   180/6.35cm =28.34645669<通常只取小數點第二位 四捨五入就好 28.347>
            myInlineShape.Height = 110.25  '公分和程式比例：28.34190231   110.25/3.89cm =28.34190231<通常只取小數點第二位 四捨五入就好 28.342>

但這方法會有個問題，她所判斷的是該檔案全部的圖...
換句話說 如果有小圖示 小圖標.. 那.....

1. Sub 嵌入圖片段落居中()
   
2. 
   
3.     Dim myInlineShape As InlineShape
   
4.     For Each myInlineShape In ActiveDocument.InlineShapes
   
5.         
   
6.         If myInlineShape.Width <> 183.69 Or myInlineShape.Height <> 277.47 Then
   
7.                     
   
8.             myInlineShape.Width = 180 '公分和程式比例：28.34645669   180/6.35cm =28.34645669
   
9.             myInlineShape.Height = 110.25 '公分和程式比例：28.34190231   110.25/3.89cm =28.34190231
   
10.             With myInlineShape.Range.Paragraphs(1).Range.ParagraphFormat
    
11.                 .CharacterUnitFirstLineIndent = 0
    
12.                 .FirstLineIndent = 0
    
13.                 .Alignment = wdAlignParagraphCenter
    
14.             End With
    
15.           End If
    
16.     Next
    
17.    
    
18. End Sub

複製代碼

---

作者: asd16801680    時間: 2016-3-17 00:23

滑鼠移到圖片連點兩下
開啟設定圖片格式/大小
完成你要的規格後按確定

滑鼠移到第二張圖片點一下(選取)

就可以重複最近的ㄧ個動作(即第一張圖片大小設定的動作)
點選第三張圖片再按F4
點選第四張圖片再按F4
......
100張圖片只要按99次F4
是不是很快?


附記：
按F4即可重複上ㄧ個動作
如果按F4之前是DELET
那你不斷按F4他就會不斷的執行DELETE

---

作者: w883788105    時間: 2016-7-18 13:54

如果你會Photoshop處理圖片，
可以錄製動作，
可免去按99次F4

---

作者: panet1    時間: 2016-11-22 15:17

感謝大大分享

---

作者: pppannm    時間: 2016-11-22 17:05

值得參考一下

---

歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)