[分享] 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>

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

Sub 嵌入圖片段落居中()
Dim myInlineShape As InlineShape
For Each myInlineShape In ActiveDocument.InlineShapes
If myInlineShape.Width <> 183.69 Or myInlineShape.Height <> 277.47 Then
myInlineShape.Width = 180 '公分和程式比例：28.34645669 180/6.35cm =28.34645669
myInlineShape.Height = 110.25 '公分和程式比例：28.34190231 110.25/3.89cm =28.34190231
With myInlineShape.Range.Paragraphs(1).Range.ParagraphFormat
.CharacterUnitFirstLineIndent = 0
.FirstLineIndent = 0
.Alignment = wdAlignParagraphCenter
End With
End If
Next
End Sub

複製代碼

樓主熱帖

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

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

  少看=只看不做也枉然

asd16801680

小學生 Rank: 1

帖子: 40
主題: 2
精華: 0
積分: 44
點名: 0
作業系統: win
軟體版本: xp
閱讀權限: 10
性別: 男
註冊時間: 2016-3-8
最後登錄: 2016-3-19

2^#

發表於 2016-3-17 00:23 | 只看該作者

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

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

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

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

TOP

w883788105