Yahoo Answers is shutting down on May 4th, 2021 (Eastern Time) and beginning April 20th, 2021 (Eastern Time) the Yahoo Answers website will be in read-only mode. There will be no changes to other Yahoo properties or services, or your Yahoo account. You can find more information about the Yahoo Answers shutdown and how to download your data on this help page.

WORD 多個圖片統一大小

各位大大您好~

我在網路上複製了檔案 貼到WORD上~

結果圖會超過A4的大小 而且很多張圖都超過

有沒有快速的方法 可以一次把所有超過長度的圖片

一自修改成符合A4的大小呢??

2 Answers

Rating
  • 8 years ago
    Favorite Answer

    理論上在WORD上貼圖會自動每個圖縮到頁面大小中,不會超出頁面。

    若要自動調整圖的長寬,可用下列VBA程式:

    maxWidth為最寬,此處設定不超過400

    maxHeight為最高,此處設定不超過600

    而且會保持原圖案長寬比例,可以試試看。

    Sub 調整圖片寬高1()

    Dim ashape As InlineShape

    Dim x, y, z As Single

    Dim maxWidth, maxHeight

    maxWidth = 400

    maxHeight = 600

    For Each ashape In ActiveDocument.InlineShapes

    ashape.Select

    Selection.ParagraphFormat.LineSpacingRule = wdLineSpaceSingle

    ashape.PictureFormat.ColorType = msoPictureAutomatic

    If ashape.Width > maxWidth Then

    y = ashape.Width

    x = y / maxWidth

    ashape.Width = maxWidth

    z = ashape.Height

    z = z / x

    ashape.Height = z

    End If

    If ashape.Height > maxHeight Then

    y = ashape.Height

    x = y / maxHeight

    ashape.Height = maxHeight

    z = ashape.Width

    z = z / x

    ashape.Width = z

    End If

    Next ashape

    End Sub

  • ?
    Lv 7
    8 years ago

    如果已經貼在WORD檔上就建議您,每一個都點完後按又間格式去縮小。

Still have questions? Get your answers by asking now.