エクセル写真貼付について教えてください

質問

WindowsXP　エクセル2003を使っています。

・エクセルでA4の用紙にL版の大きさの写真を3枚印刷をしています。
・現在写真の貼り付けするのは、「挿入」→「図」→「ファイルから」→写真を選んで貼り付けしています。
大きさはそのつど、1枚1枚調整しています。
量が多い時、すごい時間がかかります。

（やりたい事）
・エクセルで、L版の写真の大きさの「枠」を3個作って、「枠」をクリックすると写真を保存している場所「写真フォルダー」に移動して、貼り付けしたい写真を、クリックするとエクセル上「枠」に貼り付け出来たらいいなと思っております。

色々自分で、本を見たりしたのですが、どうしてもわかりません。
こういう事をするのは可能ですか？
わかる方がおられましたら、教えて頂けませんか？
宜しくお願いします。

回答No.2

chiune · ベストアンサー

直接の回答ではありませんが、フリーソフトで出来るような気がします。
下記をおためしください。
http://www.vector.co.jp/soft/win95/art/se419523.html
http://www.vector.co.jp/soft/win95/art/se349354.html
http://www.vector.co.jp/soft/win95/art/se330185.html

エクセルにこだわらないのであれば、もっと選択範囲は広がると思います。
一例↓
http://www.vector.co.jp/soft/winnt/art/se430243.html

ご参考になれば。

お礼

回答有難う御座います。
参考フリーソフト教えて下さって有難う御座いました。
すごく参考になりました。
一度、使ってみます。

回答No.4

hayasi456

やってみましたが面倒ですね。
他のお答えでよい解答がありそうですね。

ところで大事な写真はプリントすることをお勧めします。
再生機を必要とする記録媒体は再生システム廃れると再生できなくなります。
私は昨年、８mmビデオをDVDにコピーしました。
フロッピー、MOは最近見る機会が激減しています。
SD、CD、DVD、HDDも３０年後には次の記録システムに変わっているでしょう。
３０年以上前のご家族の写真も見ようと思えば簡単に見られるでしょ。

回答No.3

imogasi

VBAになるが、、「挿入」→「図」→「ファイルから」→写真を選んでの操作をマクロの記録を取れるので、検討・勉強を勧めたい。操作でサイズを動かす、位置を動かすと、そのコードも記録でコードのパターンわかる。
例えば
Sub Macro1()
ActiveSheet.Pictures.Insert( _
"C:\Documents and Settings\XXXX\My Documents\My Pictures\写真\mausu1.jpg").Select
Selection.ShapeRange.ScaleWidth 0.61, msoFalse, msoScaleFromTopLeft
Selection.ShapeRange.ScaleHeight 0.61, msoFalse, msoScaleFromTopLeft
Selection.ShapeRange.IncrementLeft 261.75
Selection.ShapeRange.IncrementTop 39.75
End Sub
のようになる。この図・写真のサイズの変更、場所の移動を質問者のの希望になるよう、数値を試行して手探りで探し当てて、セットすればよい。
これは１回限りのコードだが、複数の写真などの場合はForNextで数回繰り回す。その際カウンター変数によってファイル名、位置を計算してコード化する。（ここが勉強のしどころ）
For i=1 To　3
(iでファイル名、位置・サイズを計算）
Next i
ファイル名は毎回人間がファイルを開くダイアログボックスで指定するか、
Dim fname As String

fname = Application.GetOpenFilename
If fname <> "False" Then
Workbooks.Open FileName:=fname
End If
のように選択したファイル名はfnameで捉えられる。
http://www.officepro.jp/excelvba/book_new/index3.html
またはセルのA列に連続しタセルにファイル名を前もって入れておくなどありえる。
するとCells（i,”A")でファイル名の文字列が取れる。
ーーー
自動的にやろうとすると、
操作によるものは既に試行済みで、出来なかっただろうし
VBAを組むか、
自分の思い通りの処理が出来るレディメードのフリーソフトでも探すほか無い。

回答No.1

fujillin

過去の質問に似たようなものがいろいろあります。
（以下は一例です。他にもありますので、検索してみてください）
いずれにしてもVBA（マクロ）を使用することになるでしょう。

◆画像を取り込む方法
　http://oshiete1.goo.ne.jp/qa2719269.html
　http://oshiete1.goo.ne.jp/qa489813.html

◆画像サイズの調整など
　http://oshiete1.goo.ne.jp/qa4583285.html
　http://oshiete1.goo.ne.jp/qa999940.html

「枠」を何で作成するつもりか不明ですが、「枠」のオブジェクトを取得して写真を読み込み、サイズ、位置を枠に合わせて調整ということになるでしょう。
上記のマクロを組み合わせて、枠の部分に関して修正追加すれば可能かと。

＞「枠」をクリックすると写真を～
は、作成したマクロを「枠」のオブジェクトに登録しておけば可能と思われます。

お礼

回答有難う御座います。

◆画像を取り込む方法
◆画像サイズの調整など教えて下さって有難う御座います。
ＶＢＡって今まで全然知りませんでしたｗ。
今の私には何がなんだか全然わかりませんｗ
やはり私がやろうとしているのは、私には難しいですね。
教えて下さった事を、参考に勉強してみます。
有難う御座いました。