08/08/31 08:56:12
グループ化されたオートシェイプを解除して
テキスト変更して再グループをして終了させたいのですが
これだとその都度グループ番号が変わっちゃって使えません＞＜；
他にいい指定方法ありませんか？
ActiveSheet.Shapes("Group 526").Select
Selection.ShapeRange.Ungroup.Select
ActiveSheet.Shapes("Rectangle 101").Select
Selection.Characters.Text = "ほげ１"
ActiveSheet.Shapes("Rectangle 126").Select
Selection.Characters.Text = "ほげ２"
ActiveSheet.Shapes("Rectangle 127").Select
Selection.ShapeRange.Regroup.Select
Selection.Characters.Text = "ほげ３"