質問

エクセル　テキスト追加マクロで”実行時エラー”発生

質問者：yuma07chan
投稿日時：2010/05/29 15:37

エクセル　テキスト追加マクロで”実行時エラー”発生

保護されたスケジュール表の上へ、マクロでテキストボックスを追加しようとしてます。
別マクロで行挿入マクロがありますが、これを実行した後にテキスト追加マクロを実行すると
実行時エラー'2147024809(80070057)':選択した図形はロックされています。
が表示されます。
これを解決する方法をご教授ください。
追加されたテキストボックスは、位置変更とテキスト編集ができるようにしたいと思います。

◇行挿入◇
Sub　行挿入()
With ActiveSheet
.Protect Password:="Pass", UserInterfaceonly:=True
'処理
End With
End Sub

◇テキストボックス追加◇
Sub テキスト追加()
ActiveSheet.Shapes.AddTextbox(msoTextOrientationHorizontal, _
Selection.Left + 3, Selection.Top + Selection.Height - 11, _
50#, 12#).Select
End Sub

通報する

この質問への回答は締め切られました。

質問の本文を隠す

回答 (3件)

No.3ベストアンサー20pt

回答者：keithin
回答日時：2010/05/29 21:18

＞行挿入マクロ実行後にセル保護ロックが解除されてしまいます。

ご質問の症状が，よく判りません。

いずれにせよ元のご質問の「編集可能なテキストボックスを追加するマクロ」とは，無関係なところで起きている問題のように見受けられます。
最新版のマクロと，いま困っている「具体的な症状（目に見えるエクセルの姿，どこ番地のセルに何をしたら，どの設定がどうなったといった）」について情報を添えて，新たなご相談として投稿し直してください。

この回答へのお礼

症状を画像添付で再投稿させていただきます。
宜しくお願いいたします。

通報する

No.2

回答者：keithin
回答日時：2010/05/29 17:20

アプローチは色々ありますが，
＞追加されたテキストボックスは、位置変更とテキスト編集ができるようにしたいと思います。

という事ですから，シートの保護の設定から見直した方が良いのかもしれませんね。

変更前；
Sub　行挿入()
With ActiveSheet
.Protect Password:="Pass", UserInterfaceonly:=True
　：

変更後：
Sub　行挿入()
With ActiveSheet
.Protect Password:="Pass", DrawingObjects:=false, UserInterfaceonly:=True
　：

この回答への補足

keithinさん
ご回答、ありがとうございます。
テキストボックスの位置変更とテキスト編集ができるようになりましたが、
行挿入マクロ実行後にセル保護ロックが解除されてしまいます。
回避できないでしょうか？

質問者のみ
この回答にお礼をつける

通報する

No.1

回答者：kybo
回答日時：2010/05/29 16:52

それはテキストボックスを配置した際、Selectするからエラーになるのです。
以下のようにしましょう。

Sub テキスト追加()
ActiveSheet.Shapes.AddTextbox msoTextOrientationHorizontal, _
Selection.Left + 3, Selection.Top + Selection.Height - 11, _
50#, 12#
End Sub