[誰か教えて] [Excel VBA] ネット上の画像が縦長なのか横長なのかを知りたい。: (旧) hinden (まほまほファミリー)

<< 〈土澤〉[第2回美術市場] 日、月・祝。伊藤洋子、岩手・花巻で美術品の展示即売をしています。 | TOP | [自分用memo] 画像URLの一覧から随時サムネイルをセルに貼ってゆく、というVBAを組んでみた。 >>

2017年10月07日

[誰か教えて] [Excel VBA] ネット上の画像が縦長なのか横長なのかを知りたい。

「見りゃー分かるじゃん」てボケは要らないですからね、そりゃああ見りゃー分かりますよ、縦長なのか横長なのか見て分からん人なぞおらんw
あ、あと、
いったんダウンロードしてから幅と高さとを取得してどちらが長いか比較すりゃいいじゃん、ておっさるカタもいますでしょう。しかしそれを、ダウンロードしないで、実現できないものかと思っておるのです。

たとえばネット上の画像でなくパソコンやLAN上の画像でしたら、下記のようにして判定できます。
　↓　
If LoadPicture(MyLocalJpg).Height < LoadPicture(MyLocalJpg).Width Then
　↑　
このバーイ、変数「MyLocalJpg」には画像のフルパスが入っているわけです。例えばこんなカンジの。
　↓　
「\\(外付けハードディスク)\share\Pictures\AAA.jpg」

しかし変数「MyLocalJpg」に入っているのがWeb上のアドレスのバーイは、「LoadPicture」さん、働いてくれません。こういうのね。
　↓　
「http://www2u.biglobe.ne.jp/~hinden/draw/20030215_ukanomitama.jpg」

なんでWeb上のアドレスが指定された場合にも対応しといてくれないんでしょう。ちなみに、ダウンロードしてないのにできないのは当たり前、とは考えてないんですわ。だって、ほら、VBAの呪文の中に、ソレやってくれるものもあるんで。例えば、画像貼り付け。
　↓　
ActiveSheet.Pictures.Insert(myLink)
　↑　
このバーイ、変数「myLink」の値が
「\\(外付けハードディスク)\share\Pictures\AAA.jpg」であろうが、
「http://www2u.biglobe.ne.jp/~hinden/draw/20030215_ukanomitama.jpg」であろうが、
やってくれますもの。

やってよ、「LoadPicture」でも。あー、「LoadPicture」でなくてもいいです、他の呪文でできるのであればそれでも。どなたか、おせーて。

[追記]

Q :
「ひんでんさん、システムエンジニアじゃなかったんでしたっけ。なんで人に聞いたりとかしてるんですか。」

A :
「あー、ねー。
分野が、違うのよ。
パソコンでなく大型端末が相手のお仕事でして。
OSレベルで、ちゃってるし。(Windows とか Mac とか Linux とか、そういうんじゃ、ない。)
主な言語は COBOL ですし。
Web系のスキルは…点点点。」

[関連する過去日記]

[[誰か教えて] 有効な、回避の方法が見当つきません。来年早々、ブログに画像が表示されなくなります。]
http://hinden.at.webry.info/201708/article_19.html

[Google フォトの使い方は、合っているのでしょうか。。。(あたくしには、よう分かりません。)]
http://hinden.at.webry.info/201708/article_20.html

[[誰か教えて] 「ウェブリブログ」の過去日記を一括修正する方法。]
http://hinden.at.webry.info/201708/article_21.html

[フォトアルバム引っ越しにあたり、新旧アドレス対応付けの大一覧表を作成するだす。]
http://hinden.at.webry.info/201709/article_15.html

[「画像貼付」ての、試してみる。(「ウェブリアルバム」サービス停止の件での余談)]
http://hinden.at.webry.info/201709/article_16.html

[[自分用memo] フォトアルバム引っ越しにあたり、新旧アドレス対応付けの大一覧表を作成しただす。]
http://hinden.at.webry.info/201709/article_25.html

[そういう仕様なの ? Google フォト。]
http://hinden.at.webry.info/201709/article_26.html