Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


5761 / 13645 ツリー ←次へ | 前へ→

【48942】写真の撮影日時 はぜどん 07/5/17(木) 10:30 質問[未読]
【48943】Re:写真の撮影日時 Kein 07/5/17(木) 11:26 発言[未読]
【48944】Re:写真の撮影日時 ぱっせんじゃー 07/5/17(木) 11:35 発言[未読]
【48945】Re:写真の撮影日時 はぜどん 07/5/17(木) 11:40 発言[未読]
【48946】Re:写真の撮影日時 Kein 07/5/17(木) 11:48 発言[未読]
【48947】Re:写真の撮影日時 はぜどん 07/5/17(木) 12:39 発言[未読]
【48948】Re:写真の撮影日時 ぱっせんじゃー 07/5/17(木) 12:49 発言[未読]
【48949】Re:写真の撮影日時 ぱっせんじゃー 07/5/17(木) 12:59 発言[未読]
【48951】Re:写真の撮影日時 はぜどん 07/5/17(木) 13:10 発言[未読]
【48950】Re:写真の撮影日時 ぱっせんじゃー 07/5/17(木) 13:02 発言[未読]
【48956】Re:写真の撮影日時 はぜどん 07/5/17(木) 14:59 質問[未読]
【48957】Re:写真の撮影日時 ぱっせんじゃー 07/5/17(木) 15:31 発言[未読]
【48959】Re:写真の撮影日時 はぜどん 07/5/17(木) 15:58 質問[未読]
【48960】Re:写真の撮影日時 ぱっせんじゃー 07/5/17(木) 16:21 発言[未読]
【48961】Re:写真の撮影日時 Kein 07/5/17(木) 16:55 回答[未読]
【48976】Re:写真の撮影日時 はぜどん 07/5/18(金) 17:50 お礼[未読]
【49035】Re:写真の撮影日時 はぜどん 07/5/21(月) 14:57 質問[未読]
【49037】Re:写真の撮影日時 ぱっせんじゃー 07/5/21(月) 15:04 発言[未読]

【48942】写真の撮影日時
質問  はぜどん  - 07/5/17(木) 10:30 -

引用なし
パスワード
   お世話になっております。

早速質問させていただきます。
マクロで写真の貼付をしたときに
その写真の撮影日時をセルに入力させることは
できますでしょうか?

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

【48943】Re:写真の撮影日時
発言  Kein  - 07/5/17(木) 11:26 -

引用なし
パスワード
   ↓これかな ?
http://www.vector.co.jp/soft/win95/prog/se354566.html
説明を読むと有望ではありそうだけど、値段が高いね・・。

【48944】Re:写真の撮影日時
発言  ぱっせんじゃー  - 07/5/17(木) 11:35 -

引用なし
パスワード
   ファイルの更新日時ではだめですか?

【48945】Re:写真の撮影日時
発言  はぜどん  - 07/5/17(木) 11:40 -

引用なし
パスワード
   ▼ぱっせんじゃー さん

ファイルの更新日時でいいです。
よろしくお願いします。

【48946】Re:写真の撮影日時
発言  Kein  - 07/5/17(木) 11:48 -

引用なし
パスワード
   ならばVBAでは FiledateTime関数 で取得できます。
あと FSO で

Dim FSO As Object
Dim MyD As Date

Set FSO = CreateObject("Scripting.FileSystemObject")
MyD = FSO.GetFile(ファイルのパス).DateCreated

など。DateCreated は文字どうり「作成日時」なので
更新日時よりは撮影日時に近いでしょう。

【48947】Re:写真の撮影日時
発言  はぜどん  - 07/5/17(木) 12:39 -

引用なし
パスワード
   ▼Kein さん

申し訳ありませんが、FiledateTime関数 の
使い方を教えていただけませんか?
素人なもので…

【48948】Re:写真の撮影日時
発言  ぱっせんじゃー  - 07/5/17(木) 12:49 -

引用なし
パスワード
   VBAヘルプに載っていますよ。

【48949】Re:写真の撮影日時
発言  ぱっせんじゃー  - 07/5/17(木) 12:59 -

引用なし
パスワード
   デジカメなどからPCに取り込んだ画像ファイル
の場合、
ファイルを編集していない限り、
作成日時はメディアからPCに取り込んだ日時、
更新日時はファイルが作成された日時、つまり
撮影日時になる、と認識してましたが違うのかな?

【48950】Re:写真の撮影日時
発言  ぱっせんじゃー  - 07/5/17(木) 13:02 -

引用なし
パスワード
   参考HPです。

http://www.asahi-net.or.jp/~ef2o-inue/vba_o/sub05_110_110.html

【48951】Re:写真の撮影日時
発言  はぜどん  - 07/5/17(木) 13:10 -

引用なし
パスワード
   ▼ぱっせんじゃー さん

わたくしがきちんと理解していなかったようです。
ご迷惑おかけしてすみません。
ヘルプを参考にやってみます。

【48956】Re:写真の撮影日時
質問  はぜどん  - 07/5/17(木) 14:59 -

引用なし
パスワード
   Dim 日時 As Variant

Application.Dialogs(xlDialogInsertPicture).Show
On Error Resume Next
  
Selection.ShapeRange
日時 = FileDateTime(ShapeRange)
Range("H5") = 日時
Range("M5") = 日時 

End Sub


↑このようにしてみましたがセルH5にもM5にもなにも入りません。
H5には日付、M5には時間の表示設定がしてあります。

よろしくお願いします。

【48957】Re:写真の撮影日時
発言  ぱっせんじゃー  - 07/5/17(木) 15:31 -

引用なし
パスワード
   シェイプを参照してますよ?
画像ファイルをシートに取り込むときに、
画像ファイルのパスを取得しておきましょう。

【48959】Re:写真の撮影日時
質問  はぜどん  - 07/5/17(木) 15:58 -

引用なし
パスワード
   ▼ぱっせんじゃー さん:

どうすればいいのでしょうか?

【48960】Re:写真の撮影日時
発言  ぱっせんじゃー  - 07/5/17(木) 16:21 -

引用なし
パスワード
   >マクロで写真の貼付をしたときに

これのコードの提示がないのに、
どうすれば?といわれても・・・。

【48961】Re:写真の撮影日時
回答  Kein  - 07/5/17(木) 16:55 -

引用なし
パスワード
   概ね、こんな感じです。

Sub Ins_Picture()
  Dim MyPic As String
  Const SvFol As String = _
  "C:\Documents and Settings\User\My Documents\My Pictures"
  Const Pmt As String = _
  "画像ファイル(*.jpg;*.gif),*.jpg;*.gif"
 
  ChDir SvFol
  With Application
   MyPic = .GetOpenFilename(Pmt)
   If MyPic <> "False" Then
     ActiveSheet.Pictures.Insert MyPic
     MsgBox "更新日 : " & DateValue(FileDateTime(MyPic))
   End If
   ChDir .DefaultFilePath
  End With
End Sub

【48976】Re:写真の撮影日時
お礼  はぜどん  - 07/5/18(金) 17:50 -

引用なし
パスワード
   ▼Kein さん:

ありがとうございました。
まだ完成してないのですが、時間がかかりそうなので
取り急ぎお礼まで。

【49035】Re:写真の撮影日時
質問  はぜどん  - 07/5/21(月) 14:57 -

引用なし
パスワード
   ▼Kein さん

すみません。もう1つ教えてください。

この貼り付けた写真の大きさを変えるには
どうすればいいですか?

【49037】Re:写真の撮影日時
発言  ぱっせんじゃー  - 07/5/21(月) 15:04 -

引用なし
パスワード
   マクロの自動記録はして見ましたか?

5761 / 13645 ツリー ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free