質問: "へのへのもへじ end with end with
回答: とりあえず 変更前: with .shapes.addtextbox(msotextorientationhorizontal, 13, 10, 70, 50) 変更後: with .shapes.addtextbox(1, 13, 10, 70, 50) としてみます。 定数の値(今回は1)は,その定数が使える環境でオブジェクトブラウザで確認することができます。 #参考 >(定数が定義されていません) >とコンパイルエラーになってしまいます vbe画面のツールメニューの参照設定で「microsoft office xx.0 object library」のチェックを入れると,通ります(定数が使える環境になります)。