返回列表 上一主題 發帖

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

mark15jill
　暱稱: 隨風飄蕩的羽毛
　頭銜: [御用]潛水艇

高中生Rank: 3Rank: 3

帖子
852 
主題
79 
精華
0 
積分
918 
點名
0  
作業系統
Windows 7 , XP 
軟體版本
Office 2007, Office 2003,Office 2010,YoZo Office 
閱讀權限
50 
性別
男 
來自
宇宙 
註冊時間
2011-4-8 
最後登錄
2024-2-21 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 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 嵌入圖片段落居中()

  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
複製代碼
收藏 分享

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

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

  少看=只看不做也枉然

        靜思自在 : 人的眼睛長在前面，只看到別人的缺點，絲毫看不到自己的缺點。
返回列表 上一主題