Infomentのブログ ～Excel VBA奮闘記～

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