Excel 図形(パターン)を半透明にしたい

前に試したWordの時と同様

20181220-1

1.図形を選択
2.[Alt]+[F11] (Visual Basic Editorが起動)
3.[CTEL]+[G] (ウインドウ下に「イミディエイト」が開く)
4.下記コマンドを入力(最後の0.5は透過率なので任意)※ペーストはできない模様なので打ち込みで
Selection.ShapeRange.Fill.Transparency = 0.5
20181220-2

エディタを閉じると半透明になる
20181220-3

Excel 2016