目安箱 IV

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

迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃ホーム  
20 / 262 ←次へ | 前へ→

【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,585 hits

【263】ちょっと気になる現象6 Shapeオブジェクトの塗りつぶし ichinose 10/2/11(木) 19:21 Excel[未読]
【264】Re:ちょっと気になる現象6 Shapeオブジェク... ichinose 10/2/11(木) 20:22 Excel[未読]

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃ホーム  
20 / 262 ←次へ | 前へ→
ページ:  ┃  記事番号:   
0
(SS)C-BOARD v3.8 is Free