Excel VBA質問箱 IV

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

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


14988 / 76738 ←次へ | 前へ→

【67236】Re:ブックのサイズを縮小する
発言  ichinose  - 10/11/17(水) 7:11 -

引用なし
パスワード
   おはようございます。

>
>>For Each Shp In ActiveSheet.Pictures
>これ! If でタイプわけしなくて良くなりました。

私もPicturesコレクション、愛用していますが、先日別サイトで

www.excel.studio-kazu.jp/kw/20101109113323.html

ご覧のようなご指摘を受けました。

Pictursでは、ActiveXConrolが含まれてしまう事、長年使ってきましたが、
全く気づきませんでした。

よって、この事実を考えると

Picturesで回せば、色んな図形が存在する場合は、ループ回数は、減りそうなので

For Each ShP In .ActiveSheet.Pictures
  If ShP.shaperange.Type = 13 Then


Typeをチェックすることは、仕様によっては必要かもしれませんよ。

PictureやDrawingObjectsは、隠しオブジェクトですが、便利なところが
沢山あります。が、互換性とのからみで意外な事実も隠されていそうですよ。

昨日も今更ながら、気づいたのは、オーシェイプの殆どが
隠しオブジェクトのRectangleに属していること。
これは、考えてみれば 他に当てはめる箇所がないかア ということなんでしょうけど・・・。
スマイルもRectangleだと、ピンとはこないなあ・・・。

おじゃましました。

0 hits

【67196】ブックのサイズを縮小する Abebobo 10/11/15(月) 10:30 質問
【67200】Re:ブックのサイズを縮小する Jaka 10/11/15(月) 11:52 発言
【67201】Re:ブックのサイズを縮小する Abebobo 10/11/15(月) 12:13 お礼
【67205】Re:ブックのサイズを縮小する Jaka 10/11/15(月) 14:15 発言
【67207】Re:ブックのサイズを縮小する Abebobo 10/11/15(月) 20:42 お礼
【67219】間違い修正 Jaka 10/11/16(火) 9:29 発言
【67222】Re:間違い修正 Abebobo 10/11/16(火) 10:03 発言
【67221】Re:ブックのサイズを縮小する Abebobo 10/11/16(火) 10:00 お礼
【67246】Re:ブックのサイズを縮小する Jaka 10/11/17(水) 13:38 発言
【67257】Re:ブックのサイズを縮小する Abebobo 10/11/17(水) 18:17 お礼
【67210】Re:ブックのサイズを縮小する kanabun 10/11/15(月) 22:31 発言
【67211】Re:ブックのサイズを縮小する Abebobo 10/11/15(月) 22:53 お礼
【67236】Re:ブックのサイズを縮小する ichinose 10/11/17(水) 7:11 発言
【67238】Re:ブックのサイズを縮小する Abebobo 10/11/17(水) 9:48 お礼

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