2022-02-12から1日間の記事一覧
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 図をページ毎に分けて位置も揃える() 'カー…
