ふと、思った。オートシェイプを、Ctrlキーを押しながらクリックするとコピーできるあれ、どのようなコードで書けるのか。 早速、マクロの記録で確認してみる。 雑味を除くと、こんな感じになった。 Sub Macro1() ActiveSheet.Shapes.Range(Array("Oval 1"))…