HagyLog

Webシステムのテスト中。
画面をキャプチャしてエクセルのテスト仕様書にペタペタと張っていく単調で退屈な作業・・・
エクセルにペーストした画像を選択して右クリック、メニューから［図の書式設定］を選択して、[サイズ]タブを指定して、倍率を入力する。
これの繰り返し。

一発でやりたいなぁ～と思ってマクロを作成。
テストしているよりマクロを作っている方が楽しいという罠ｗ

エクセルで[ALT]+[F11]を押してマクロVBAエディターを起動。
以下のコードを作成。

■画像縮小マクロ

Option Explicit

'画像の縮小率を設定
Private Const cMagnification As Double = 0.5

Sub 画像縮小()

'エラー対応(画像を選択しないで実行した場合)
On Error GoTo ErrorHandler

Dim Pic As Picture

With Selection.ShapeRange
.LockAspectRatio = msoTrue '縦横費を固定
.Height = .Height * cMagnification
End With

Exit Sub

'エラー処理ルーチン(画像を選択していない！)
ErrorHandler:
Err.Clear
MsgBox "縮小する画像を選択してください。"
On Error GoTo 0
End Sub


VBAエディターを終了して、エクセルのメニューバーから[ツール]->[マクロ]->[マクロ]で画像縮小を実行できます。
でもこれだといちいちメニューを辿るのが面倒なので、ショートカットキーを設定する。
[ツール]->[マクロ]->[マクロ]で画像縮小の[オプション]設定でショートカットキーを設定。
これで[CTRL]+[設定したキー]で画像縮小マクロを一発実行できるようになります。
実行すると選択した画像を50%に縮小します。
画像を選択していないとエラーダイアログが表示されます。