以下で如何でしょうか? With xlSheet1 .Shapes.AddTextbox(1, 34.5, 87.75,192.75, 78.75).Select With .Selection .Characters.Text = "aiueo" End With End With HPですか・・・?? 私はExcelのマクロを見ながら、手探りで作っています。 ExcelVBAのことは http://www.moug.net/relax/mogu09.htm をよく参照しています。