Excel VBA質問スレ Part8

Excel VBA質問スレ Pa ..

45:デフォルトの名無しさん
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 = "ほげ３"

次ページ

続きを表示

1を表示