反応式の奴は落ち着いたんですが，一度できたあとも改善できないか遊んでいたら，記事になりそうでしたので書いてみています。まずは準備のコード。 Sub 準備() Dim TSld As Slide: Set TSld = ActivePresentation.Slides(1) With TSld.Shapes.AddLabel(msoT…