{"id":11524,"date":"2019-05-15T15:00:26","date_gmt":"2019-05-15T06:00:26","guid":{"rendered":"https:\/\/www.ka-net.org\/blog\/?p=11524"},"modified":"2019-05-15T16:54:46","modified_gmt":"2019-05-15T07:54:46","slug":"jpeg%e7%94%bb%e5%83%8f%e3%81%ae%e5%9b%9e%e8%bb%a2%e6%83%85%e5%a0%b1%e3%82%92%e5%a4%89%e6%9b%b4%e3%81%99%e3%82%8bvba%e3%83%9e%e3%82%af%e3%83%ad","status":"publish","type":"post","link":"https:\/\/www.ka-net.org\/blog\/?p=11524","title":{"rendered":"JPEG\u753b\u50cf\u306e\u56de\u8ee2\u60c5\u5831\u3092\u5909\u66f4\u3059\u308bVBA\u30de\u30af\u30ed"},"content":{"rendered":"<p><a href=\"https:\/\/www.moug.net\/\" title=\"Excel VBA \u3092\u5b66\u3076\u306a\u3089 moug \u30e2\u30fc\u30b0\" target=\"_blank\" rel=\"noopener noreferrer\">moug<\/a>\u306b<i>\u300c\u30de\u30af\u30ed\u3067JPEG\u753b\u50cf\u306eExif(Orientation)\u3092\u66f8\u304d\u63db\u3048\u305f\u3044\u300d<\/i>\u3068\u3044\u3046\u8cea\u554f(<a href=\"https:\/\/www.moug.net\/faq\/viewtopic.php?t=78227\" title=\"Excel VBA \u3092\u5b66\u3076\u306a\u3089 moug \u30e2\u30fc\u30b0\uff5cExcel \uff08VBA\uff09\uff5cjpeg\u306eExif\u60c5\u5831\u306e\u66f8\u304d\u63db\u3048\" target=\"_blank\" rel=\"noopener noreferrer\">https:\/\/www.moug.net\/faq\/viewtopic.php?t=78227<\/a>)\u304c\u3042\u308a\u307e\u3057\u305f\u3002<\/p>\n<p>\u6a19\u6e96\u6a5f\u80fd\u3067\u306f\u51e6\u7406\u3067\u304d\u306a\u3055\u305d\u3046\u3060\u3063\u305f\u306e\u3067\u3001\u8efd\u3044\u6c17\u6301\u3061\u3067Exif\u306e\u56de\u8ee2\u60c5\u5831\u306b\u3064\u3044\u3066\u8abf\u3079\u3066\u307f\u307e\u3057\u305f\u304c\u3001\u5373\u65ad\u5ff5\u3002<\/p>\n<ul>\n<li>JPEG\u30d5\u30a1\u30a4\u30eb\u306e\u30d0\u30a4\u30ca\u30ea\u304b\u3089Exif\u304c\u8aad\u3081\u308b\u3088\u3046\u306b\u306a\u308b\u307e\u3067\u306b\u898b\u305f\u30b5\u30a4\u30c8<\/li>\n<li style=\"list-style-type:none;\"><a href=\"http:\/\/ryu-htn.hatenablog.com\/entry\/2017\/11\/30\/024820\" target=\"_blank\" title=\"JPEG\u30d5\u30a1\u30a4\u30eb\u306e\u30d0\u30a4\u30ca\u30ea\u304b\u3089Exif\u304c\u8aad\u3081\u308b\u3088\u3046\u306b\u306a\u308b\u307e\u3067\u306b\u898b\u305f\u30b5\u30a4\u30c8\" rel=\"noopener noreferrer\">http:\/\/ryu-htn.hatenablog.com\/entry\/2017\/11\/30\/024820<\/a><\/li>\n<li>iPhone\u304b\u3089\u30a2\u30c3\u30d7\u30ed\u30fc\u30c9\u3057\u305fJPEG\u5199\u771f\u304c\u6a2a\u5411\u304d\u306b\u306a\u308b\u554f\u984c(EXIF, Orientation) &#8211; Qiita<\/li>\n<li style=\"list-style-type:none;\"><a href=\"https:\/\/qiita.com\/RichardImaokaJP\/items\/385beb77eb39243e50a6\" target=\"_blank\" title=\"iPhone\u304b\u3089\u30a2\u30c3\u30d7\u30ed\u30fc\u30c9\u3057\u305fJPEG\u5199\u771f\u304c\u6a2a\u5411\u304d\u306b\u306a\u308b\u554f\u984c(EXIF, Orientation) - Qiita\" rel=\"noopener noreferrer\">https:\/\/qiita.com\/RichardImaokaJP\/items\/385beb77eb39243e50a6<\/a><\/li>\n<li>Exif\u306e\u56de\u8ee2\u60c5\u5831\u3092\u30d4\u30af\u30bb\u30eb\u60c5\u5831\u306b\u53cd\u6620\u3059\u308b &#8211; Qiita<\/li>\n<li style=\"list-style-type:none;\"><a href=\"https:\/\/qiita.com\/minodisk\/items\/b7bab1b3f351f72d534b\" target=\"_blank\" title=\"Exif\u306e\u56de\u8ee2\u60c5\u5831\u3092\u30d4\u30af\u30bb\u30eb\u60c5\u5831\u306b\u53cd\u6620\u3059\u308b - Qiita\" rel=\"noopener noreferrer\">https:\/\/qiita.com\/minodisk\/items\/b7bab1b3f351f72d534b<\/a><\/li>\n<li>JPEG\u753b\u50cf\u306eEXIF\u60c5\u5831\u3092\u4fee\u6b63\u3057\u3066\u5199\u771f\u306e\u8868\u793a\u306e\u5411\u304d\u3092\u76f4\u3059<\/li>\n<li style=\"list-style-type:none;\"><a href=\"https:\/\/at.sachi-web.com\/blog-entry-804.html\" target=\"_blank\" title=\"JPEG\u753b\u50cf\u306eEXIF\u60c5\u5831\u3092\u4fee\u6b63\u3057\u3066\u5199\u771f\u306e\u8868\u793a\u306e\u5411\u304d\u3092\u76f4\u3059\" rel=\"noopener noreferrer\">https:\/\/at.sachi-web.com\/blog-entry-804.html<\/a><\/li>\n<\/ul>\n<p>\u30ea\u30f3\u30af\u3092\u8fbf\u3063\u3066<a href=\"http:\/\/dsas.blog.klab.org\/archives\/52123322.html\" title=\"DSAS\u958b\u767a\u8005\u306e\u90e8\u5c4b:Exif \u30c7\u30fc\u30bf\u306b\u30a2\u30af\u30bb\u30b9\u3059\u308b\u30b3\u30fc\u30c9\u3092\u81ea\u4f5c\u3057\u3066\u307f\u308b\" target=\"_blank\" rel=\"noopener noreferrer\">\u3053\u306e\u30b5\u30a4\u30c8<\/a>\u3068\u304b\u898b\u3066\u307f\u307e\u3057\u305f\u304c\u3001\u3053\u308c\u306f\u7121\u7406\u3002<br \/>\n\u30d0\u30a4\u30ca\u30ea\u304b\u3089\u653b\u3081\u308b\u306e\u306f\u65e9\u3005\u306b\u8ae6\u3081\u307e\u3059\u3002<\/p>\n<p>.Net\u3060\u3068<a href=\"https:\/\/docs.microsoft.com\/ja-jp\/dotnet\/api\/system.drawing.imaging.encoder.transformation\" title=\"Encoder.Transformation Field (System.Drawing.Imaging) | Microsoft Docs\" target=\"_blank\" rel=\"noopener noreferrer\">Encoder.Transformation<\/a>\u3067\u6bd4\u8f03\u7684\u7c21\u5358\u306b\u5909\u66f4\u3067\u304d\u308b\u3088\u3046\u3067\u3059\u304c(\u300c<a href=\"https:\/\/smdn.jp\/programming\/netfx\/tips\/rotate_image_by_exif_info\/\" title=\"EXIF\u306e\u60c5\u5831\u306b\u57fa\u3065\u3044\u3066\u753b\u50cf\u3092\u56de\u8ee2\u3059\u308b - Programming\/.NET Framework\/Tips - \u7dcf\u6b66\u30bd\u30d5\u30c8\u30a6\u30a7\u30a2\u63a8\u9032\u6240\" target=\"_blank\" rel=\"noopener noreferrer\">EXIF\u306e\u60c5\u5831\u306b\u57fa\u3065\u3044\u3066\u753b\u50cf\u3092\u56de\u8ee2\u3059\u308b<\/a>\u300d\u53c2\u8003)\u3001\u753b\u50cf\u306e\u518d\u4fdd\u5b58\u3068\u306a\u308b\u306e\u3067\u753b\u8cea\u7684\u306b\u306f\u3042\u307e\u308a\u597d\u307e\u3057\u304f\u3042\u308a\u307e\u305b\u3093\u3002<\/p>\n<p>\u300c<a href=\"http:\/\/www.ryouto.jp\/f6exif\/\" title=\"F6 Exif \uff5eEXIF\u7de8\u96c6\u30bd\u30d5\u30c8\uff5e\" target=\"_blank\" rel=\"noopener noreferrer\">F6 Exif<\/a>\u300d\u306e\u3088\u3046\u306aExif\u306e\u7de8\u96c6\u30c4\u30fc\u30eb\u3092\u4f7f\u3048\u3070\u3001\u753b\u8cea\u3092\u640d\u306a\u3046\u3053\u3068\u306a\u304f\u56de\u8ee2\u60c5\u5831\u3092\u5909\u66f4\u3067\u304d\u307e\u3059\u304c\u3001\u305d\u308c\u3060\u3068\u3082\u306f\u3084\u30de\u30af\u30ed\u3092\u4f7f\u3046\u5fc5\u8981\u3059\u3089\u306a\u304f\u306a\u3063\u3066\u3057\u307e\u3044\u307e\u3059\u3002<\/p>\n<p>\u3068\u3044\u3046\u308f\u3051\u3067\u3001\u5225\u306e\u65b9\u5411\u304b\u3089\u306e\u30a2\u30d7\u30ed\u30fc\u30c1\u3068\u3057\u3066\u3001\u30a8\u30af\u30b9\u30d7\u30ed\u30fc\u30e9\u30fc\u306e\u300c\u5411\u304d\u300d\u60c5\u5831\u3092\u5909\u66f4\u3059\u308b\u65b9\u6cd5\u3092\u8abf\u3079\u3066\u307f\u305f\u3068\u3053\u308d\u3001Windows Vista\u4ee5\u964d\u3067\u3042\u308c\u3070\u3001<a href=\"https:\/\/docs.microsoft.com\/en-us\/windows\/desktop\/api\/propsys\/nn-propsys-ipropertystore\" title=\"IPropertyStore (propsys.h) | Microsoft Docs\" target=\"_blank\" rel=\"noopener noreferrer\">IPropertyStore<\/a>\u7d4c\u7531\u3067\u4f55\u3068\u304b\u3067\u304d\u305d\u3046\u306a\u3053\u3068\u304c\u5206\u304b\u308a\u307e\u3057\u305f\u3002<br \/>\n(\u30a8\u30af\u30b9\u30d7\u30ed\u30fc\u30e9\u30fc\u306e\u300c\u5411\u304d\u300d\uff1dExif\u306eOrientation\u3001\u306a\u306e\u304b\u3069\u3046\u304b\u306f\u672a\u78ba\u8a8d\u3067\u3059\u304c\u3001\u3053\u306e\u969b\u7f6e\u3044\u3066\u304a\u304d\u307e\u3059\u3002)<\/p>\n<p>\u3068\u306f\u3044\u3048\u3001VBA\u304b\u3089\u306e\u51e6\u7406\u306f\u3069\u3046\u8003\u3048\u3066\u3082\u30ad\u30c4\u305d\u3046\u3067\u3059\u30fb\u30fb\u30fb\u3002<\/p>\n<ul>\n<li>C# Jpeg\u306e\u4ef6\u540d\u3068\u30b3\u30e1\u30f3\u30c8\u3092\u7de8\u96c6\u3057\u3066\u3001\u30a8\u30af\u30b9\u30d7\u30ed\u30fc\u30e9\u3067\u78ba\u8a8d\u3067\u304d\u308b\u3088\u3046\u306b\u66f8\u304d\u63db\u3048\u305f\u3044 &#8211; \u30b9\u30bf\u30c3\u30af\u30fb\u30aa\u30fc\u30d0\u30fc\u30d5\u30ed\u30fc<\/li>\n<li style=\"list-style-type:none;\"><a href=\"https:\/\/ja.stackoverflow.com\/questions\/17098\/\" target=\"_blank\" title=\"C# Jpeg\u306e\u4ef6\u540d\u3068\u30b3\u30e1\u30f3\u30c8\u3092\u7de8\u96c6\u3057\u3066\u3001\u30a8\u30af\u30b9\u30d7\u30ed\u30fc\u30e9\u3067\u78ba\u8a8d\u3067\u304d\u308b\u3088\u3046\u306b\u66f8\u304d\u63db\u3048\u305f\u3044 - \u30b9\u30bf\u30c3\u30af\u30fb\u30aa\u30fc\u30d0\u30fc\u30d5\u30ed\u30fc\" rel=\"noopener noreferrer\">https:\/\/ja.stackoverflow.com\/questions\/17098\/<\/a><\/li>\n<li>\u30d5\u30a1\u30a4\u30eb\u306e\u5c5e\u6027\u306e\u5909\u66f4\u306b\u3064\u3044\u3066<\/li>\n<li style=\"list-style-type:none;\"><a href=\"https:\/\/social.msdn.microsoft.com\/Forums\/ja-JP\/csharpgeneralja\/thread\/bfe35aef-583e-4a53-a74e-cb880ea69f4d\" target=\"_blank\" title=\"\u30d5\u30a1\u30a4\u30eb\u306e\u5c5e\u6027\u306e\u5909\u66f4\u306b\u3064\u3044\u3066\" rel=\"noopener noreferrer\">https:\/\/social.msdn.microsoft.com\/Forums\/ja-JP\/csharpgeneralja\/thread\/bfe35aef-583e-4a53-a74e-cb880ea69f4d<\/a><\/li>\n<li>Windows7\u306b\u304a\u3051\u308b\u4f5c\u6210\u65e5\u6642\u306e\u5909\u66f4\u65b9\u6cd5\u306b\u3064\u3044\u3066<\/li>\n<li style=\"list-style-type:none;\"><a href=\"https:\/\/social.msdn.microsoft.com\/Forums\/ja-JP\/vcgeneralja\/thread\/1717ff79-11ae-4aa4-b793-0720de003484\" target=\"_blank\" title=\"Windows7\u306b\u304a\u3051\u308b\u4f5c\u6210\u65e5\u6642\u306e\u5909\u66f4\u65b9\u6cd5\u306b\u3064\u3044\u3066\" rel=\"noopener noreferrer\">https:\/\/social.msdn.microsoft.com\/Forums\/ja-JP\/vcgeneralja\/thread\/1717ff79-11ae-4aa4-b793-0720de003484<\/a><\/li>\n<li>\u300cC# \u753b\u50cf\u30d5\u30a1\u30a4\u30eb\u306e\u30d7\u30ed\u30d1\u30c6\u30a3\u60c5\u5831(Vista)\u300d\uff081\uff09 Insider.NET \uff0d \uff20IT<\/li>\n<li style=\"list-style-type:none;\"><a href=\"https:\/\/www.atmarkit.co.jp\/bbs\/phpBB\/viewtopic.php?topic=41344&#038;forum=7\" target=\"_blank\" title=\"\u300cC# \u753b\u50cf\u30d5\u30a1\u30a4\u30eb\u306e\u30d7\u30ed\u30d1\u30c6\u30a3\u60c5\u5831(Vista)\u300d\uff081\uff09 Insider.NET \uff0d \uff20IT\" rel=\"noopener noreferrer\">https:\/\/www.atmarkit.co.jp\/bbs\/phpBB\/viewtopic.php?topic=41344&#038;forum=7<\/a><\/li>\n<\/ul>\n<p>\u305d\u3053\u3067\u3055\u3089\u306b\u30b0\u30b0\u3063\u305f\u3068\u3053\u308d\u3001\u6d77\u5916\u306e\u30d5\u30a9\u30fc\u30e9\u30e0\u3067<a href=\"http:\/\/www.vbforums.com\/showthread.php?786079-VB6-Modern-Shell-Interface-Type-Library-oleexp-tlb\" title=\"[VB6] Modern Shell Interface Type Library - oleexp.tlb-VBForums\" target=\"_blank\" rel=\"noopener noreferrer\">\u30bf\u30a4\u30d7\u30e9\u30a4\u30d6\u30e9\u30ea<\/a>(oleexp.tlb)\u3092\u4f5c\u3063\u3066\u304f\u3060\u3055\u3063\u3066\u3044\u308b\u65b9\u3092\u898b\u3064\u3051\u307e\u3057\u305f\u3002<\/p>\n<p>\u826f\u3055\u3052\u306a<a href=\"http:\/\/www.vbforums.com\/showthread.php?803855-Vista-Code-Snippet-Get-and-set-the-Rating-(stars)-of-a-file\" title=\"[Vista+] Code Snippet: Get and set the Rating (stars) of a file-VBForums\" target=\"_blank\" rel=\"noopener noreferrer\">\u30b5\u30f3\u30d7\u30eb\u30b3\u30fc\u30c9<\/a>\u3082\u3042\u308b\u3057\u3001\u3082\u3046\u3053\u308c\u3067\u826f\u3044\u3058\u3083\u3093\uff01<br \/>\n\u30b5\u30f3\u30ad\u30e5\u30fc\uff01VBForums\uff01\uff01<\/p>\n<p>\u3068\u3044\u3046\u308f\u3051\u3067\u3001\u4ee5\u4e0b\u30b3\u30fc\u30c9\u3067\u3059\u3002<\/p>\n<pre class=\"brush: vb; title: ; notranslate\" title=\"\">'oleexp.tlb\u8981\u53c2\u7167\r\n' http:\/\/www.vbforums.com\/showthread.php?786079-VB6-Modern-Shell-Interface-Type-Library-oleexp-tlb#dloleexp\r\n'\u4e0b\u8a18\u30b3\u30fc\u30c9\u53c2\u8003\r\n' http:\/\/www.vbforums.com\/showthread.php?803855-Vista-Code-Snippet-Get-and-set-the-Rating-(stars)-of-a-file\r\nOption Explicit\r\n\r\nPrivate Declare Function ILCreateFromPathW Lib &quot;shell32&quot; (ByVal pwszPath As Long) As Long\r\nPrivate Declare Function SHCreateItemFromIDList Lib &quot;shell32&quot; (ByVal pidl As Long, riid As UUID, ppv As Any) As Long\r\nPrivate Declare Sub ILFree Lib &quot;shell32&quot; (ByVal pidl As Long)\r\n\r\n'System.Photo.Orientation\r\n' https:\/\/docs.microsoft.com\/en-us\/windows\/desktop\/properties\/props-system-photo-orientation\r\nPublic Enum PKEY_Photo_Orientation\r\n  PHOTO_ORIENTATION_NORMAL = 1         '\u6a19\u6e96(Normal)\r\n  PHOTO_ORIENTATION_FLIPHORIZONTAL = 2 '\u5de6\u53f3\u53cd\u8ee2(Flip horizontal)\r\n  PHOTO_ORIENTATION_ROTATE180 = 3      '180\u5ea6\u56de\u8ee2(Rotate 180 degrees)\r\n  PHOTO_ORIENTATION_FLIPVERTICAL = 4   '\u4e0a\u4e0b\u53cd\u8ee2(Flip vertical)\r\n  PHOTO_ORIENTATION_TRANSPOSE = 5      '\u8ee2\u7f6e(Transpose)\r\n  PHOTO_ORIENTATION_ROTATE270 = 6      '270\u5ea6\u56de\u8ee2(Rotate 270 degrees)\r\n  PHOTO_ORIENTATION_TRANSVERSE = 7     '\u6a2a\u7f6e\u304d(Transverse)\r\n  PHOTO_ORIENTATION_ROTATE90 = 8       '90\u5ea6\u56de\u8ee2(Rotate 90 degrees)\r\nEnd Enum\r\n\r\nPublic Sub Sample()\r\n  Dim img As String: img = &quot;C:\\Test\\Picture\\kuma.jpg&quot;\r\n  \r\n  With CreateObject(&quot;Scripting.FileSystemObject&quot;)\r\n    Select Case LCase(.GetExtensionName(img))\r\n      Case &quot;jpg&quot;, &quot;jpeg&quot;\r\n      Case Else: Exit Sub\r\n    End Select\r\n  End With\r\n  SetFileOrientation img, PHOTO_ORIENTATION_FLIPVERTICAL\r\nEnd Sub\r\n\r\nPublic Function SetFileOrientation(ByVal sFile As String, ByVal lRotation As PKEY_Photo_Orientation) As Long\r\n  Dim vvar As Variant\r\n  Dim isi As IShellItem2\r\n  Dim pidlFile As Long\r\n  Dim pps As IPropertyStore\r\n  Dim hr As Long\r\n  Dim pkOrientation As PROPERTYKEY '{14B81DA1-0135-4D31-96D9-6CBFC9671A99}, 274\r\n  \r\n  DEFINE_PROPERTYKEY pkOrientation, &amp;H14B81DA1, CInt(&amp;H135), CInt(&amp;H4D31), &amp;H96, &amp;HD9, &amp;H6C, &amp;HBF, &amp;HC9, &amp;H67, &amp;H1A, &amp;H99, 274\r\n  \r\n  vvar = CVar(lRotation)\r\n  pidlFile = ILCreateFromPathW(StrPtr(sFile))\r\n  Call SHCreateItemFromIDList(pidlFile, IID_IShellItem2, isi)\r\n  \r\n  isi.GetPropertyStore GPS_READWRITE, IID_IPropertyStore, pps\r\n  hr = pps.SetValue(pkOrientation, vvar) 'returns S_OK if successful\r\n  If hr = 0 Then hr = pps.Commit 'save the changes; returns S_OK if successful\r\n  \r\n  Set pps = Nothing\r\n  Set isi = Nothing\r\n  Call ILFree(pidlFile) 'always set your pidl free!\r\n  \r\n  SetFileOrientation = hr\r\nEnd Function\r\n\r\nPublic Sub DEFINE_PROPERTYKEY(Name As PROPERTYKEY, L As Long, w1 As Integer, w2 As Integer, B0 As Byte, b1 As Byte, b2 As Byte, B3 As Byte, b4 As Byte, b5 As Byte, b6 As Byte, b7 As Byte, pid As Long)\r\n  With Name.fmtid\r\n    .Data1 = L\r\n    .Data2 = w1\r\n    .Data3 = w2\r\n    .Data4(0) = B0\r\n    .Data4(1) = b1\r\n    .Data4(2) = b2\r\n    .Data4(3) = B3\r\n    .Data4(4) = b4\r\n    .Data4(5) = b5\r\n    .Data4(6) = b6\r\n    .Data4(7) = b7\r\n  End With\r\n  Name.pid = pid\r\nEnd Sub\r\n\r\nPublic Sub DEFINE_UUID(Name As UUID, L As Long, w1 As Integer, w2 As Integer, B0 As Byte, b1 As Byte, b2 As Byte, B3 As Byte, b4 As Byte, b5 As Byte, b6 As Byte, b7 As Byte)\r\n  With Name\r\n    .Data1 = L\r\n    .Data2 = w1\r\n    .Data3 = w2\r\n    .Data4(0) = B0\r\n    .Data4(1) = b1\r\n    .Data4(2) = b2\r\n    .Data4(3) = B3\r\n    .Data4(4) = b4\r\n    .Data4(5) = b5\r\n    .Data4(6) = b6\r\n    .Data4(7) = b7\r\n  End With\r\nEnd Sub\r\n\r\nPublic Function IID_IShellItem2() As UUID\r\n'7e9fb0d3-919f-4307-ab2e-9b1860310c93\r\n  Static iid As UUID\r\n\r\n  If (iid.Data1 = 0) Then Call DEFINE_UUID(iid, &amp;H7E9FB0D3, CInt(&amp;H919F), CInt(&amp;H4307), &amp;HAB, &amp;H2E, &amp;H9B, &amp;H18, &amp;H60, &amp;H31, &amp;HC, &amp;H93)\r\n  IID_IShellItem2 = iid\r\nEnd Function\r\n\r\nPublic Function IID_IPropertyStore() As UUID\r\n'DEFINE_GUID(IID_IPropertyStore,0x886d8eeb, 0x8cf2, 0x4446, 0x8d,0x02,0xcd,0xba,0x1d,0xbd,0xcf,0x99);\r\n  Static iid As UUID\r\n\r\n  If (iid.Data1 = 0) Then Call DEFINE_UUID(iid, &amp;H886D8EEB, CInt(&amp;H8CF2), CInt(&amp;H4446), &amp;H8D, &amp;H2, &amp;HCD, &amp;HBA, &amp;H1D, &amp;HBD, &amp;HCF, &amp;H99)\r\n  IID_IPropertyStore = iid\r\nEnd Function<\/pre>\n<p><a href=\"http:\/\/www.vbforums.com\/showthread.php?786079-VB6-Modern-Shell-Interface-Type-Library-oleexp-tlb#dloleexp\" title=\"[VB6] Modern Shell Interface Type Library - oleexp.tlb-VBForums\" target=\"_blank\" rel=\"noopener noreferrer\">oleexp.tlb<\/a>\u3092\u30c0\u30a6\u30f3\u30ed\u30fc\u30c9\u3057\u3066\u53c2\u7167\u3059\u308b\u5fc5\u8981\u304c\u3042\u308a\u307e\u3059\u304c\u3001\u304a\u304b\u3052\u3055\u307e\u3067\u601d\u3063\u305f\u3088\u308a\u77ed\u3044\u30b3\u30fc\u30c9\u306b\u306a\u308a\u307e\u3057\u305f\u3002<\/p>\n<p><a href=\"https:\/\/www.ka-net.org\/blog\/wp-content\/uploads\/SetFileOrientation_01.jpg\"><img loading=\"lazy\" decoding=\"async\" src=\"https:\/\/www.ka-net.org\/blog\/wp-content\/uploads\/SetFileOrientation_01-300x115.jpg\" alt=\"\" width=\"300\" height=\"115\" class=\"alignnone size-medium wp-image-11525\" srcset=\"https:\/\/www.ka-net.org\/blog\/wp-content\/uploads\/SetFileOrientation_01-300x115.jpg 300w, https:\/\/www.ka-net.org\/blog\/wp-content\/uploads\/SetFileOrientation_01-768x294.jpg 768w, https:\/\/www.ka-net.org\/blog\/wp-content\/uploads\/SetFileOrientation_01-1024x392.jpg 1024w, https:\/\/www.ka-net.org\/blog\/wp-content\/uploads\/SetFileOrientation_01.jpg 1738w\" sizes=\"auto, (max-width: 300px) 100vw, 300px\" \/><\/a><\/p>\n<p>\u3057\u304b\u3057\u306a\u304c\u3089\u300coleexp.tlb\u300d\u306f\u3059\u3054\u3044\uff01<br \/>\n\u3069\u308c\u3060\u3051\u306e<a href=\"http:\/\/www.vbforums.com\/showthread.php?786079-VB6-Modern-Shell-Interface-Type-Library-oleexp-tlb#newifaces\" title=\"[VB6] Modern Shell Interface Type Library - oleexp.tlb-VBForums\" target=\"_blank\" rel=\"noopener noreferrer\">\u30a4\u30f3\u30bf\u30fc\u30d5\u30a7\u30fc\u30b9<\/a>\u3092\u30b5\u30dd\u30fc\u30c8\u3057\u3066\u308b\u3093\u3060\uff01\uff1f\u30b3\u30ec\u3002<\/p>\n<div id=\"single_banner_area2\" class=\"clearfix one_banner\">\n<div class=\"single_banner single_banner_left\">\n<script async src=\"https:\/\/pagead2.googlesyndication.com\/pagead\/js\/adsbygoogle.js\"><\/script>\r\n<!-- \u8a18\u4e8b\u4e2d(\u30c7\u30a3\u30b9\u30d7\u30ec\u30a4\u5e83\u544a\u30e6\u30cb\u30c3\u30c8) -->\r\n<ins class=\"adsbygoogle\"\r\n     style=\"display:block\"\r\n     data-ad-client=\"ca-pub-7306936664602087\"\r\n     data-ad-slot=\"5429724765\"\r\n     data-ad-format=\"auto\"\r\n     data-full-width-responsive=\"true\"><\/ins>\r\n<script>\r\n     (adsbygoogle = window.adsbygoogle || []).push({});\r\n<\/script>\n<\/div>\n<div class=\"single_banner single_banner_right\">\n<a href=\"\" target=\"_blank\"><img decoding=\"async\" src=\"\" alt=\"\" title=\"\" \/><\/a>\n<\/div>\n<\/div>\n\n","protected":false},"excerpt":{"rendered":"moug\u306b\u300c\u30de\u30af\u30ed\u3067JPEG\u753b\u50cf\u306eExif(Orientation)\u3092\u66f8\u304d\u63db\u3048\u305f\u3044\u300d\u3068\u3044\u3046\u8cea\u554f(https:\/\/www.moug.net\/faq\/viewtopic.php?t=78227)\u304c\u3042\u308a\u307e\u3057\u305f\u3002 \u6a19\u6e96\u6a5f\u80fd\u3067\u306f\u51e6 [&hellip;]","protected":false},"author":1,"featured_media":7120,"comment_status":"open","ping_status":"closed","sticky":false,"template":"","format":"standard","meta":{"_jetpack_memberships_contains_paid_content":false,"footnotes":"","jetpack_publicize_message":"[JPEG\u753b\u50cf\u306e\u56de\u8ee2\u60c5\u5831\u3092\u5909\u66f4\u3059\u308bVBA\u30de\u30af\u30ed]","jetpack_publicize_feature_enabled":true,"jetpack_social_post_already_shared":true,"jetpack_social_options":{"image_generator_settings":{"template":"highway","default_image_id":0,"font":"","enabled":false},"version":2}},"categories":[4,48,49,58],"tags":[],"class_list":["post-11524","post","type-post","status-publish","format-standard","has-post-thumbnail","hentry","category-office","category-excel-office","category-word-office","category-powerpoint"],"aioseo_notices":[],"jetpack_publicize_connections":[],"jetpack_featured_media_url":"https:\/\/www.ka-net.org\/blog\/wp-content\/uploads\/eyecatch-OfficeVBA.png","jetpack_shortlink":"https:\/\/wp.me\/p4UZZr-2ZS","jetpack_sharing_enabled":true,"_links":{"self":[{"href":"https:\/\/www.ka-net.org\/blog\/index.php?rest_route=\/wp\/v2\/posts\/11524","targetHints":{"allow":["GET"]}}],"collection":[{"href":"https:\/\/www.ka-net.org\/blog\/index.php?rest_route=\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/www.ka-net.org\/blog\/index.php?rest_route=\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/www.ka-net.org\/blog\/index.php?rest_route=\/wp\/v2\/users\/1"}],"replies":[{"embeddable":true,"href":"https:\/\/www.ka-net.org\/blog\/index.php?rest_route=%2Fwp%2Fv2%2Fcomments&post=11524"}],"version-history":[{"count":1,"href":"https:\/\/www.ka-net.org\/blog\/index.php?rest_route=\/wp\/v2\/posts\/11524\/revisions"}],"predecessor-version":[{"id":11526,"href":"https:\/\/www.ka-net.org\/blog\/index.php?rest_route=\/wp\/v2\/posts\/11524\/revisions\/11526"}],"wp:featuredmedia":[{"embeddable":true,"href":"https:\/\/www.ka-net.org\/blog\/index.php?rest_route=\/wp\/v2\/media\/7120"}],"wp:attachment":[{"href":"https:\/\/www.ka-net.org\/blog\/index.php?rest_route=%2Fwp%2Fv2%2Fmedia&parent=11524"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/www.ka-net.org\/blog\/index.php?rest_route=%2Fwp%2Fv2%2Fcategories&post=11524"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/www.ka-net.org\/blog\/index.php?rest_route=%2Fwp%2Fv2%2Ftags&post=11524"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}