Sub オートシェイプの表示() Sheets("Sheet1").Shapes("実行中").Visible = msoFalse Sheets("Sheet1").Shapes("データなし").Visible = msoFalse Sheets("Sheet1").Shapes("実行中").Visible = msoTrue Sheets("Sheet1").Shapes("データなし").Visible = msoTrue End Sub ----------------------------------------------------------------- Sub オートシェイプの名前変更() ActiveSheet.Shapes.Range(Array("実行中")).Select Selection.ShapeRange.Name = "変更" Selection.Name = "変更" Selection.ShapeRange(1).TextFrame2.TextRange.Characters.Text = "変更" End Sub