web-dev-qa-db-ja.com

Word文書内の1000のJPEG画像：同じ方法でそれらをフォーマットするにはどうすればよいですか？

Microsoft Word2007ドキュメントがあるとします。約1,000枚のJPEG画像を挿入したばかりです。

最初の画像で、右クリックして[画像のフォーマット]、[色の変更]のオプションを選択し、2行目の[カラーモード]で[白黒]を選択します。

同じ「画像のフォーマット」コマンドを他の999のJPEG画像に与えるプロセスをどのように自動化できますか？

FORMAT Painterを試してみましたが、うまくいきませんでした。

手がかりはありますか？

これは、回答のない同様の質問です： http://thedailyreviewer.com/windowsapps/view/formatting-all-pictures-in-a-Word-document-in-one-go-1196281

すべての画像を一度に選択して、一貫した書式を設定し、Word文書全体ですべてが同じように表示されるようにするには、つまり、たとえば、すべての画像のテキストの折り返し余白が同じになるようにするにはどうすればよいですか。 ...そしてすべて同じ％サイズのオリジナルですか？ Wordで画像の「すべてを選択」できない場合は、テキストに使用されるフォーマットブラシと同様に、画像のフォーマットをコピーして、他の画像に貼り付けることはできますか？

よろしくお願いします。

vbaformattingmicrosoft-wordjpeg
5
UltraCommit

あなたはできる：

Dim Pic As InlineShape
For Each Pic In ActiveDocument.InlineShapes
  Pic.PictureFormat.ColorType = msoPictureGrayscale
Next
7
Alex K

わかりました。AlexK。に感謝します。解決策は、次のとおりです。

Sub Macro1()
'
' Macro1 Macro
'
'
Dim Pic As InlineShape
For Each Pic In ActiveDocument.InlineShapes
  Pic.PictureFormat.ColorType = msoPictureBlackAndWhite
Next
End Sub

彼が問題を解決する正しい方法を見つけたので、私はAlexK。の解決策を受け入れました。正しいキーワードは、msoPictureGrayscaleではなくmsoPictureBlackAndWhiteです。

どうもありがとう、アレックスK. ;-)

3
UltraCommit