質問投稿でgooポイントが当たるキャンペーン実施中!!>>

ご相談です。

写真データをエクセルに貼り付けたいのですが
いまの写真データは日付が入っておりません。

その写真データに何とか撮った日付を入れて
日付が入った写真をエクセルに貼り付けたいのですが
何をすればよいか分かりません・・・

誰かわかる方 教えていただきたいと思います。

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

A 回答 (1件)

一枚の画像にするには、画像編集ソフトを使って編集する必要が


あります。
フォトショップなんかを持っていれば簡単にできますが・・・。

なければ、画像をエクセル上に配置した後、テキストで画像の上に
日付を入れてはいかがでしょうか?
    • good
    • 0
この回答へのお礼

敏速な回答有難うございました。

エクセルでは編集してはならない環境だったんです。

JStamperというものを見つけましたので解決しました。

有難うございました。また何かありましたら力を貸してください。

お礼日時:2010/03/01 12:46

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

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

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

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

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

Qデジカメで撮影した写真に、日付を入れる方法を知りたいのです。

デジカメ Panasonic Lumix FX7 で撮影した写真に日付を入れる加工をしたいのですが、どうすればいいのでしょうか?
パソコンに取り込んでから、保存しておくのに、日付入りで残したいのです。
 そういったことができるフリーソフトはありますでしょうか? 購入したときの箱を紛失してしまい、付属のものは、何があったのかわかりません。 どうすれば、日付を入れられるか教えてください。

Aベストアンサー

まずはパナソニックのサイトに行き取説のPDFなり使用を確認下さい。

アナログのよう写真の右下あるいは左下に日付を出力させる方法があります。
(最近のデジカメは難しくないので設定をいじっていれば見つかりそうですが…)

あと既に撮っている写真データに日付を入れる方法ですが
ウィンドウズの標準で付いているpaintを使ってみてはいかがですか?

QExcel-VBA 撮影日時の取得

次の様な「For-Next」で撮影日時を取得しています。
"D:\Test1\"配下の"D3001.JPG"がヒットするまでループする…廻りくどい。
【やりたい事】
For-Nextを使わない。フルパス「"D:\Test1\D3001.JPG"」を指定して撮影日時を取得するには、どの様にソースコードを書けばよいのか分かりません。サンプルコードを提示いただければ有難いのですが、
誰かご教授宜しくお願いいたします。
'-----------------------------------
Sub 撮影日時表示()
Const sFile = "D3001.JPG" '…ターゲットファイル
Dim wFile As Variant
Dim wDate As Date
With CreateObject("Shell.Application")
For Each wFile In .Namespace("D:\Test1\").Items
wDate = wFile.ExtendedProperty("WhenTaken")
If wFile.Name = sFile Then
MsgBox wFile & " 撮影日時: " & wDate
Exit For
End If
Next
End With
End Sub
'-----------------------------------

次の様な「For-Next」で撮影日時を取得しています。
"D:\Test1\"配下の"D3001.JPG"がヒットするまでループする…廻りくどい。
【やりたい事】
For-Nextを使わない。フルパス「"D:\Test1\D3001.JPG"」を指定して撮影日時を取得するには、どの様にソースコードを書けばよいのか分かりません。サンプルコードを提示いただければ有難いのですが、
誰かご教授宜しくお願いいたします。
'-----------------------------------
Sub 撮影日時表示()
Const sFile = "D3001.JPG" '…ターゲットファイル
Dim wFile As Variant
D...続きを読む

Aベストアンサー

>撮影日付時刻の「日付」の表示に矛盾があります。
具体的にどう矛盾があるか提示していただけるとありがたかったのですが
当方がテストした Jpeg ファイルでは撮影したカメラで見られる日付と同じでした。

>yyyy:mm:dd hh:mm:ss ←年月日の区切りが":"で表示!?
年月日の区切りがコロンで表示される事がダメならば外付けで処理するのが一番です
少々長くなりますが VBA の改行がここでどう編集表示されるか判りませんので一行で書いて貼り付けます

MsgBox Mid(txtExifInfo, 1, 4) & "年" & Mid(txtExifInfo, 6, 2) & "月" & Mid(txtExifInfo, 9, 2) & "日" & Mid(txtExifInfo, 12, 2) & "時" & Mid(txtExifInfo, 15, 2) & "分" & Mid(txtExifInfo, 18, 2) & "秒"

>exifreaderにバグが有るのでしょうか、
バグでなく仕様と認識しています
使用者にとって exifreader 自体がブラックボックスですから、exifreader から提供されるデータはありがたく受け取って不満がある場合は使用者が対応するしかありません。

上手く使えば、使用したカメラの名前・露光時間・絞りの値・ISO感度・レンズの焦点距離等も取得できますが自己責任でどうぞ。

MsgBox objExif.Tag(Make) & " " & objExif.Tag(Model)
MsgBox objExif.Tag(ExposureTime)
MsgBox objExif.Tag(FNumber)
MsgBox objExif.Tag(ISOSpeedRatings)
MsgBox objExif.Tag(FocalLength)

>撮影日付時刻の「日付」の表示に矛盾があります。
具体的にどう矛盾があるか提示していただけるとありがたかったのですが
当方がテストした Jpeg ファイルでは撮影したカメラで見られる日付と同じでした。

>yyyy:mm:dd hh:mm:ss ←年月日の区切りが":"で表示!?
年月日の区切りがコロンで表示される事がダメならば外付けで処理するのが一番です
少々長くなりますが VBA の改行がここでどう編集表示されるか判りませんので一行で書いて貼り付けます

MsgBox Mid(txtExifInfo, 1, 4) & "年" & Mid(txtExifInfo, 6, 2...続きを読む

Qデジカメ画像へ撮影日付を挿入したい

やりたいことは下記の2点です。

(1)デジカメの画像に撮影日付を挿入したいです。
 実際、Jpeg画像に日付を挿入し、どのようなビューアで見ても
 日付が表示されるようにしたいです。

(2)ファイル名を撮影日時を利用して一括変更したいです。
 例)下記のように一括変換
 撮影日時 2005/1/1 15:32
 → 050101_1532_00.jpg

 最後の00はファイル名がダブった際に連番として使用したいです。
 (常に連番が増えるのではなく、ダブったときにだけ連番を増やしたい。)

同じソフトで上記の2つが対応していれば最高なのですが
別々のソフト or 方法でも結構です。

子供(孫)の写真を私の両親に送りたく少し急いでいます。
どうか有識者の方々お知恵拝借願います。

Aベストアンサー

私は使った事無いけど、、、

(1)JPEG Time Stamper
(2)JPEG Renamer

ともに、フリーウェアでこちらにあります。

トップページ
http://www002.upp.so-net.ne.jp/candynag/index.html
該当ページ
http://www002.upp.so-net.ne.jp/candynag/digicam/digicam.html

Qパソコンに取り込んだ写真に日付プリントは可能?

デジカメで撮影し、パソコンに取り込み、エクセル文書などにその写真を挿入した際、
写真に撮影日を表示(プリント)することは可能なのでしょうか?

業務で使用するのですが、撮影日を証明するために、写真に撮影日が表示されたらいいのにと思っているのですが、
お店で写真をプリントする場合は、日付プリントの有無を選択できるのですが、
パソコンで取り込む場合、どこで設定するのかわからず、日付表示が可能か否かすらわかりません。

どなたかアドバイスお願いします。

Aベストアンサー

取り込みソフトにその機能がある物があります。
私の使っているSONYの取り込みソフトPicture Motion Browserにはその機能があります。カメラを買ったときに付いていたソフトです。
取り込んだ後に一枚一枚加工しないといけないですが。
それと、カメラ側に最初から日付を焼き込んでおく機能があると思います。うちのカメラにはカメラにも日付を画像の中に焼く機能があります。
ですから、他の取り込みソフトやカメラにも同じような機能があると思いますよ。お使いのカメラや取り込みソフトのマニュアルを確認してみてください。

QVBAで、JPG写真の撮影日時を読み出す関数?

簡単に、指定Folderにある、*.JPGファイルの、
撮影日時を読みだす、VBA関数 or Excel関数をお教えて下さい。
(VBA初心者です)
下記の自作Codeは、見様見真似で書いたものです。
VBA関数:FileDateTime(パラメータ)で読みだした「日付時刻」は、
画像の「更新日時」でした。
**** お願 ***
Q1: 一行のCodoで、原画の「撮影日時」を読みす、関数・Codeを教えて下さい。
Q2: 関数が無ければ、それに代わる、Codeはどんなものが良いのでしょうか??
**** 自作Code ***
myFolder = "C:\Users\myName\ピクチャ\3000年JPG写真"
myJPG = Dir(myFolder & "\" & "*.jpg")
MsgBox ”読み出した日付時刻=” & FileDateTime(myFolder & "\" & myJPG)
以上 宜しくお願いいたします。

Aベストアンサー

JpegExifのクラスモジュールは問題ないです。
サイトの中でも動作確認してるでしょうし、自分のところでも動作しています。


> cdateTimeOriginal = " & cDateTimeOriginal ''機能せず???

その前のInitSetが失敗してるからです。
失敗の原因は、帰ってきた日付の値(1999年)からすると、指定したファイルが無いからです。


Dir関数使わずに、

MsgBox "MyDateTimeOriginal()=" & MyDateTimeOriginal("c:\_Temp\sample.jpg")

とか、分かりやすいフォルダやファイルを直接指定では。

Q複数の画像ファイルを挿入したい

工事の仕事をしています。
報告書をエクセルで書いて出すのですが、
現場の写真を大量に撮影して貼り付けなければなりません。

「挿入」→「ファイルから」で一枚一枚貼り付けているのですが手間でなりません。

デジカメで撮影した写真なのでファイル名は連番です。
一括でワークシートにズラッと並べて挿入することはできないのでしょうか?

週末1-200枚の写真を貼る為に残業するのは堪えます。
良い知恵をお貸し下さい。

Aベストアンサー

工事写真票の作成ですか?報告書の提出時期ですものね。(^^;)

工事写真ということで、次の点が重要になるかと思います。

1. 貼付けられる順番
  工事の様子を時間を追って撮影している場合、順番が重要です。
2. リサイズの問題
  工事写真は正確性が求められます。リサイズする場合、縦横比を固定すべきです。

1と2をクリアしつつ、貼付けを楽にするには、EXCELではマクロしか解決方法がありません。個人的にはVIXをお勧めしますが、一応EXCELでのマクロをアップします。貼付け後のサイズはセルの高さにあわせています。必要があれば、コードをカスタマイズして下さい。

ただ、他の方からもご指摘があるとおり、EXCELに200枚の画像は無茶ですね。複数のブックに切り分けましょう。

なお、マクロ[InsertPictures]は#2.papayukaさんのコードをかなり拝借しておりますし、配列のソートプログラムも以前どこかで教えて頂いたものです。クイックソートの方が早いのですが、長くなるので、バブルソートで済ませています。


以下コード。

Option Explicit
Sub InsertPictures()
  
  Dim fName As Variant
  Dim i As Long
  Dim Pict As Picture

  fName = Application.GetOpenFilename("JPGファイル, *.jpg", MultiSelect:=True)
  If IsArray(fName) Then
    Application.ScreenUpdating = False
    '配列に格納されたファイル名をソート
    BubbleSort fName, True
    For i = 1 To UBound(fName)
      Set Pict = ActiveSheet.Pictures.Insert(fName(i))
      With Pict
        .TopLeftCell = ActiveCell
        .ShapeRange.LockAspectRatio = msoTrue
        'どちらかをコメントアウト
        .ShapeRange.Height = ActiveCell.Height 'セルの高さリサイズ
        '.ShapeRange.Width = ActiveCell.Width 'セルの幅にリサイズ
        ActiveCell.Offset(0, 1) = fName(i) 'ファイル名書込み
      End With
      ActiveCell.Offset(2, 0).Activate
      Application.StatusBar = "処理中:" & i & "/" & UBound(fName) & "枚目"
    Next i
  End If
  With Application
    .StatusBar = False
    .ScreenUpdating = True
  End With
  Set Pict = Nothing
  MsgBox i & "枚の画像を挿入しました", vbInformation

End Sub

'値の入替え
Public Sub Swap(ByRef Dat1 As Variant, ByRef Dat2 As Variant)

  Dim varBuf As Variant
  varBuf = Dat1
  Dat1 = Dat2
  Dat2 = varBuf

End Sub

'配列のバブルソート
Public Sub BubbleSort(ByRef aryDat As Variant, _
  Optional ByVal SortAsc As Boolean = True)

  Dim i As Long
  Dim j As Long
  For i = LBound(aryDat) To UBound(aryDat) - 1
    For j = LBound(aryDat) To LBound(aryDat) + UBound(aryDat) - i - 1
      If aryDat(IIf(SortAsc, j, j + 1)) > aryDat(IIf(SortAsc, j + 1, j)) Then
        Call Swap(aryDat(j), aryDat(j + 1))
      End If
    Next j
  Next i

End Sub

工事写真票の作成ですか?報告書の提出時期ですものね。(^^;)

工事写真ということで、次の点が重要になるかと思います。

1. 貼付けられる順番
  工事の様子を時間を追って撮影している場合、順番が重要です。
2. リサイズの問題
  工事写真は正確性が求められます。リサイズする場合、縦横比を固定すべきです。

1と2をクリアしつつ、貼付けを楽にするには、EXCELではマクロしか解決方法がありません。個人的にはVIXをお勧めしますが、一応EXCELでのマクロをアップします。貼付け後のサイズはセ...続きを読む

Qデジカメ写真で日付を印刷したいのですが

お世話になります。

知人に聞かれたのですが、デジカメ写真の印刷をする時に日付も印刷したいそうです。

私はデジカメを使っていないので全くわからないので こちらで教えていただこうと思いました。

知人は最近パソコンを始めたばかりです。
フリーソフトの場合は私がダウンロードする予定です。

よろしくお願いします。

Aベストアンサー

> デジカメ写真の印刷をする時に日付も印刷したいそうです。

どういう機器またはアプリケーションを使って印刷するかによっても変わってきます。

プリンタでダイレクトプリントする場合は,あらかじめデジカメで日付ありの印刷にするように設定しておいたり,プリンタ側で設定できたりします。

Fujifilmなどのお店に依頼してプリントする場合は,撮影日付を入れるように設定すれば入れてくれます。

パソコンから印刷する場合は,使うアプリケーションによっては日付を入れるかどうか設定できるものもあります。設定の仕方はアプリケーションによって異なります。

自分でパソコンを使って,日付を入れるならこんなソフトもありますよ。
http://www002.upp.so-net.ne.jp/candynag/digicam/jstamper.html
注意点ですが,入れた日付は消せません(画像に一部になるから)ので,元の写真とは別名で保存することをオススメします。
それから,デジカメの画像は,縦横比(アスペクト比。縦が先ですが長い方の辺を縦と考える場合もありますので注意)が3:4です。L版やはがきサイズで印刷する場合,アスペクト比が異なりますので,用紙いっぱいに印刷しようとすると,縦か横のいずれかのデータを削るか,空白にしないとうまく入りません。そのため,せっかく入れた日付が印刷の範囲外になりうまく印刷できない場合もありますので,あらかじめアスペクト比が合うようにトリミングしておくか,印刷される範囲をあらかじめ見越して日付の位置を決めるようにする必要があるかもしれません。アスペクト比が異なる用紙に印刷する場合は,特に注意してください。

> デジカメ写真の印刷をする時に日付も印刷したいそうです。

どういう機器またはアプリケーションを使って印刷するかによっても変わってきます。

プリンタでダイレクトプリントする場合は,あらかじめデジカメで日付ありの印刷にするように設定しておいたり,プリンタ側で設定できたりします。

Fujifilmなどのお店に依頼してプリントする場合は,撮影日付を入れるように設定すれば入れてくれます。

パソコンから印刷する場合は,使うアプリケーションによっては日付を入れるかどうか設定できるものも...続きを読む

Qエクセルのマクロでデジカメの撮影日時を取得

エクセルのマクロを使って、デジカメで撮影した動画ファイルのファイル名を撮影日時に変更しようとしています。

FileDateTimeを使って、撮影日時を取得使用としているのですが、パナソニックのデジカメで撮影したQuickTimeのファイル(*.mov)は、デジカメからパソコンにデータを取り込んだ時間となってしまいます。

エクセルのマクロで、撮影日時を取得する方法はあるのでしょうか?

よろしくお願いします。

Aベストアンサー

>エクセルのマクロで、撮影日時を取得する方法はあるのでしょうか?
 「ファイル、フォルダの最終更新日時」を現わす [ModifyDate プロパティ]
http://homepage2.nifty.com/pasocon/shell/folderitem/modifydate.html
でもイケるかも知れませんが、動画編集などを行なった場合は不正になるかもしれませんので、取り敢えず、この辺りでググってみましょう。
http://www.google.co.jp/search?q=VBA+Exif+%E6%92%AE%E5%BD%B1%E6%97%A5


・・・ということで、ざっと以下のようなことで、いかがでしょうか?
 だたし、[ModifyDate プロパティ] の方は「秒」まで取れますが、
objFolder.GetDetailsOf(objFolder.ParseName(objMov), 12)
の方は、「秒」が表示されませんでした。

 また、私のパソコンには「mov」は皆無ですので「jpg」で試しましたから、「mov」で効くかどうかは不明です。


Sub Macro1()
  Dim objShell As Object
  Dim objFolder As Object
  Dim objRE As Object
  Dim objMov As Object
  Dim i As Integer
  Dim myDateTime As String

  Set objShell = CreateObject("Shell.Application")
  Set objFolder = objShell.BrowseForFolder(&H0, "フォルダを選択してください", &H211) ',"C:\")
  If objFolder Is Nothing Then GoTo 1
  Set objRE = CreateObject("VBScript.RegExp")

  For Each objMov In objFolder.Items
    If StrConv(Mid(objMov, InStrRev(objMov, ".") + 1), vbLowerCase) = "jpg" Then
      i = i + 1
      Cells(i, 1) = objMov.ModifyDate
      myDateTime = objFolder.GetDetailsOf(objFolder.ParseName(objMov), 12)
      With objRE
        .Global = True
        .Pattern = "[^0-9/: ]"
        Cells(i, 2) = .Replace(myDateTime, "")
      End With
    End If
  Next
  
  Set objRE = Nothing
  Set objFolder = Nothing
1:
  Set objShell = Nothing
End Sub


myDateTime = objFolder.GetDetailsOf(objFolder.ParseName(objMov), 12)
の最後の「12」につきましては、
http://oshiete.goo.ne.jp/qa/4736580.html#avatar_256973
に掲載された「GetDetailsOf で調べられる項目の列挙」を試して、「INDEX:=12 NAME:= 撮影日」みたいになるところの「INDEX」を入れてください。
 Vista・Windows7 は「12」で、それ以前は「25」のようですが、念のためご確認を。
#「For i = 0 To 1000」は「For i = 0 To 100」で十分です。

>エクセルのマクロで、撮影日時を取得する方法はあるのでしょうか?
 「ファイル、フォルダの最終更新日時」を現わす [ModifyDate プロパティ]
http://homepage2.nifty.com/pasocon/shell/folderitem/modifydate.html
でもイケるかも知れませんが、動画編集などを行なった場合は不正になるかもしれませんので、取り敢えず、この辺りでググってみましょう。
http://www.google.co.jp/search?q=VBA+Exif+%E6%92%AE%E5%BD%B1%E6%97%A5


・・・ということで、ざっと以下のようなことで、いかがでしょうか?
 だた...続きを読む

Qエクセルに写真の貼り付けが出来ません。

画像をコピーし、エクセルに貼り付けることが出来ません。(エクセル画面にすると貼り付けを選択することが出来ない状態)ワードでは同じ作業で貼り付けれるのですが、何かの設定がおかしいのでしょうか?
あと、ワードやエクセルに写真をコピーした時、画像が大きくてはみ出してしまうのですが、その大きさを前もって調製することはできるのでしょうか?
その方法を教えてください。宜しくお願いします。

Aベストアンサー

エクセルのバージョンがわかりませんがエクセル2007の場合、エクセルを起動して「挿入」>「図」>入れたい画像を選ぶ
で入れられました。

「コピー」ではなく、いったん画像をデスクトップやよく使うフォルダへ保存してから挿入してみてはどうでしょうか?

画像の大きさの変更ですが、エクセルに入れ前に大きさを変えたいということですので、フリーソフトなどでペイントソフトなどを探して、それで画像を加工してから上書き保存や別の名前を付けて保存して、それを挿入してみてはいかがでしょう?

http://www7.ocn.ne.jp/~otoku/free-s-gazousakusei.htm
ここに色々ソフトがあります。
ただ、新らしいソフトを使うということで、そのソフトの使い方になれる必要はあると思います。

Qエクセルに貼り付けた写真の画像を元のJPGファイルに戻すには?

デジカメで撮った写真をコピー→貼り付けでエクセルに画像で保存しましたが、逆に画像から元のJPGファイル形式で保存するにはどうしたらよいでしょうか。(元のデータを消去してしまったので)教えてください。

Aベストアンサー

#1、4さんの操作を少し詳しく書きます。

1) エクセルに貼り付けた写真を選択し、「コピー」ボタンを押します。

2) 質問者様のPCにインストールされている画像ソフトを起動します。

3) メニューバーの「編集」→「貼り付け」など(ソフトによって呼び名が少し違います)をクリックしますと写真が表示されます。

4) 「ファイル」→「名前を付けて保存」をクリックします。

5) 表示される画面で、「保存場所」を指定し、「ファイルの種類」ボックスで、「JPG」を指定し、更に、「ファイル名」ボックスに、お好きな名前を入力して「保存」ボタンを押します。

6) 指定した保存場所に、写真のファイルが保存されていることを確認します。

以上ですが、一度エクセルに貼り付けたために、解像度がかなり低くなっています。

元の写真に比べて、情報の量がかなり少なくなっているためです。

別の表現をしますと、写真が表示される面積は同じですが、密度が小さくなっていますので、印刷されますと、元の写真と比べ、ボケて感じると思います。

お使いのPCの型式、OSなどが明記されていませんので、どんな画像ソフトがインストールされているのか確定できませんが、

XPのカテゴリーなので、少なくとも「ペイント」と「MS Office Picture Manager」が使用できると思います。

#1、4さんの操作を少し詳しく書きます。

1) エクセルに貼り付けた写真を選択し、「コピー」ボタンを押します。

2) 質問者様のPCにインストールされている画像ソフトを起動します。

3) メニューバーの「編集」→「貼り付け」など(ソフトによって呼び名が少し違います)をクリックしますと写真が表示されます。

4) 「ファイル」→「名前を付けて保存」をクリックします。

5) 表示される画面で、「保存場所」を指定し、「ファイルの種類」ボックスで、「JPG」を指定し、更に、「ファイル名」ボック...続きを読む


人気Q&Aランキング