返回列表 上一主題 發帖

[分享] Word圖片大小一致化...

[分享] 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
複製代碼

  多做多想多學習,少看少錯少迷途

  多做=多多練習,多多編寫。
  多想=想想為什麼人家程式要那樣寫,如果換成自己,又會怎寫。
  多學習=學習人家的發問並解答,學習人家的寫法

  少看=只看不做也枉然

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

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

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


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

TOP

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

TOP

感謝大大分享

TOP

值得參考一下

TOP

        靜思自在 : 原諒別人就是善待自己。
返回列表 上一主題