Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
5762 / 13646 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【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 -
引用なし
パスワード
   ↓これかな ?
ｈｔｔｐ://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 -
引用なし
パスワード
   デジカメなどからＰＣに取り込んだ画像ファイル
の場合、
ファイルを編集していない限り、
作成日時はメディアからＰＣに取り込んだ日時、
更新日時はファイルが作成された日時、つまり
撮影日時になる、と認識してましたが違うのかな？
【48950】Re:写真の撮影日時
発言  ぱっせんじゃー  - 07/5/17(木) 13:02 -
引用なし
パスワード
   参考ＨＰです。

ｈｔtp://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 さん

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

この貼り付けた写真の大きさを変えるには
どうすればいいですか？
【49037】Re:写真の撮影日時
発言  ぱっせんじゃー  - 07/5/21(月) 15:04 -
引用なし
パスワード
   マクロの自動記録はして見ましたか？
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
5762 / 13646 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free