戻る  □一般操作のサロン  □ 使用方法  □ 新着記事  □ 新規に質問する!  □ トピック一覧  □ 検索  □ 過去ログ
[ 最新記事及び返信フォームをトピックトップへ ]
このトピック参照回数 :
図形・テキストBOX削除にてエラー

    [195583] 図形・テキストBOX削除にてエラー-

    ■親トピック/記事引用/メール受信=OFF■

    □投稿者/ ちわわ -(2023/02/03(08:56))
    □U R L/
      範囲を選択して、テキストBOXを削除したいのですが、
      VBAを実行させるとエラーになります。
      
      両方ともに
      オブジェクトエラー 1004↓
      Set rng = Range(Shp.TopLeftCell, Shp.BottomRightCell)
      
      どのようにしたらよいのでしょうか?
      宜しくお願い致します。
      
      
      
      If TypeName(Selection) <> "Range" Then Exit Sub
      
      For Each Shp In ActiveSheet.Shapes
      
      Set rng = Range(Shp.TopLeftCell, Shp.BottomRightCell)
      
      If Not (Intersect(rng, Selection) Is Nothing) Then
      Shp.Delete
      End If
      Next
      End Sub
      
      
      Sub DELL2()
          Dim Slc
          Set Slc = Selection
          
          Dim Shp
          
          For Each Shp In ActiveSheet.Shapes
             
              Set a = Range(Shp.TopLeftCell, Shp.BottomRightCell)
              
              If Not Intersect(a, Slc) Is Nothing Then
                  Shp.Delete 
              End If
          Next
          
      End Sub
      


      この記事にはVBAのコードが含まれています。

      緑の太文字→注釈
      茶色の太文字→条件分岐
      赤の太文字→ループ
      青の太文字→その他




    [195584] Re[1]: 図形・テキストBOX削除にてエラー-

    記事引用/メール受信=OFF■

    □投稿者/ 半平太 -(2023/02/03(09:19))
    □U R L/
      そのプロシージャは、どのモジュールに書かれているんですか?
      
      標準モジュール? 
      シートモジュール?
      




    [195585] Re[2]: 図形・テキストBOX削除にてエラー-

    記事引用/メール受信=OFF■

    □投稿者/ ちわわ -(2023/02/03(17:28))
    □U R L/
      半平太様
      
      両方試したのですが、両方共にうまくいきませんでした。
      
      シートモジュールで実行するとオブジェクトエラー 1004のボックスが表示され、OKボタンを押すとテキストBOXは削除されます。
      
      標準モジュールで実行すると実行時エラー13型が一致しませんと表示され、
      下記が黄色表示され、終了ボタンを押してもテキストBOXは残ったままです。
      Set rng = Range(Shp.TopLeftCell, Shp.BottomRightCell)
      
      宜しくお願い致します。


      この記事にはVBAのコードが含まれています。

      緑の太文字→注釈
      茶色の太文字→条件分岐
      赤の太文字→ループ
      青の太文字→その他




    [195586] Re[3]: 図形・テキストBOX削除にてエラー-

    すいませ〜ん。誰か〜! / 記事引用/メール受信=OFF■

    □投稿者/ 半平太 -(2023/02/03(19:36))
    □U R L/
      申し訳ないですが、全く思い当たりません。
      
      他の回答者のレスをお待ちください。




    [195587] Re[4]: 図形・テキストBOX削除にてエラー-

    記事引用/メール受信=OFF■

    □投稿者/ マナ -(2023/02/03(20:22))
    □U R L/

      入力規則のドロップダウンリストが使用されていませんか




    [195588] Re[5]: 図形・テキストBOX削除にてエラー-

    記事引用/メール受信=OFF■

    □投稿者/ MK -(2023/02/04(09:54))
    □U R L/

      コメントもシェイプですね。
      他にもいろいろあると思います。




    [195589] Re[6]: 図形・テキストBOX削除にてエラー-

    記事引用/メール受信=OFF■

    □投稿者/ MK -(2023/02/04(09:56))
    □U R L/

      TextBox限定なら、シェイプの種類を限定して
      削除、としたほうがいいように思います。




    [195611] Re[7]: 図形・テキストBOX削除にてエラー-

    記事引用/メール受信=OFF■

    □投稿者/ ちわわ -(2023/02/06(08:58))
    □U R L/

      半平太様
      ありがとうございます。

      マナ様
      まさに入力規則のドロップダウンリストを使用してます。
      何か良い方法はありますでしょうか?

      MK様
      現在はTextBoxのみですが、総合的に対応できる感じがよいです。


      宜しくお願い致します。




    [195614] Re[8]: 図形・テキストBOX削除にてエラー-

    記事引用/メール受信=OFF■

    □投稿者/ kazuo -(2023/02/07(10:44))
    □U R L/

      on error resume next で回避下さい。

      ttps://excelfactory.net/excelboard/excelvba/cfs.cgi?word=191365&logs=34.txt




    [195617] Re[9]: 図形・テキストBOX削除にてエラー-

    解決!!ありがとうございました! / 記事引用/メール受信=OFF■

    □投稿者/ ちわわ -(2023/02/07(17:41))
    □U R L/

      kazuo様

      ありがとうございました。
      エラー回避できました。

      今後とも宜しくお願い致します。



このトピック内容の全ページ数 / [0]

このトピックに書きこむ
Name/
E-Mail/

└>このツリーのレス記事をメールで受信しますか? YES/ NO/
Title/
URL/
Comment/ 通常モード->  図表モード-> (←の場合適当に改行を入れて下さい)
タグが使用できます。例 ⇒ <font color="blue">文字</font>
解決!!ありがとうございました! 解決       保留中です・・・ 保留        迷宮入りorほかあたって見ます・・ 迷宮入       すいませ〜ん。誰か〜! Help! ←※回答者専用
解決したらチェック       保留(コードテスト中など・・)         解決不可orレスが全く付かなくてほかのサイトに行くときなど・・
削除キー/
(半角8文字以内) 


- Child Forum -
Edit:ゆう-G