縦4.5cm、横3.5cmの証明用(顔)写真を3枚作りたいと思っています。CANONプリンターに付属された写真用紙(光沢ゴールド)の2LかKGという用紙に印刷したいのですが、デジカメでとった大きいサイズの画像を縦4.5cm、横3.5cmの大きさにEXCEL、WORDなどで合わせる方法がわかりません。簡単に大きさを合わせる方法をお教え下さいませ。ちなみに画像は、横向きです。ご指導宜しくお願いします。

このQ&Aに関連する最新のQ&A

A 回答 (5件)

Wordで表を挿入してその中に写真を入れたらいいですよ。



1行3列の表を挿入します表を選択後、セルの高さを45mm幅35mmに指定します。
※表の中で右クリックしてメニューの自動調整→「列の幅を固定する」をクリックします。
                               ↑必ずやってください
通常の写真は3対4ぐらいの横長かと思われますが、Woedでもトリミングはできますが、幅は固定できても高さが乱れますので、先に顔部分を縦横比も含め整えておいた方がやりやすいです。

画面は2010です。補足されるときはOfficeのバージョンをお忘れなく。
「証明用写真の作り方をお教えください。」の回答画像1

この回答への補足

バージョンを忘れましてすいませんm(__)m
いまや、化石の2003です(^^ゞ

補足日時:2011/04/16 13:38
    • good
    • 2
この回答へのお礼

早々に、わかりやすいお答え、ホントにありがとうございます。
2003では『自動調整』の選択は、ないのですが、表のプロパティ中で、列の固定など選択できますので、なんとか分かりました。枠を作成するまでは、分かりましたが、あとは適当な大きさにトリミングして、表におさまるよう、大きさを合わせればいいのですか?

お礼日時:2011/04/16 13:38

印刷する用紙サイズへ、証明用の写真を3枚配置したいのですか?


それとも用紙と関係なく、指定の大きさで1枚を配置して、それを
指定用紙3枚へと印刷するのですか?
WordやExcelでないと駄目ですか?

もしも私が指定サイズの証明写真を写真用紙に印刷するのなら、
【 PhotoScape 】を使って、例えば2Lサイズなら6枚から8枚配置
できますので、それで印刷することで対応します。

縦横4.5×3.5cmの証明用(顔)写真を3枚だけ必要なら、Lサイズ
に4枚配置できますので、それで印刷します。
【フォトスケープ Photoscape (概要とインストール)】
http://mahoro-ba.net/e979.html

PhotoScapeをインストールして、起動します。
[印刷]を指定したら以下の手順で作業します。

(1) [印刷設定]ボタンから用紙サイズを[ Lサイズ ]を指定したら
 用紙の向きを縦向きにします。
(2) [ポートレイト]タブで証明用のサイズを指定
(3) [ポートレイト]を指定することで縦長になります。
(4) [印紙合わせ]を指定することで余計な部分をトリミングした
 状態と同じような設定ができます。
(5) [写真を自動的に回転する]のチェックをはずすと横向き画像
 であっても回転しないで配置できます。

その他、[間隔(mm)]や[写真の配列]などの指定で希望する配置
になったら印刷します。(添付画像を参照)

関連過去ログ
http://oshiete.goo.ne.jp/qa/6524706.html
http://oshiete.goo.ne.jp/qa/6609394.html
「証明用写真の作り方をお教えください。」の回答画像5
    • good
    • 0
この回答へのお礼

このたびは、誠にありがとうございます。
すいませーん。急いでたもので、確認しないままに締めてしまいました。
誠に申し訳ありません。貴重なご意見、じっくり研究したいと思います。

お礼日時:2011/04/17 13:13

>けど、画像の縦横のバランスを変えずに大きさを調整するのは、どうするのでしょうか(^_^;)



先にも書きましたように、あらかじめ対比1対1.3ぐらいにトリミングしておいた方が後の処理は楽です。
画像の場合は必ず四隅でドラッグして調整します。
    • good
    • 0
この回答へのお礼

出来ました!!ご親切に最後まで素人に、おつきあいいただきまして、誠に有難うございました。助かりました(^^)

お礼日時:2011/04/17 13:08

こんにちは!


一例です。

当方使用のWord2003とペイントソフトを使う方法です。

テキストボックスをWord上に一つ挿入します。
テキストボックスの線上で右クリック → テキストボックスの書式設定 → 「サイズ」タブで高さ・幅を好みの大きさにします。
(高さは2mm程度大きい方が良いかもしれません。幅は35mmでOKだと思います。)
→ 「テキストボックス」タブでテキストボックスと文字列の間隔の上下左右すべてを「0」にします。
テキストボックスの「線の色」は「線なし」にしておきます。

次に スタート → すべてのプログラム → アクセサリー → ペイント を立ち上げます。
メニュー → ファイル → 開く から好みの画像を開き ↓の画像の赤丸部分をクリックし、やや縦長で画像をトリミング → 右クリック → コピー → 先ほどのWord内のテキストボックスを選択 
→ 貼り付け
画像の下に「図1」のような文字と改行マークが勝手に入ると思いますので、これらをバックスペースキーですべて削除し、画像だけを残します。

その画像を選択したまま Shift+Ctrlキー+Altキーを押しながら右へドラッグし、同じ画像をコピーします。

次に画面左下にある(たぶん図形描画のアイコンが表示されていると思います)斜め左上を向いている矢印を選択し
先ほどコピーした二つの画像より一回り大きめを範囲指定!
これで二つの画像が選択されますので、先ほど同様Shift+Ctrl+Altキーを押しながら下へドラッグし
同じ画像を4つつくります。
これをプリントアウトして使ってはどうでしょうか?
尚、実際にサイズがあっているかどうか確認して本作業された方が良いと思います。
長々と失礼しました。m(__)m
「証明用写真の作り方をお教えください。」の回答画像3
    • good
    • 0
この回答へのお礼

ご丁寧にご指導いただきまして誠にありがとうございます。
すいません。途中で分からなくなりましたが、今回は、申し訳ございませんがNO.1さんのご指導で出来ましたので、改めて、ご指導の方法でやってみたいと思います。このたびは、誠に有難うございましたm(__)m

お礼日時:2011/04/17 13:07

>あとは適当な大きさにトリミングして、表におさまるよう、大きさを合わせればいいのですか?



大きさは適当で構いませんが、印刷したい部分がうまく出るようにトリミングします。
表に挿入すれば自動的にその寸法になります。(ただ、画面上で表内にドラッグさせると崩れる恐れがあります)
また、どのバージョンでも自動調整はあるはずですが、画像を挿入したときに枠が広がらなければ大丈夫です。
    • good
    • 0
この回答へのお礼

たび重ねて、誠にありがとうございます。
すいません。自動調整ありました!
けど、画像の縦横のバランスを変えずに大きさを調整するのは、どうするのでしょうか(^_^;)

お礼日時:2011/04/16 18:23

このQ&Aに関連する人気のQ&A

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

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

このQ&Aを見た人が検索しているワード

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

Q証明写真のフリーソフトを探してます!

証明写真のフリーソフトを探してます!

証明写真をつくろう! フリー版 2.9.0 Free
↑上記のフリーソフトは画質はよかったのですが。
有料ソフトにバージョンUP登録しないと
印刷できないし、印刷できても「SAMPLE]という
表示が印刷されるので フリーでは使えません。


また 証明写真簡単作成 というフリーソフトは
エクセルでのマクロ使用ソフトでして 印刷は
画質にノイズが入り、読み込みがきたなかったので
出来れば、 フリーソフトで 画質が良い
ものはありますでしょうか?

急遽必要でして、アドバイスをお願いします!!

Aベストアンサー

証明写真に特化しているわけではないのですが、写真編集
ソフトで[トリミング]や[ポートレイト]印刷などが簡単に
できる画像編集ソフト【 PhotoScape 】を使われてみては
いかがでしょうか。

フォトスケープ Photoscape (概要とインストール)
http://mahoro-ba.net/e979.html

元となる画像を用意したら、【 PhotoScape 】を立ち上げ
[画像編集]で画像をトリミングします。

証明写真のサイズにもよりますが、履歴書などのサイズの
3×4の場合で、綺麗に印刷できる解像度 300dpi にすると
なると355pixel×473pixelぐらい必要になります。
このサイズになるようにトリミングをしたら、左上にある
[コピー]ボタンを押してクリップボードに保存します。

[印刷]タブをクリックして、[印刷設定]のボタンから用紙
のサイズと向きを指定しておきます。[ポートレイト印刷]
タブで[ポートレイト]を選択してサイズを[ 3 × 4 cm ]で
指定して間隔を適宜指定します。
[ DPI ]を選択して[ 300 DPI ]にしたら、[追加]ボタンを
押して[クリップボードから写真を追加]を選択して、追加
する数を枠の数だけ設定します。
これで同じ写真がすべての枠内に配置されますので[印刷]
ボタンで印刷してみてください。

このソフトはフリーですし、印刷時の制限などもないので、
直感的な操作感などが使いやすいかと思います。

証明写真に特化しているわけではないのですが、写真編集
ソフトで[トリミング]や[ポートレイト]印刷などが簡単に
できる画像編集ソフト【 PhotoScape 】を使われてみては
いかがでしょうか。

フォトスケープ Photoscape (概要とインストール)
http://mahoro-ba.net/e979.html

元となる画像を用意したら、【 PhotoScape 】を立ち上げ
[画像編集]で画像をトリミングします。

証明写真のサイズにもよりますが、履歴書などのサイズの
3×4の場合で、綺麗に印刷できる解像度 300dpi にすると
なると355pixel×473pixel...続きを読む

Qワード2007封筒印刷 宛名は横、郵便番号は縦

 ワード 2007の差し込み 印刷で封筒の宛名を印刷したいのですが、
添付ファイルのように 長3型で 横書きで 宛名は横書き 郵便番号が縦書
の場合、うまく宛名面を作れません。
 郵便番号をテキストに入力し、左に90度回転出来ればいいのですが、

良い方法あれば教えてください。

Aベストアンサー

普通に考えて
新規作成=>Office.comのテンプレートの 封筒=>長型3号
住所のテキストボックス 右クリック=>縦書きと横書き・・・
から選択できます。

Q証明写真が作れるフリーソフトは

よろしくお願いします。

デジカメで撮った写真で証明写真が作れるフリーソフトを捜しています。OSはWin XP home です。

Aベストアンサー

多分、これの事だと思うのですけど。
でも、XPでの動作は未確認のようです。
一度ご覧になってみてください。

参考URL:http://www.linklinklink.ne.jp/nface.htm

QExcelで、横並べのデータを縦並べにリンクを貼りたい

エクセルにおいて、A1セル、B1セル、C1セル・・・と横に不連続な日付を並べた表があります。

日付は毎日追加していきます。入力された日付を別のシートに"="を使ってリンクを貼っておきたいのですが、リンク先では横ではなく縦にA1、A2、A3・・・と並べていきたいと思っております。

ちなみに、いったん別シートにA1セル、B1セル、C1セル・・・と横にリンクを貼った後、コピー→形式を選択して貼り付け(行列を入れ替える)で縦にしようとしてもうまくいきませんでした。
なお、その都度値複写をすることは考えておりません。

良い方法をご存知の方いらっしゃいましたら教えていただきたくお願いします。

Aベストアンサー

一旦別シートに横にリンクを貼る際に、=シート名!A$1、=シート名!B$1・・・と指定しましょう。

そうすれば、コピー→形式を選択して貼り付け(行列を入れ替える)で縦すればうまく出来るでしょう。

Q証明写真用フリーソフトにつて

5~6年前まで証明写真用フリーソフトをインターネットからダウンロードして重宝していましたが
パソコンを変えてからそのソフト名を忘れてしまいました。
何方かご存知の方教えて頂けませんか?

Aベストアンサー

フリーソフトの「PhotoScape」で証明写真が作れます。
「PhotoScape」は多機能の画像加工~編集ソフトで、証明写真は機能の一つです。

「PhotoScape」
http://www.vector.co.jp/soft/winnt/art/se492136.html

「PhotoScape のチュートリアル集」
https://comemo508.wordpress.com/photoscape/



「自宅で証明写真を作る方法(Photoscape使用)をお教えします! 前篇」
http://ameblo.jp/itumotenki/entry-12011465843.html

「証明写真の創り方 (Photoscape(フォトスケープ)編) 」
http://ameblo.jp/yosi59/entry-11983067740.html

Qエクセルで横並びのデータを縦にしたいのですが・・・

以下の様な月別のシートが大量にあり、それをひとつのシートに縦にまとめたいと思っています。

日付 1課  2課  3課  東京   大阪 ......
10/1 20   10   15   50   30
10/2 15   20        45  
10/3 30   15    20   30   35
 :
これを

日付 部署  数量
10/1 1課  20
10/1 2課  10
10/1 3課  15
10/1 東京  50
10/1 大阪  30
10/2 1課  15
10/2 2課  20
10/2 3課   0
10/2 東京  45
    :
と、この様な形にしたいのですがやり方がわかりません。
実際のデータは縦31行、横30列(縦横共に固定)、シート枚数40ほど有り、
コピー&ペーストではなかなか作業が終わりません。
マクロは基本的なことしかわかりません。
作業はシート単位で、簡単なやり方があればご教授お願いいたします。

Aベストアンサー

こんばんは!

Sheet見出しの一番左から最後のSheetまですべて同じ配置ですよね?
各シートのA1セルに項目の「日付」が入っているという前提です。

標準モジュールにしてみてください。

Sub Sample1() 'この行から//
Dim i As Long, j As Long, k As Long, cnt As Long, lastCol As Long
For k = 1 To Worksheets.Count
With Worksheets(k)
On Error Resume Next '←念のため
lastCol = .Cells(1, Columns.Count).End(xlToLeft).Column
With .Cells(1, lastCol + 1)
.Value = "日付"
.Offset(, 1) = "部署"
.Offset(, 2) = "数量"
End With
.Columns(lastCol + 1).NumberFormatLocal = .Range("A2").NumberFormatLocal
cnt = 1
For i = 2 To .Cells(Rows.Count, "A").End(xlUp).Row
For j = 2 To lastCol
cnt = cnt + 1
.Cells(cnt, lastCol + 1) = .Cells(i, "A")
.Cells(cnt, lastCol + 2) = .Cells(1, j)
If .Cells(i, j) <> "" Then
.Cells(cnt, lastCol + 3) = .Cells(i, j)
Else
.Cells(cnt, lastCol + 3) = 0
End If
Next j
Next i
Range(.Columns(1), .Columns(lastCol)).Delete
End With
Next k
End Sub 'この行まで//

※ 一旦マクロを実行すると元に戻せませんので
ブック全体をコピーし、コピーしたブックで試してみてください。m(_ _)m

こんばんは!

Sheet見出しの一番左から最後のSheetまですべて同じ配置ですよね?
各シートのA1セルに項目の「日付」が入っているという前提です。

標準モジュールにしてみてください。

Sub Sample1() 'この行から//
Dim i As Long, j As Long, k As Long, cnt As Long, lastCol As Long
For k = 1 To Worksheets.Count
With Worksheets(k)
On Error Resume Next '←念のため
lastCol = .Cells(1, Columns.Count).End(xlToLeft).Column
With .Cells(1,...続きを読む

Q証明写真のフリーソフト2nfacelite

証明写真のフリーソフト2nfaceliteをインストールしましたが、ファイルが開けません。起動方法等が分かりません。どのようにしたらよいのでしょうか?ちなみに私のOSはウインドウズXPです。このフリーソフトを使っている方で扱い方を知っている方、初心者でも分かるように教えていただきたいです。

Aベストアンサー

こんにちは。

2nfacelite.lzhはwin98用softの為、解凍した「setup.exe」を実行時に、2つの「dll」を入れ替えるか、現在のままにして置くか、問い合わせが有りましたが、此の件はokですか?

私は現状のままの方を選択して(Project1)と言うフォルダの中の「NFACElite (2)」をクリックする事で、開けましたが・・・

QEXCEL 縦の式を横にコピー

EXCELの計算式について質問致します。
=DSUM($V$5:$AD$275,$X$5,リスト!$A7:$C8)
=DSUM($V$5:$AD$275,$X$5,リスト!A$9:C$10)
=DSUM($V$5:$AD$275,$X$5,リスト!$A11:$C12)
と上記のように縦列に計算式を入力しています。
今縦列に月を入力し月ごとの計算表を作っているのですが横列に各月を入力して月ごとの計算式をつくりたいと思っています。
そこで問題なのが、リストの表は縦に作っているため、縦のコピーだと簡単にコピーするだけなのですが、絶対参照がうまく活用できないため横にドラッグしてコピーするとずれてしまいます。
ただ縦にいれた計算式を横にそのままセル番もそのままでコピーすることは可能でしょうか?

Aベストアンサー

以下の操作を試してください。

縦にいれた計算式のセル範囲を2行目以下を選択
編集メニューの「置換」で
=

#
に「すべて置換」
選択範囲をコピー
1行目隣列のセルを選択
「形式を選択して貼り付け」で「行列を入れ替える」で貼り付け
貼り付け範囲が選択された状態のまま、編集メニューの「置換」で
#

=
に「すべて置換」

Qフリーの証明写真加工ソフト

デジカメで撮影した証明写真、またはスキャナで取り込んだ証明写真を加工したいと考えています。
そこで手軽にできるフリーウェアをいろいろと探しているのですが、写真初心者の私にはどれを選んで良いのかさっぱり…。
皆さんの中で、みれはぜひオススメ!使いやすい!と思われるフリーウェアはありますか?できれば、リサイズまでできれば大変ありがたいです。
お手数おかけしますが、ご意見お待ちしております。
よろしくお願いします。m(__)m

Aベストアンサー

こんばんは。
いろんなソフトがあると思いますが、私個人で活用させてもらっているのは、レタッチソフトのJtrimです。
リサイズ程度なら簡単です。

参考URL:http://www.woodybells.com/

Qエクセル2003 横のデータを縦に並べたいです。

以前にも同じような質問をされている方がいるかもしれませんが、
どなたかお知恵をお貸しください。
関数を使用して処理したいと考えております。
下記にファイルの一部を抜粋致しましたので、
ご教授のほど宜しくお願い致します。

現在の形
   A      B      C      D      E
1 SHIRTS カラー黒  サイズ38  サイズ39  サイズ40

上記のような形で4000行くらいあります。
列は最長でABまで使用しております。
上記のようなデータを下記のような形に並べ替えたいと思っております。

希望の形
   A      B      C
1 SHIRTS カラー黒 サイズ38 
2 SHIRTS カラー黒 サイズ39
3 SHIRTS カラー黒 サイズ40

サイズの展開を横表示から縦表示に変更したいのです。
素人質問で申し訳ありませんが、どなたか宜しくお願い致します。

Aベストアンサー

こんにちは。
4000行ある時点で数式(関数)で処理をすることに抵抗を感じます。
VBAを使用したほうが賢明かと思います。
標準モジュールを追加し以下コードをお試しください。
尚、動作としてはSheet1にあるデータをSheet2に展開すると言った流れになっています。
質問の中で「最長でAB列まで」と言うことでしたが念のためBBやCB・・・までデータがあったとしても動作するよう作ってあります。
Sub Sample()
  Dim I As Long, X As Long
  Dim R1 As String, R2 As String
  I = 1: X = 1
  Application.ScreenUpdating = False
  Do While Range("Sheet1!A" & I).Value <> "" 'Sheet1の行移動ループ
    R1 = "": R2 = "C"
    Do While Range("Sheet1!" & R1 & R2 & I).Value <> "" 'Sheet1の列移動ループ
      Range("Sheet2!A" & X).Value = Range("Sheet1!A" & I).Value
      Range("Sheet2!B" & X).Value = Range("Sheet1!B" & I).Value
      Range("Sheet2!C" & X).Value = Range("Sheet1!" & R1 & R2 & I).Value
      If R2 = "Z" Then '列移動コード
        If R1 <> "" Then
          R1 = Chr(Asc(R1) + 1)
        Else
          R1 = "A"
        End If
      Else
        R2 = Chr(Asc(R2) + 1)
      End If
      X = X + 1 'Sheet2の次の行へ
    Loop
    I = I + 1 'Sheet1の次の行へ
  Loop
  Application.ScreenUpdating = True
  MsgBox ("完了")
End Sub

こんにちは。
4000行ある時点で数式(関数)で処理をすることに抵抗を感じます。
VBAを使用したほうが賢明かと思います。
標準モジュールを追加し以下コードをお試しください。
尚、動作としてはSheet1にあるデータをSheet2に展開すると言った流れになっています。
質問の中で「最長でAB列まで」と言うことでしたが念のためBBやCB・・・までデータがあったとしても動作するよう作ってあります。
Sub Sample()
  Dim I As Long, X As Long
  Dim R1 As String, R2 As String
  I = 1: X = 1
  Ap...続きを読む


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

人気Q&Aランキング