わたしは、「挿入」→「図」→「ファイル」で図や写真を目的のセルに仮置きし、「図形の調整」→「グリッド」
で目的のセルの大きさにドラックしています。
数十枚ならこれでもいいのですが、100枚以上になると単純なドラックも面倒になってきます。
そんな訳で、いつもドラックしながら、これがワンクリックで合わせられればどんなに楽かと考えてます。
そこで質問なのですが、挿入後にワンクリックで目的のセル内に収める方法なんてあるのでしょうか。
マクロを組めば可能かもしれませんが、エクセル初心者なのでよくわかりません。
ご存知の方のお知恵をよろしくお願いします。
VBAで一括で図形をセルの大きさに合わせる方法を紹介します。
VBAについてはこちらを参考にしてみてください。
http://www.officepro.jp/excelvba/ini/index1.html
http://www.officepro.jp/excelvba/ini/index2.html
http://www.officepro.jp/excelvba/ini/index3.html
実行するとシート上の図形を図形の左上の角があるセルの大きさに合わせます。
図形を挿入して、所定の位置に移動させておけば、マクロを実行することで全てサイズ調整されます。
Sub Macro() Dim sp As Shape For Each sp In ActiveSheet.Shapes If sp.Type = msoPicture Then sp.LockAspectRatio = msoFalse sp.Top = sp.TopLeftCell.Top sp.Left = sp.TopLeftCell.Left sp.Height = sp.TopLeftCell.Height sp.Width = sp.TopLeftCell.Width End If Next End Sub
VBAで一括で図形をセルの大きさに合わせる方法を紹介します。
VBAについてはこちらを参考にしてみてください。
http://www.officepro.jp/excelvba/ini/index1.html
http://www.officepro.jp/excelvba/ini/index2.html
http://www.officepro.jp/excelvba/ini/index3.html
実行するとシート上の図形を図形の左上の角があるセルの大きさに合わせます。
図形を挿入して、所定の位置に移動させておけば、マクロを実行することで全てサイズ調整されます。
Sub Macro() Dim sp As Shape For Each sp In ActiveSheet.Shapes If sp.Type = msoPicture Then sp.LockAspectRatio = msoFalse sp.Top = sp.TopLeftCell.Top sp.Left = sp.TopLeftCell.Left sp.Height = sp.TopLeftCell.Height sp.Width = sp.TopLeftCell.Width End If Next End Sub
SALINGERさん、コメントありがとうございます。
また、ご親切にVBAのサイトまで紹介いただきまして恐縮です。
そうですか、やっぱりマクロなんですね。
未知の領域ですが、これで楽が出来るならと、腹をくくった次第です。
作っていただいたマクロをどこにどう書き込めばいいのか、ご紹介くださった
サイトを熟読して挑戦してみます。
まずは、ありがとうございました。
各画像の左上が、それぞれフィットさせたいセル内になるように配置し、
下記を実行する形でどうでしょうか。
Sub FitPics() Dim pic As Shape For Each pic In ActiveSheet.Shapes With pic.TopLeftCell pic.LockAspectRatio = msoFalse pic.Top = .Top pic.Left = .Left pic.Width = .Width pic.Height = .Height End With Next End Sub
を実行すると、各セルにフィットする処理を実行します。
縦横比は変わる仕様になっていますので、これを保持したいなど希望の仕様が異なる場合は
コメントにて対応しますので、コメントを有効にお願いいたします。
http://plaza.rakuten.co.jp/plaplanet2007/diary/200705100000/
Mookさん、コメントありがとうございます。SALINGERさんが教えてくださったマクロとは
少し違うようですが、基本の考え方は同じなのでしょうね。
今夜は、ちょっと酔っていますのであす挑戦してみます。
ありがとうございました。
また、お聞きすることがありましたらよろしくお願いいたします。
ワンクリックとはいきませんが、Altキーを押しながらマウスでドラッグ/サイズを変更すると、セルの枠ぴったりになります。
これではダメでしょうか?
先にコメントいただいたSALINGERさん、Mookさんのマクロはこれから挑戦するのですが、memo77さんが
教えてくださった方法はすぐに試しました。
memo77さんが教えてくださった方法は、わたしの一連の操作である「図形の調整」→「グリッド」を
簡単にしたものですね。たしかにワンクリックではありませんが、他人のPCでも同じような作業を
するときは非常に助かります。なるほど、こんな方法もあるんですね。
大変参考になりました。ありがとうございます。
SALINGERさん、コメントありがとうございます。
また、ご親切にVBAのサイトまで紹介いただきまして恐縮です。
そうですか、やっぱりマクロなんですね。
未知の領域ですが、これで楽が出来るならと、腹をくくった次第です。
作っていただいたマクロをどこにどう書き込めばいいのか、ご紹介くださった
サイトを熟読して挑戦してみます。
まずは、ありがとうございました。