教えて下さい。
エクセルで個人の写真を貼り付けを
為たいのですが
個人の写真は背景等が
多く写っていて
顔だけを大きく切り取り(拡大して)
(不要な背景等は削除)
四角に調節して貼り付けたいのです。

参考書を読んでもよく分からないので
教えて下さい。

A 回答 (1件)

こんばんは!



トリミング、図の調整等々をすべてExcel上でやりたい!というコトでしょうか?
出来なくはないとおもいますが、PC内に入っている「ペイント」を使うのが簡単だと思います。

① プログラム → アクセサリー → 「ペイント」を立ち上げる
(白い部分「キャンバス」は極力小さくしておいた方が良いみたいです。)
② ファイル → 開く → 保存している画像を選択
③ メニュー → 「選択」の上の四角をクリック → 画像の必要部分をトリミング(ドラッグで範囲指定)
④ 選択した画像上で右クリック → コピー → ファイル → 新規 → 貼り付け

以上で必要部分の画像が表示されるはずですので、名前を付けて保存
後はExcelに画像を挿入する訳ですが、そのまま挿入するのではなく
⑤ メニュー → 挿入 → 図形(オートシェイプ)の「四角形」を好みの大きさに挿入
⑥ 図形の塗りつぶし → 図 → 先ほど保存した画像を選択 
(「枠線なし」などは好みによって変更します)

以上が当方が行っているやり方です。m(_ _)m
    • good
    • 0
この回答へのお礼

おはようございます。
集合写真で
個人別に切り抜き拡大縮小し四角にして
別のセルに貼り付けを
します。

早速試して見ます

ありがとう御座いました。

お礼日時:2017/05/15 06:13

お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!

このQ&Aを見た人はこんなQ&Aも見ています

このQ&Aと関連する良く見られている質問

QExcel日記帳に拡大縮小できる写真を貼り付けたい

過去の日記帳ソフトから脱却して、Excelに日記データを移して使い始めました。

その日の文章の隣のセルに、小さな切手くらいに縮小した写真を貼り付けて、それをクリックをすると、写真を拡大できる方法は可能でしょうか。
可能でしたら、その方法を教えて下さい。

よろしくお願いいたします。

Aベストアンサー

たとえば、右下のハンドルをつかんでAltキーを押しながらドラッグ
した場合は、画像の下側が罫線に合うようです。

画像の右や左を罫線にあわせるのは、右や左の真ん中のハンドルを
つかんでドラッグしたら罫線にはあいますが画像の縦横比が違って
きます。
書式設定で縦横比を固定するにチェックが入っていても、です。

Qファイルを切り取りして貼り付けしてもファイルが消えません。。。

デスクトップにあるエクセルファイルを切り取りしてマイドキュメントに貼り付けをしたらデスクトップにあるファイルが前は消えていたのですが、今はコピーをしたようにデスクトップにも残りマイドキュメントにも同じファイルがある状態になってしまいます。

どのように設定を変えればいいのでしょうか??

Aベストアンサー

デスクトップ以外のフォルダ間では正しく動作するのでしょうか?

例えば、フロッピーを書込み禁止にして切り取り-貼り付けすると同様の状況が発生します。
今のデスクトップの設定が通常の処理でファイルを削除できないような設定なのでは?
…といった前提で思いつくのは、

アクティブデスクトップを使用しているのなら、offにしてみては?

Qエクセルで切り取り貼り付けで元の表はそのままにしたい。

エクセルで切り取り貼り付けで元の表はそのままにしたい。

エクセルの表があり、他のセルを相対参照しています。
この表をもう一つ下にコピーしたいのですが、相対参照
なのでコピー貼付だとづれてしまいます。
かといって切り取り貼り付けだと元の表がなくなってしまいます。
元の表をそのまま保持して下にコピーするにはどうしたらよいで
しょうか?

Aベストアンサー

コピーしたい表のあるシートをコピーして、シートを追加します。

その追加したシートから切り取ればいいと思います。

Qエクセルに貼り付けた画像の拡大・縮小方法

エクセルに貼り付けた画像を、左クリックで拡大、縮小(元に戻す)する方法をどなたか教えて頂けないでしょうか? サムネイルのような使い方をエクセルでしたいのです。

検索した結果、類似した質問→回答はありましたが参考になりませんでした。
よろしくお願いします。

Aベストアンサー

昔投稿したコードですが、xl2010でも動きましたので再度アップします。
シートにサムネイル画像を生成し、元画像へのハイパーリンクを張ります。画像をクリックするとブラウザで元画像を開きます。
シートの行幅、列幅を適当に広げてから実行しないと、重なってしまいます。寸法を決めるところは手抜きです。
自動記録に毛の生えた様なコードで、時間がかかります。画像1ファイルの処理に100msec(Celeron2.4GHz)、1枚あたりのファイルサイズは元画像の1/100程度でした。(1500×1000程度の画像)
Sub test()
Dim FSO As Object
Dim fileList As Object
Dim myfile As Object
Dim i As Long, j As Long

Set FSO = CreateObject("Scripting.FileSystemObject")
With FSO.GetFolder("C:\hoge")
Set fileList = .Files
End With
i = 1: j = 1
Application.ScreenUpdating = False
For Each myfile In fileList
If UCase(FSO.GetExtensionName(myfile.Path)) = "JPG" Then
Sheets(1).Activate
ActiveSheet.Pictures.Insert(myfile.Path).Select
Selection.ShapeRange.LockAspectRatio = msoTrue
'このへんのサイズ、縮小率はお好みで
If Selection.ShapeRange.Height > Selection.ShapeRange.Width Then
Selection.ShapeRange.Height = 40
Selection.ShapeRange.Width = 30
Else
Selection.ShapeRange.Height = 30
Selection.ShapeRange.Width = 40
End If
Selection.Copy
Sheets(2).Activate
Cells(i, j).Select
ActiveSheet.PasteSpecial Format:="図 (JPEG)", Link:=False, DisplayAsIcon:= False
ActiveSheet.Hyperlinks.Add Anchor:=Selection.ShapeRange.Item(1), Address:=myfile.Path
Sheets(1).Activate
Selection.Delete
i = i + 1
If i > 20 Then
i = 1
j = j + 1
End If
End If
Next myfile
Application.ScreenUpdating = True
Set FSO = Nothing
End Sub

昔投稿したコードですが、xl2010でも動きましたので再度アップします。
シートにサムネイル画像を生成し、元画像へのハイパーリンクを張ります。画像をクリックするとブラウザで元画像を開きます。
シートの行幅、列幅を適当に広げてから実行しないと、重なってしまいます。寸法を決めるところは手抜きです。
自動記録に毛の生えた様なコードで、時間がかかります。画像1ファイルの処理に100msec(Celeron2.4GHz)、1枚あたりのファイルサイズは元画像の1/100程度でした。(1500×1000程度の画像)
Sub test()
Dim FS...続きを読む

Qexcelのシートに合わせて背景を貼り付けたい

エクセルで、スキャナーで読み込んだ表の画像を背景に貼り付けけ、参照しながら入力用の表の加工をもくろんでいるのですがうまくいきません
書式→シート→背景で画像を選ぶと出来るのですが
サイズが大き過ぎてシートに合いません
画像を小さくしたのでは潰れてしまい使えません
挿入→図→ファイルからで読み込み 透明な色にしたのでは図の裏のセルが選択できません
ワードでは出来るのですが、伝票の入力用などには利用できそうですが、表を作りたいのでエクセルで
なんか方法がないかな 教えてください
 

Aベストアンサー

こんにちは(^_^;
VBA で考えてみました。当方 API とか分らないんで、
ベタなやり方なんですが、表画像の上からセル選択する手段です。

下準備1
目的の表の画像を挿入し、用紙サイズに合わせて、
「透明な色に設定」ボタンで背景を透過させる。

下準備2
・オートシェイプで四角を描く。
・四角の上にコマンドボタンを配置する。
・↑をグループ化にして、
・「名前ボックス」で 『セル選択』に変更

下準備3
・[Ait]+[F11] で VB Editor を開き、
・プロジェクトツリーから、該当するシートをダブルクリックで開いて、
・下記をコピペする。

Private Sub CommandButton1_Click()
Shapes("セル選択").TopLeftCell.Select
End Sub

以上、グループ化された四角をドラッグ&ドロップで
目的のセル上に配置し、ボタンを押すとセル選択できます。
あとは、[F2] キーで編集します。

カーソルキーで移動した方が早いかな(^_^;

こんにちは(^_^;
VBA で考えてみました。当方 API とか分らないんで、
ベタなやり方なんですが、表画像の上からセル選択する手段です。

下準備1
目的の表の画像を挿入し、用紙サイズに合わせて、
「透明な色に設定」ボタンで背景を透過させる。

下準備2
・オートシェイプで四角を描く。
・四角の上にコマンドボタンを配置する。
・↑をグループ化にして、
・「名前ボックス」で 『セル選択』に変更

下準備3
・[Ait]+[F11] で VB Editor を開き、
・プロジェクトツリーから、該当するシートを...続きを読む


このQ&Aを見た人がよく見るQ&A

人気Q&Aランキング

おすすめ情報