エクセル挿入図の大きさ指定

いつもお世話になります。
さて早速ですが、エクセルで挿入、図、ファイルからの画像の大きさを指定して挿入するにはどうしたらよろしいでしょうか？
ご指導よろしくお願いします。

No.1 回答者： linus1974 回答日時： 2006/04/14 08:01

とりあえず、挿入して選択すると

大きさを変えられます。

No.2 回答者： kokorone 回答日時： 2006/04/14 08:02

挿入する前に、図の大きさを変更するか。

挿入後、図をクリックして、その４角または、４辺をドラッグして
大きさを変更されてはいかがですか？

この回答へのお礼

お二方早速の回答ありがとうございました。
図の挿入が何十枚もありまして、挿入後その図をドラッグして大きさを調整するのが難儀なのですが！
＞挿入する前に、図の大きさを変更するか。
それはどうやるのでしょうか？

お礼日時：2006/04/14 08:29

No.3 回答者： kokorone 回答日時： 2006/04/14 08:52

その図は、jpgでしょうか？

MS-Picture Manager はお持ちでしょうか？
MS-Picture Managerなら、
1)MyPictureフォルダにサブフォルダを新規作成します。
2)そこへ変更したいファイルをすべて入れます。
3)そのサブフォルダをMS-Picture Managerで一覧表示します。
4)（画面右・作業ウィンドウ）「編集」「画像の編集」「サイズ
　変更」を選択します。
5)編集メニュー・全てを選択
6)変更したいサイズ・倍率を設定、ＯＫを押します。

MS-Picture Managerがなければ、フリーソフトでも、Vixなど
まとめて編集できるものを利用されてはいかがでしょうか？

この回答へのお礼

回答ありがとうございます。
MS-Picture Managerはありません。
フリーソフトで機会があれば試して見ます。

お礼日時：2006/04/14 15:29

No.4 ベストアンサー 回答者： mshr1962 回答日時： 2006/04/14 10:09

まず、オートシェープの四角をお望みの大きさに設定、右クリックして

オートシェープの書式設定→塗りつぶしの色→塗りつぶし効果→図
と進んで「参照」ボタンを押して挿入図を選択してください。
オートシェープの大きさになります。

この回答へのお礼

回答ありがとうございます。
おかげさまでだいぶ操作が簡略できました。
ところで挿入図を選択する時、そのソフトを選択して２回目からは目的のファイルを開けますけど、最初から目的のファイルを開くにはどのようにしたらいいかご教授していただけたら幸いです。

お礼日時：2006/04/14 15:53

No.5 回答者： imogasi 回答日時： 2006/04/14 22:03

http://www.k1simplify.com/vba/tipsleaf/leaf270.h …
のコードを参考につかって、フォルダー指定して、その中の写真画像をエクセルに挿入するVBAを作ってみました。
ツールーマクローVBEの画面の標準モジュールに下記を貼り付け、Test01を実行してみてください。test01部をクリックしておいてF5キーで実行します。
Sub test01()
ListUp_FileList ("C:\Documents and Settings\All Users\Documents\My Pictures\Sample Pictures")
End Sub
Sub ListUp_FileList(FolderSpec)

Dim File_Collection As Object
Dim File_List As Variant
Dim cnt As Integer

Set File_Collection = CreateObject("Scripting.FileSystemObject") _
.GetFolder(FolderSpec).Files

cnt = 1
l = 10
For Each File_List In File_Collection
If Right(File_List, 4) = ".jpg" Then
'Range("A" & Format(cnt)) = File_List.Name
ActiveSheet.Pictures.Insert(FolderSpec & "\" & File_List.Name).Select
Selection.ShapeRange.Left = l + (cnt - 1) * 550
Selection.ShapeRange.Width = 500
Selection.ShapeRange.Height = 400
Selection.ShapeRange.Top = 100
cnt = cnt + 1
End If
Next
End Sub
（１）ListUp_FileList ("C:\Documents and Settings\All Users\Documents\My Pictures\Sample Pictures")
のカッコ内はフォルダ名指定
（２）l = 10　　左端指定
（３）Selection.ShapeRange.Width = 500　写真幅指定
（４）Selection.ShapeRange.Height = 400　写真高さ指定
（５）Selection.ShapeRange.Top = 100　写真上辺指定
（６）Selection.ShapeRange.Left = l + (cnt - 1) * 550
の　l + (cnt - 1) * 550　並べる間隔の指定
など変えてみて遊んで見てください。
＞画像の大きさを指定して
というよりも挿入後にそろえています。

この回答へのお礼

ご丁寧な回答ありがとうございます。
プロフェッショナルな回答で痛み入ります。
機会があれば挑戦してみます。

お礼日時：2006/04/15 05:50