シェイプ上に文字を入力」という検索で、このサイト・インストラクターのネタ帳へのアクセスが、ありました。Applications)のコードを探している方による検索です。シェイプ上に文字を入力」という検索だけでは詳細がわかりませんので、簡単なサンプルマクロをご紹介しておきます。Subアクティブなシート上に図形が存在しているときに上記のマクロを実行すると、一つ目の図形に「サンプル文字列」というテキストが入力されます。"サンプル文字列"TextFrameオブジェクトのCharactersメソッドで、図形内の文字列を表すCharactersオブジェクトを取得できます。"サンプル文字列"CharactersオブジェクトのTextプロパティで、図形にテキストを入力したり、入力されている文字列を取得することができます。"サンプル文字列"といったコードでも図形にテキストを入力することができますが、Characters.Textプロパティのほうが、納得しやすいですし、汎用性も高いので、Charactes.Textプロパティを私はおすすめしておきます。インストラクターのネタ帳TextRange2オブジェクトのTextプロパティを使って、Shapeに文字列を設定するサンプルマクロをご紹介しています。インストラクターのネタ帳レガシーなオブジェクト・RectangleのTextプロパティを使って、四角形などにテキストを設定することができます。Officeの使い方などを紹介し続け(2012年頃からはVBA関連記事が多め)、毎日5万人の方にご覧いただいています。