以前まとめた同記事でエフェクト効果の定数対応表が間違っていた上に、図のエフェクト定数を検索するとGoogle検索のトップに出るというやらかしをしてしまい、前の記事は削除しました。私も他のブログを鵜呑みにしてコピペしただけなんですぅー！なんて言い…

Wordのマクロの記録を使って図を保存する操作からコードを調べようとしたら、マクロの記録中に右クリックできなくて詰んだので、VBA以外の方法をメモ。 １．図を右クリックして「図として保存」。これを繰り返す。 ファイル数が少ない場合はこれでOK。ちから…

Sub 全ての図の鮮明度設定 Dim shp As Word.Shape For Each shp In ThisDocument.Shapes Call setSharpness(shp, 1) '鮮明度+100% Next End Sub '鮮明度（シャープネス）設定 Sub setSharpness(shp As Word.Shape, pt As Double) Dim eff As PictureEffect W…

プリンタでスキャンしたデータを手間をかけずに一気に印刷したかったのです。Wordは画像挿入時に勝手に大きさは縮小してくれる！手間が減る！ '空文書に写真等をドラッグ&ドロップで文書に追加してから実行。 Sub 図をページ毎に分けて位置も揃える() 'カー…

ワードでやりました。エクセルで出来るかは試してません。 画像を挿入して右クリック＞図の書式設定＞鮮明度を最大化＞濃い！ 最初からすごい薄いヤツには効果が薄い模様。 しこたま文書をJPGでスキャンして絶望していましたが何とかなりました。 以上

とりま最近つくったやつ。 エクセル側からワード文書内で検索と置換をするだけのものです。 どうやら改行を含む文字の場合は何かしら手を打たないといけない模様。 使う場合は参照設定をしましょう。（Microsoft Wordなんたら） Sub chikan() Dim path As St…