Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


3618 / 13644 ツリー ←次へ | 前へ→

【61116】テキスト以外のオブジェクトが挿入されているのを判定したいのですが・・・ 紅茶花伝 09/4/10(金) 10:15 質問[未読]
【61118】Re:テキスト以外のオブジェクトが挿入され... ハチ 09/4/10(金) 11:22 回答[未読]
【61119】Re:テキスト以外のオブジェクトが挿入され... ponpon 09/4/10(金) 11:29 発言[未読]
【61128】Re:テキスト以外のオブジェクトが挿入され... Abebobo 09/4/10(金) 13:53 発言[未読]
【61132】Re:テキスト以外のオブジェクトが挿入され... 紅茶花伝 09/4/10(金) 16:44 お礼[未読]

【61116】テキスト以外のオブジェクトが挿入されて...
質問  紅茶花伝  - 09/4/10(金) 10:15 -

引用なし
パスワード
   こんにちわ。
初めて質問を書き込みさせていただきます。

ExcelVBAで、開かれたブック(シート)に
画像やテキストボックス、オートシェイプ等の
セルに直接入力されないオブジェクトが挿入されている場合
警告MsgBoxを出すVBAを作りたいのですが
その判定の記述方法が思いつきません・・・
もし、わかる方がいらっしゃいましたら教えていただけませんか?
もしくは参照URLでもかまいません。
どうぞよろしくお願いいたします。

【61118】Re:テキスト以外のオブジェクトが挿入さ...
回答  ハチ  - 09/4/10(金) 11:22 -

引用なし
パスワード
   ▼紅茶花伝 さん:

If ActiveSheet.Shapes.Count > 0 Then

でどうでしょう?

【61119】Re:テキスト以外のオブジェクトが挿入さ...
発言  ponpon  - 09/4/10(金) 11:29 -

引用なし
パスワード
   ▼紅茶花伝 さん:
Sub test()
  With Sheets("Sheet1")
    If .DrawingObjects.Count > 0 Then
     MsgBox "あります"
    Else
     MsgBox "ありません"
    End If
  End With
End Sub
では、どうでしょう?

【61128】Re:テキスト以外のオブジェクトが挿入さ...
発言  Abebobo  - 09/4/10(金) 13:53 -

引用なし
パスワード
   あっ!

ActiveSheet.Shapes.Count

だとオートフィルタの▼ボタンまで数えちゃう

横から失礼しました。

【61132】Re:テキスト以外のオブジェクトが挿入さ...
お礼  紅茶花伝  - 09/4/10(金) 16:44 -

引用なし
パスワード
   紅茶花伝です。
レス有難うございます!

教えていただいた通りに組み合わせて

  If ActiveSheet.DrawingObjects.Count > 0 Or ActiveSheet.Shapes.Count > 0 Then

このようにした所、どんなオブジェクトもちゃんと
警告を出すことができ、望み通りの結果に満足です。

素早い回答でとても助かりました。
本当に有難うございました。m(_ _)m

3618 / 13644 ツリー ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free