Excel VBA質問箱 IV

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

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


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

32999 / 76734

←次へ　｜　前へ→


	【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

2 hits

▼

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