エクセルの学校：全文検索：Hyper Estraier： VBA��

Results of 1 - 1 of about 14741 for VBA�� (0.003 sec.)

[[20180928102937]]: #score: 3407; @digest: 344a0496acbbbadf918eab8aa5d25736; @id: 77387; @mdate: 2018-09-28T09:41:04Z; @size: 4955; @type: text/plain; #keywords: prop (53053), gps (37733), 子sy (15497), 母sy (15497), wia (15022), 緯度 (14980), 南緯 (14536), 西経 (13266), 、gp (12619), 経度 (12562), 東経 (10781), 北緯 (10634), exif (9554), 分子 (6056), タグ (4517), 分母 (4015), system (3970), properties (3857), 数見 (2868), 名無 (2597), cw (2368), 情報 (2247), 写真 (2085), 答下 (2020), 公開 (1917), た先 (1239), ーデ (1184), ネッ (963), 2018 (830), 金) (723), の分 (695), のタ (690); 『写真のGPS情報をエクセルに表示したい』（neruneru）
エクセルを仕事で使い始めて1年のものです。通常の操作などは、授業で習ったこともあり一通り出来ます。今回教えて頂きたいことは、カメラ等で撮影したJPGファイルを、 PCに読み込みし、エクセルに貼り付けした際、別のセルに GPS情報を自動で表記する方法を教えて頂きたく、投稿致しました。ネットで調べてみたものの、関連する記事を見つけることが出来ませんでした。宜しければ、ご回答下さいますよう宜しくお願い致します。＜使用 Excel:Excel2016、使用 OS:Windows10 ＞ ---- JPGにGPS情報が格納されている部分のことをEXIF情報と呼びます。一応VBAでの読み込み事例がいくつかネット上に公開されているので試してみては如何でしょうか。例 http://www.btinc.jp/vba_labo/study1.html 補足しておくと、エクセルに貼り付け→VBAで貼り付け済みの写真のパスを取得→EXIF取得の流れは無理なので VBAでエクセルに写真貼り付け→EXIF取得とする必要があります。（名無し） 2018/09/28(金) 10:47 ---- ちんたら書いているうちに既に回答がついてますが、そのままアップします。「EXIF GPS VBA」でネット検索したら参考情報がヒットするかも。（カリーニン） 2018/09/28(金) 10:51 ---- 写真の貼り付けを行なうVBAについては、本サイトでも非常によく質問があるので、全文検索で「AddPicture」をキーワードに新しい順で参考にすると良いかと思います。（名無し） 2018/09/28(金) 10:58 ---- GPS情報って、かなり面倒な情報なのですよ。 VBAで画像からGPS情報を抜き出すライブラリ?が、数年前は有料で販売されていたくらい。 Excelを使い始めて1年との事ですが、プログラム経験はどれくらいありますか? Excelと同時程度なら、止めておいた方が無難と思います。（ネット上に殆ど情報が無いのは、とても難しいからだと思います） VBAだけで頑張るなら、名無しさんが紹介された先のようなコーディングが必要です。しかし、GPS情報部分は対応していないようだったので、そのままでは目的を果たせません。 GPSのタグへの対応を追加コーディングするか、いっそGDI++を使った方が楽かもしれませんが、それでも茨の道です。別案として、ファイルのプロパティを見ると、GPS情報が表示されますよね? こちらならもっと楽に実現できそうですが、GPS情報自体が複雑なため、素直に取り出せませんでした。ファイルのExtendedPropertyの内、以下を得られれば表示できそうかな?、とは思うのですが。 System.GPS.LatitudeDenominator 緯度の分母 System.GPS.LatitudeNumerator 緯度の分子 System.GPS.LatitudeRef N:北緯、S:南緯 System.GPS.LongitudeDenominator 経度の分母 System.GPS.LongitudeNumerator 経度の分子 System.GPS.LongitudeRef E:東経、W:西経緯度、経度って、12.34'56"78 みたいに表現しますよね。これが分母・分子それぞれ2要素になって格納されているようなのですが、変数代入がうまくできなかったので、私は諦めました。（回答にあまり時間かけたくないもので…）（???） 2018/09/28(金) 13:56 ---- すいません。先のHPにはGPS IFDタグを読み込む部分は記載されていなかったのですね。中には下記のような、かなり完成されたエクセルも公開されていましたが、私の所有している緯度経度付きJPGからは読み込めませんでしたが一応参考まで。 https://wisteriahill.sakura.ne.jp/CMS/WordPress/2016/09/01/jpg-exif-vba-google-maps/ WIAのPropertiesから取り出すサンプルも多数見つかりましたが、これも私の環境では読み込めませんでした。（名無し） 2018/09/28(金) 16:49 ---- 名無しさんの見つけた先を見てみると…、ほほぉ〜、Windows Image Acquisition (WIA) を使ってますね。どうやらこのオブジェクトだと、サブのタグも含めて、一緒に返してくるのですか。確かに、どちらも同じ形式ですが、混ぜてIDが重複しないのかな? まぁ、オブジェクト提供しているくらいだし、大丈夫なのでしょうね。これを利用し、GPS座標以外は無視して書いてみたのが以下になります。緯度、経度は何時何分が良いのか1つにまとめた方が良いのか判らなかったので、時分表記を残してみました。 Sub test() Dim WIA As Object Dim prop As Variant Dim cw As String Set WIA = CreateObject("Wia.ImageFile") WIA.LoadFile "c:¥tmp¥test.jpg" For Each prop In WIA.Properties Select Case prop.PropertyID Case 1 cw = cw & IIf(prop.Value = "N", "北緯", "南緯") Case 2 'cw = cw & prop.Value(1) + prop.Value(2) / 60 + prop.Value(3) / 3600 cw = cw & prop.Value(1) & "." & prop.Value(2) & "'" & Replace(prop.Value(3), ".", """") Case 3 cw = cw & vbLf & IIf(prop.Value = "E", "東経", "西経") Case 4 'cw = cw & prop.Value(1) + prop.Value(2) / 60 + prop.Value(3) / 3600 cw = cw & prop.Value(1) & "." & prop.Value(2) & "'" & Replace(prop.Value(3), ".", """") End Select Next prop Set WIA = Nothing If cw <> "" Then MsgBox cw, vbInformation Else MsgBox "GPS情報なし", vbCritical End If End Sub 本来なら、まず &H8825& のタグを探すと、これがGPS情報のオフセットなので、TIFFヘッダ位置にこれを足したアドレスを参照。するとここもタグ情報になっているので、この個数分ループし、GPS関係のタグIDと一致したなら、データ形式に応じてデータを取り出す、という手間がかかるのですが、WIA使うとすごく簡単になるんですねぇ。（???） 2018/09/28(金) 18:40 ...; https://www.excel.studio-kazu.jp/wiki/kazuwiki/201809/20180928102937.txt - [detail] - similar

PREV NEXT

訪問者：カウンタ