Outlookメールのすべての画像のサイズを一括変更する方法

Outlookソリューション 2025 年 9 月 29 日
今すぐ共有：

Outlookは、挿入された画像を電子メール本文のテキストに自動的に適合させません。 したがって、一部の埋め込み画像が大きすぎたり小さすぎたりすると思われる場合は、サイズを変更することをお勧めします。 この記事では、それらのサイズをまとめて変更する方法について説明します。

Outlookでは、電子メールの本文に画像を挿入するときに、画像が大きすぎる場合は、本文に収まるまで絶対に拡大縮小する必要があります。 このような状況で、このメールに複数の写真が含まれている場合、手動でXNUMXつずつサイズを変更することはお勧めできません。 さて、以下では、Outlookの電子メール内のすべての画像をバッチサイズ変更できるはるかに迅速な方法を紹介します。

Outlookメールのすべての画像のサイズを一括変更

電子メール内のすべての画像のバッチサイズ変更

  1. 最初に、Outlookアプリケーションを起動する必要があります。
  2. 次に、表示されているOutlookのメインウィンドウで、「Alt + F11」キーボタンを押す必要があります。
  3. すぐに、「Microsoft Visual BasicforApplications」ウィンドウに入ります。
  4. ここで、使用されていないモジュールにアクセスするか、新しいモジュールを挿入する必要があります。
  5. 次に、次のVBAコードをコピーしてこのモジュールに貼り付ける必要があります。
Sub BatchResizeAllPicturesInEmail()
    Dim objMail As Outlook.MailItem
    Dim objMailDocument As Word.Document
    Dim nPercentSize As Integer
    Dim objInlineShape As Word.InlineShape
    Dim objShape As Word.Shape
 
    'Get the source email
    Select Case Application.ActiveWindow.Class
           Case olExplorer
                Set objMail = ActiveExplorer.Selection.Item(1)
                objMail.Display
           Case olInspector
                Set objMail = ActiveInspector.CurrentItem
    End Select
 
    Set objMailDocument = objMail.GetInspector.WordEditor
 
    'Enter the percent whcih you want to resize picture to
    nPercentSize = InputBox("Specify the percent of full size", "Resize Picture", 50)
 
    'Resize all the pictures in this email
    For Each objInlineShape In objMailDocument.InlineShapes
        objInlineShape.ScaleHeight = nPercentSize
        objInlineShape.ScaleWidth = nPercentSize
    Next

    For Each objShape In objMailDocument.Shapes
        objShape.ScaleHeight PercentSize / 100, msoCTrue
        objShape.ScaleWidth PercentSize / 100, msoCTrue
    Next
End Sub

VBAコード-電子メール内のすべての画像のバッチサイズ変更

  1. 後で、右上隅の「X」アイコンを押して、このウィンドウを終了できます。
  2. その後、将来の便宜のために、この新しいVBAプロジェクトをメッセージウィンドウのクイックアクセスツールバーに追加することをお勧めします。 あなたは「Outlookオプション」でそれを達成することができます。
  3. 最終的に、あなたはショットを持つことができます：
  • まず、通常どおりメールを作成して作成します。
  • 次に、このメールに複数の写真を挿入します。
  • 次に、クイックアクセスツールバーのマクロボタンをクリックします。
  • 一度に、画像のサイズを変更するフルサイズのパーセントを入力する必要があります。フルサイズのパーセントを入力してください
  • 「OK」を押すと、すべての画像のサイズが変更されます。

認定された修理ツールを手に入れよう

Outlookは破損しやすいため、次のような信頼できる強力な外部修復ツールを維持することが賢明です。 DataNumen Outlook Repair。 通常、Outlookの損傷に遭遇するとすぐに、最初に再発する可能性があります。 受信トレイ修復ツール。 しかし、それも失敗した場合は、外部修正ユーティリティが役立ち、時間内にデータを救出することができます。

著者紹介：

Shirley Zhangは、のデータ復旧の専門家です。 DataNumen、Inc。は、以下を含むデータ復旧技術の世界的リーダーです。 SQLを回復する と見通し修理ソフトウェア製品。 詳細については、次のWebサイトをご覧ください。 WWW。datanumen.com

今すぐ共有：

コメントは締め切りました。