2017年12月1日VBAビットマップには外枠の線が無いExcelで資料を作る際にビットマップを利用することがあります。PrintScreenをするとウィンドウの状態で画像化されるためウィンドウの線も一緒に表示されることから問題はないのですが、一部のみを切り出した画像を使うときは、Excelシートと図の境目が分かりにくくなってしまいます。そこで、図の外枠に線を付けるマクロを以下に紹介します。図の外枠の線の有無を切り替えるマクロ以下のマクロは図の外枠に線を付けるマクロです。線が付いた状態で再度実行すると線を消すようになっています。利用する際にはマクロを実行する前に対象の図を選択しておく必要があります。複数の図を選択することには対応していないため、図は1つずつ選択して実行してください。TypeName関数で選択している内容が何であるかをチェックし、画像でないものは以降の処理をしないようにしています。現時点の外枠の線の状態を取得します。線が付いている場合か判定し、付いている場合は消します。線が付いていない場合は線を付けます。