エクセル2000で写真をセルの大きさに貼り付け

エクセルで工事写真帳を作成しています。デジカメで撮った写真をコピー貼り付けしてます。するといろいろな大きさの写真がはりつけられます。それを結合でそれなりの大きさにしたセルに、Ａｌｔキーを押しながら、大きさを縮小拡大してす。多くの写真があるのでとても面倒です。そこで、画像をもってきてそのセルにおいた時点で、画像がそのセルの大きさになる方法はないでしょうか。いくつかの工事写真帳のソフトをみてきましたが、なかなか希望に合ったソフトがなく、お金もかかるので誰にも使えるようにエクセルで作成しました。アドバイスよろしくお願いします。

No.1 回答者： BraveStory 回答日時： 2002/10/03 00:34

どなたも回答されていないようなので。

単純なＶＢＡですが、画像を選択した状態で次のマクロ実行するというのはどうでしょう。ショートカットキーに設定して使えば楽になるのではないでしょうか。

Sub Macro1()
On Error Resume Next
Selection.Width = Selection.TopLeftCell.Width
Selection.Height = Selection.TopLeftCell.Height
End Sub

あまりにも単純なので、縦横比など問題が出るかもしれませんが。
マクロの登録等が分らないようでしたら補足でおっしゃってください。

この回答へのお礼

ありがとうございます。まだマクロを使い切ってないです。
やってみます。

お礼日時：2002/10/22 15:40