Board logo

標題: [分享] 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.     Dim myInlineShape As InlineShape
  3.     For Each myInlineShape In ActiveDocument.InlineShapes
  4.         
  5.         If myInlineShape.Width <> 183.69 Or myInlineShape.Height <> 277.47 Then
  6.                     
  7.             myInlineShape.Width = 180 '公分和程式比例:28.34645669   180/6.35cm =28.34645669
  8.             myInlineShape.Height = 110.25 '公分和程式比例:28.34190231   110.25/3.89cm =28.34190231
  9.             With myInlineShape.Range.Paragraphs(1).Range.ParagraphFormat
  10.                 .CharacterUnitFirstLineIndent = 0
  11.                 .FirstLineIndent = 0
  12.                 .Alignment = wdAlignParagraphCenter
  13.             End With
  14.           End If
  15.     Next
  16.    
  17. 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/)