Excel2003で既存シートへの写真自動貼付け方法

質問

• Excel2003の既存シートに写真を自動貼付けする方法について教えてください。
• 現在は、オートシェイプを作成してから、ファイルを選択して貼付ける手順を踏んでいますが、面倒な作業です。
• 縦横比が合わない場合にはトリミングが必要であり、固定サイズで貼付けしたいです。良い方法やフリーソフトウェアはありますか？

回答No.3

xls88

”' C:\ 内のフォルダの名前を表示します。”以下の部分です。

下記のように、
プロシージャ名（SUB @@@ ()～End Sub）と変数を加え
Dir関数の第2引数を vbDirectory から vbNormal に変更
あと
>myPath = "C:\"　　' パスを設定します。
のところを実状に合わせ、写真ファイルのフォルダまでのパス名に変更してください。
例）myPath = "C:\Document\ユーザー\Picture\"

Sub tesdir()
　　Dim myPath As String
　　Dim MYNAME As String

　　myPath = "C:\"　　' パスを設定します。
　　MYNAME = Dir(myPath, vbNormal)

　　Do While MYNAME <> ""　　' ループを開始します。
　　　　' 現在のフォルダと親フォルダは無視します。
　　　　If MYNAME <> "." And MYNAME <> ".." Then
　　　　　　' ビット単位の比較を行い、MyName がファイルかどうかを調べます。
　　　　　　If (GetAttr(myPath & MYNAME) And vbNormal) = vbNormal Then
　　　　　　　　MsgBox MYNAME　　　' ファイル名を表示します。
　　　　　　End If
　　　　End If
　　　　MYNAME = Dir　　　　　　　　' 次のファイル名を返します。
　　Loop
End Sub

準備ができたらマクロを実行してみてください。
写真ファイル名がメッセージボックスで表示されると思います。

あと次のステップで
>MsgBox MYNAME　　　　'ファイル名を表示します。
の部分をImage枠に挿入するコードに書き換えれば良いことになります。

以下、余談になります。
>素人に付きむかつくような質問で申し訳ありませんが、お手柔らかにご教授をお願いいたします。
ということは、私のレスでむかつかれた部分があったのでしょうか？
そうでしたら、お詫びしたいと思います。
私はむかついてなんかいませんので、ご心配なくお願いします。
実は私も素人でして、こうした掲示板で諸先輩方に教えを請うている身なのです。
諸先輩方へのお礼を兼ねて、自助努力をされる方のお手伝いは精一杯させていただきたいと思っています。

補足

＞むかつかれた・・
とんでもありません。常に低い（背も？）姿勢を心がけたつもりが、返って誤解を招いてしまったようで、申し訳ありませんでした。