エクセルで写真を扱う方法

質問

エクセルで写真を開こうとすると、ものすごく大きい写真が出てしまい、小さくするのにとても苦労しています。
予め、指定した大きさで写真を開く方法って無い物でしょうか？
心広い、エクセルに詳しい方、宜しくお願いします。

回答No.1

bibi2gou · ベストアンサー

こんばんわ
同じ事をしようとして探した結果、次の方法が良いと思います。
参考ＵＲＬを見て下さい。
もし、表示されなかったら、「KIgazou1」で検索してみて下さい。
圧縮ファイルをダウンロードして、インストールして下さい。また、ＨＰ上に詳しい使い方が記載されています。
マクロを使用するので、マクロを有効にして作業して下さい。
一度使ってみてください。

参考URL：

http://www2s.biglobe.ne.jp/~iryo/2vba/s2vba29.html

お礼

おおおおおお！！！
すごいです。ありがとうございました。

もしよかったら、次のことも教えてもらえますか？

実際には何百枚かの写真を同時にエクセル上で扱おうと思っているのですが複数の写真を同時に指定した方法で開くことはできませんか？
このソフト（？）だと1枚づつしか開けないですよね？

回答No.4

bibi2gou

＃１です。
複数の写真を同時にすることは、残念ながらわかりません。
また、ＥＸＣＥＬ上で複数の写真を貼り付けるとなると容量が大きくなりすぎるため、あまりおすすめしません。個人的な意見ですが．．．。
お役に立てずすみません

お礼

ありがとうございました。
僕も実際、やってみたのですが、写真がいっぱいありすぎて、重くなってしまい、ものすごく不便を感じております。
簡単に言うと、商品のカタログ見たいな物をエクセルで作ろうと思っていたのですが、写真の上からテキストボックスで文字を載せたりとしているのですが、とにかく、重くて重くて、う・ご・か・な・・・・い。

フリーウェアーとかで写真をうまく、面付けできるソフトとかあればいいんだけどな・・・
始めてこのサイト使わせていただきましたが、世の中の暖かさ、皆様の優しさが心にしみました。

回答No.3

misatoanna

＃２です。

> 英語がいっぱいでどうやってパソコンエキスパートでない私にはさっぱり
私もエキスパートではありませんが……　　^_^;

数式だけでデータを処理しようとしますとブックは重くなり、反応時間も長く
なっていきます。
マクロを利用すると、数式データを使わない分ブックが重くならないだけでなく、
処理内容の修正も容易になりますので、基本だけでも覚えておかれたほうがよい
と思います。
下記は私とは何の関係もないサイトですが、お時間のあるときに覗かれてみたら
いかがでしょうか。
　http://www.g.dendai.ac.jp/lecture/vbasic/
　http://www.bcap.co.jp/hanafusa/　（この中の"逆引きヘルプ一覧"）
このほかにも、VisualBasic入門　とか　VisualBasic基本　などのキーワードで
検索してみてください。

ところで、前回の補足ですが、

1.Excelメニューの [ツール]-[マクロ]-[Visual Basic Editor] から（または
　　[Alt]を押しながら[F11]で）Visual Basic Editor を起動します。
2.開いたウィンドウの [挿入]-[標準モジュール] で開く画面に前回の内容を
　　コピーして貼り付け、Visual Basic Editor を閉じます。
3.シートの例えば　C3:E10　を選択したまま、[ツール]-[マクロ]-[マクロ] で
　　"PasteGazo" を選択して [実行] します。

実行する都度いちいち 3 の操作を行なうのが手間という場合は、上記 2 の後で
次のように設定しておきます。
3.ツールバーの空白部分で右クリックし、メニューから「ユーザー設定」を表示
　　します。
4.コマンドタブの"マクロ"を選択して、右側に表示される項目の中から、ニコ
　　ニコマークをツールバーにドラッグして、ユーザー設定を閉じます。
5.ツールバーに置いたニコニコマークをクリックすると、マクロ登録画面が出
　　ますので、"PasteGazo" を選択します。
6.実行するときは、例えば　C3:E10　を選択したまま、ニコニコマークをクリッ
　　クします。

お礼

早速、ありがとうございます。
仕事の合間でやっているので、今すぐにＶＢを・・・
とは行きませんが、ちょっと、週末の休みでも使ってやってみたいと思います。
ＶＢに興味が出て気ました。おもしろそうですね。
サイト、時間があるときに研究してみますね。

回答No.2

misatoanna

＃１さんご紹介のものと同じような内容かも知れませんが――

VB Editor の標準モジュールに貼り付けて使います。
'
Sub PasteGazo()
　Dim WDT, HGT, CTP, CLF, PWD, PHT, FName
　WDT = Selection.Width
　HGT = Selection.Height
　CTP = Selection.Top
　CLF = Selection.Left
　FName = Application.GetOpenFilename
　ActiveSheet.Pictures.Insert(FName).Select
　Selection.ShapeRange.LockAspectRatio = msoTrue
　　PWD = Selection.ShapeRange.Width
　　PHT = Selection.ShapeRange.Height
　Select Case PHT / PWD
　　Case Is >= HGT / WDT
　　　Selection.ShapeRange.Height = HGT
　　　Selection.ShapeRange.Left = CLF + (WDT - Selection.ShapeRange.Width) / 2
　　Case Else
　　　Selection.ShapeRange.Width = WDT
　　　Selection.ShapeRange.Top = CTP + (HGT - Selection.ShapeRange.Height) / 2
　End Select
End Sub
'
画像を表示したいセル範囲を選択した状態で実行しますと、選択範囲の中央に写真が
表示されます。

お礼

ありがとうございます・・・
ＶＢエディターって・・・
標準モジュールって・・・

でも英語がいっぱいでどうやってパソコンエキスパートで無い私にはさっぱりわかりません。
せっかくのアドバイスが・・・