目安箱 IV

目安箱投稿のルールはこちらをごらんください。
ご意見は電子メールで承っています。
「目安箱」は質問禁止です。技術的な質問はそれぞれの質問箱へどうぞ。

迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃ホーム  
35 / 277 ←次へ　｜　前へ→
【263】ちょっと気になる現象6　Shapeオブジェクトの塗りつぶし
Excel  ichinose  - 10/2/11(木) 19:21 -
引用なし
パスワード
   アクティブシートに二つの黒く塗りつぶされた見た目はまったく同じの
オートシェイプの円があります。

以下のような塗りつぶしの色が黒だったら、削除する　というコードを実行したところ

Sub test1()
　　Dim c As Shape
　　For Each c In ActiveSheet.Shapes
　　　 If c.Fill.ForeColor.SchemeColor = 8 Then c.Delete
　　　'---------------------------------
　　Next c
End Sub

一つの円は、正常に削除されましたが、もう一つの円のでは、
「実行時エラー　70　書き込みできません。」というエラーが発生し、　
上記の----の部分が黄色に塗りつぶされました。
　

どんな原因が考えられるでしょうか？
1,937 hits
【263】ちょっと気になる現象6　Shapeオブジェクトの塗りつぶし ichinose 10/2/11(木) 19:21 Excel[未読]≪
【264】Re:ちょっと気になる現象6　Shapeオブジェク... ichinose 10/2/11(木) 20:22 Excel[未読]
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃ホーム  
35 / 277 ←次へ　｜　前へ→
ページ：  ┃  記事番号：   
0
(SS)C-BOARD v3.8 is Free