エクセル) 複数の画像を同時に挿入するマクロについて

質問

仕事上、エクセルに画像を挿入することが多く、場合によって200枚の画像を挿入することがあります。
なんとかならないかとWebで調べたら下記のサイトに行き着きました。
http://pc.nikkeibp.co.jp/article/NPC/20071101/286186/?P=1

このマクロを半信半疑に実行したら、見事に"picuture"というシートにズラーーーっと画像がいっきに挿入されました。
スゴイ！！まさに神みたいなマクロでした。

ただ、数箇所「うーーん・・。」という点があります。
1)■■挿入した各画像の大きさの『縦x横 比』■■

挿入した全ての画像の"横"の大きさは「セル２個分」にフィットしています。
これはいいの全然いいです。バッチリです。
問題はそれに対する縦です。縦横比を保持しないで縦の大きさが６セル分に無理矢理フィットします。
つまり強引に横2セルx縦6セルの画像になってしまいます。
縦横比を保持できないでしょうか？
ちうなみに貼り付ける画像は全て正方形よりやや横長です。。

2)■■挿入した画像がハイパーリンクになってる。■■
挿入した画像の位置を微妙に変えようと、白い十字キーのポインターを画像の上に持っていくと、IEでリンク先をクリックするときに出てくる「白い手袋をした人差し指を立てたポインター」に変わります。
これだと画像が選択できません。

以上この２点どなたかマクロに詳しい方がいらっしゃいましたら解決していただけますでしょうか？
回答下さった方には心底お礼したいです！！お願い致します。
お願いします！

回答No.2

mitarashi · ベストアンサー

１）についてですが、元のコードの
Selection.ShapeRange.LockAspectRatio = msoTrue
で、縦横比固定を指定していますので
Selection.ShapeRange.Height = 76.5
Selection.ShapeRange.Width = 102#
の内、Height指定の行を削除すれば、幅固定に、Widthの方を削除すれば高さ固定になります。
２）については、
ActiveSheet.Hyperlinks.Add Anchor:=Selection.ShapeRange.Item(1), Address:=myName
の部分を削除すると、画像そのものが貼り付けられました。
ただ、ハイパーリンクのままでも画像位置調整等は、右クリックしてから行えば可能です。
ハイパーリンクの方がファイルサイズが小さくなるかと試してみましたが、残念ながら同等でした。（Excel2000)
200枚も貼り付けると、巨大ファイルになるのでご注意を。

お礼

できました！！！！！！！！
すーーごい感謝します。ありがとうございました。

回答No.1

marbin

1）についてです。

画像を挿入し、「図の書式設定」の「サイズ」の縦横比を固定するの
チェックを付けたり外したりしてサイズ変更する作業をマクロの自動
記録してみてください。

そしてどこが変わってるか確認してみてください。
そうしたら、HPのコードのどこを変えればいいか分かると思います。