□ 戻る　 □一般操作のサロン　 □ 使用方法　 □ 新着記事 　□ 新規に質問する！　 □ トピック一覧　 □ 検索 　□ 過去ログ
[ 親トピックをトピックトップへ ]
このトピックに書きこむ
Name/
E-Mail/

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

このトピック参照回数 :
Re[9]: 図形・テキストBOX削除にてエラー

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

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

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

      kazuo様

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

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



    [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



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

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

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

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

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

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


      宜しくお願い致します。



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

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

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

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



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

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

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

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



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

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

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

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



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

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

    □投稿者/ 半平太 -(2023/02/03(19:36))
    □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のコードが含まれています。

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



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

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

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

標準モジュール？　
シートモジュール？



    [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のコードが含まれています。

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



このトピック内容の全ページ数 / [0]
- Child Forum -
Edit:ゆう-Ｇ