人力検索はてな
モバイル版を表示しています。PC版はこちら
i-mobile

エクセルで図や写真を挿入するときに任意のセルの大きさにワンクリックでぴったり収める方法を探しています。
わたしは、「挿入」→「図」→「ファイル」で図や写真を目的のセルに仮置きし、「図形の調整」→「グリッド」
で目的のセルの大きさにドラックしています。
数十枚ならこれでもいいのですが、100枚以上になると単純なドラックも面倒になってきます。
そんな訳で、いつもドラックしながら、これがワンクリックで合わせられればどんなに楽かと考えてます。
そこで質問なのですが、挿入後にワンクリックで目的のセル内に収める方法なんてあるのでしょうか。
マクロを組めば可能かもしれませんが、エクセル初心者なのでよくわかりません。
ご存知の方のお知恵をよろしくお願いします。

●質問者: qzm02423
●カテゴリ:コンピュータ 学習・教育
✍キーワード:エクセル クリック グリッド セル ドラック
○ 状態 :終了
└ 回答数 : 3/3件

▽最新の回答へ

1 ● SALINGER
●30ポイント ベストアンサー

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のサイトまで紹介いただきまして恐縮です。

そうですか、やっぱりマクロなんですね。

未知の領域ですが、これで楽が出来るならと、腹をくくった次第です。

作っていただいたマクロをどこにどう書き込めばいいのか、ご紹介くださった

サイトを熟読して挑戦してみます。

まずは、ありがとうございました。


2 ● Mook
●30ポイント

各画像の左上が、それぞれフィットさせたいセル内になるように配置し、

下記を実行する形でどうでしょうか。

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さんが教えてくださったマクロとは

少し違うようですが、基本の考え方は同じなのでしょうね。

今夜は、ちょっと酔っていますのであす挑戦してみます。

ありがとうございました。

また、お聞きすることがありましたらよろしくお願いいたします。


3 ● memo77
●30ポイント

ワンクリックとはいきませんが、Altキーを押しながらマウスでドラッグ/サイズを変更すると、セルの枠ぴったりになります。

これではダメでしょうか?


http://www31.atwiki.jp/memo77/

◎質問者からの返答

先にコメントいただいたSALINGERさん、Mookさんのマクロはこれから挑戦するのですが、memo77さんが

教えてくださった方法はすぐに試しました。

memo77さんが教えてくださった方法は、わたしの一連の操作である「図形の調整」→「グリッド」を

簡単にしたものですね。たしかにワンクリックではありませんが、他人のPCでも同じような作業を

するときは非常に助かります。なるほど、こんな方法もあるんですね。

大変参考になりました。ありがとうございます。

関連質問


●質問をもっと探す●



0.人力検索はてなトップ
8.このページを友達に紹介
9.このページの先頭へ
対応機種一覧
お問い合わせ
ヘルプ/お知らせ
ログイン
無料ユーザー登録
はてなトップ