Excel VBA質問箱 IV

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

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


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

14984 / 76734

←次へ　｜　前へ→


	【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だと、ピンとはこないなあ・・・。

おじゃましました。

3 hits

▼

【67196】ブックのサイズを縮小する Abebobo 10/11/15(月) 10:30