'図形を選択 ActiveSheet.Shapes("四角形: 角を丸くする 1").Select '図形をオブジェクトに格納して選択 Set a = ActiveSheet.Shapes("四角形: 角を丸くする 1") '図形をオブジェクトに格納 a.Select '図形を選択 '複数の図形を選択 ActiveSheet.Shapes("四角形: 角を丸くする 1").Select '図形を選択 ActiveSheet.Shapes("四角形: 角を丸くする 2").Select Replace:=False '図形を「追加」で選択 ActiveSheet.Shapes("四角形: 角を丸くする 3").Select Replace:=False '図形を「追加」で選択 '図形を全て選択① ActiveSheet.Shapes.SelectAll '図形を全て選択② For i = 1
