{"id":5075,"date":"2014-11-20T17:22:39","date_gmt":"2014-11-20T08:22:39","guid":{"rendered":"http:\/\/www.ka-net.org\/blog\/?p=5075"},"modified":"2014-11-20T17:22:39","modified_gmt":"2014-11-20T08:22:39","slug":"%e3%83%86%e3%83%bc%e3%83%96%e3%83%ab%e3%81%ae%e7%bd%ab%e7%b7%9a%e8%89%b2%e6%83%85%e5%a0%b1%e3%82%92%e5%88%97%e6%8c%99%e3%81%99%e3%82%8bpowerpoint%e3%83%9e%e3%82%af%e3%83%ad","status":"publish","type":"post","link":"https:\/\/www.ka-net.org\/blog\/?p=5075","title":{"rendered":"\u30c6\u30fc\u30d6\u30eb\u306e\u7f6b\u7dda\u8272\u60c5\u5831\u3092\u5217\u6319\u3059\u308bPowerPoint\u30de\u30af\u30ed"},"content":{"rendered":"

\u30c6\u30fc\u30d6\u30eb\u304c\u591a\u3044\u30d7\u30ec\u30bc\u30f3\u30c6\u30fc\u30b7\u30e7\u30f3\u30d5\u30a1\u30a4\u30eb\u306e\u3001\u5404\u30c6\u30fc\u30d6\u30eb\u306e\u7dda\u306e\u8272\u306e\u60c5\u5831\u3092\u8abf\u3079\u308b\u5fc5\u8981\u304c\u3042\u3063\u305f\u306e\u3067\u3001\u30de\u30af\u30ed\u3067\u307e\u3068\u3081\u3066\u53d6\u5f97\u3057\u3066\u307f\u307e\u3057\u305f\u3002<\/p>\n

Option Explicit\r\n\r\nPublic Sub Sample()\r\n'\u30a2\u30af\u30c6\u30a3\u30d6\u306a\u30b9\u30e9\u30a4\u30c9\u306b\u3042\u308b\u30c6\u30fc\u30d6\u30eb\u306e\u7f6b\u7dda\u8272\u60c5\u5831\u3092\u5217\u6319\r\n  Dim shp As PowerPoint.Shape\r\n  Dim c As Long, r As Long\r\n  \r\n  For Each shp In ActiveWindow.Selection.SlideRange.Shapes\r\n    If shp.HasTable = True Then\r\n      With shp.Table\r\n        For r = 1 To .Rows.Count\r\n          For c = 1 To .Columns.Count\r\n            Debug.Print shp.Name & ", " & _\r\n                        "\u30bb\u30eb(" & r & ", " & c & "), " & _\r\n                        "\u4e0a\u7dda\u8272\uff1a" & GetRGBColor(.Cell(r, c).Borders(ppBorderTop).ForeColor) & ", " & _\r\n                        "\u5de6\u7dda\u8272\uff1a" & GetRGBColor(.Cell(r, c).Borders(ppBorderLeft).ForeColor) & ", " & _\r\n                        "\u4e0b\u7dda\u8272\uff1a" & GetRGBColor(.Cell(r, c).Borders(ppBorderBottom).ForeColor) & ", " & _\r\n                        "\u53f3\u7dda\u8272\uff1a" & GetRGBColor(.Cell(r, c).Borders(ppBorderRight).ForeColor) & ", " & _\r\n                        "\u4e0b\u659c\u3081\u7dda\u8272\uff1a" & GetRGBColor(.Cell(r, c).Borders(ppBorderDiagonalDown).ForeColor) & ", " & _\r\n                        "\u4e0a\u659c\u3081\u7dda\u8272\uff1a" & GetRGBColor(.Cell(r, c).Borders(ppBorderDiagonalUp).ForeColor)\r\n          Next\r\n        Next\r\n      End With\r\n    End If\r\n  Next\r\nEnd Sub\r\n\r\nPrivate Function GetRGBColor(ByVal col As Long) As String\r\n'RGB\u53d6\u5f97\r\n  Dim hex_col As String\r\n  \r\n  hex_col = Hex(col)\r\n  hex_col = Right("000000" & hex_col, 6)\r\n  GetRGBColor = "Red:" & CLng("&H" & Right(hex_col, 2)) & _\r\n                ", Green:" & CLng("&H" & Mid(hex_col, 3, 2)) & _\r\n                ", Blue:" & CLng("&H" & Left(hex_col, 2))\r\nEnd Function<\/pre>\n
\"GetTableBorderColor_01\"<\/a><\/p>\n
\"GetTableBorderColor_02\"<\/a><\/p>\n
\u9069\u5f53\u306b\u66f8\u3044\u305f\u306e\u3067\u51e6\u7406\u306f\u96d1\u306b\u306a\u3063\u3066\u3044\u307e\u3059\u304c\u3001\u3068\u308a\u3042\u3048\u305a\u76ee\u7684\u306f\u9054\u6210\u3067\u304d\u307e\u3057\u305f\u3002<\/p>\n","protected":false},"excerpt":{"rendered":"\u30c6\u30fc\u30d6\u30eb\u304c\u591a\u3044\u30d7\u30ec\u30bc\u30f3\u30c6\u30fc\u30b7\u30e7\u30f3\u30d5\u30a1\u30a4\u30eb\u306e\u3001\u5404\u30c6\u30fc\u30d6\u30eb\u306e\u7dda\u306e\u8272\u306e\u60c5\u5831\u3092\u8abf\u3079\u308b\u5fc5\u8981\u304c\u3042\u3063\u305f\u306e\u3067\u3001\u30de\u30af\u30ed\u3067\u307e\u3068\u3081\u3066\u53d6\u5f97\u3057\u3066\u307f\u307e\u3057\u305f\u3002 Option Explicit Public Sub Sample() ‘\u30a2\u30af\u30c6\u30a3\u30d6\u306a\u30b9\u30e9 […]","protected":false},"author":1,"featured_media":7125,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":{"_jetpack_memberships_contains_paid_content":false,"footnotes":"","jetpack_publicize_message":"","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,58],"tags":[],"class_list":["post-5075","post","type-post","status-publish","format-standard","has-post-thumbnail","hentry","category-office","category-powerpoint"],"aioseo_notices":[],"jetpack_publicize_connections":[],"jetpack_featured_media_url":"https:\/\/www.ka-net.org\/blog\/wp-content\/uploads\/eyecatch-PowerPoint.png","jetpack_shortlink":"https:\/\/wp.me\/p4UZZr-1jR","jetpack_sharing_enabled":true,"_links":{"self":[{"href":"https:\/\/www.ka-net.org\/blog\/index.php?rest_route=\/wp\/v2\/posts\/5075","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=5075"}],"version-history":[{"count":1,"href":"https:\/\/www.ka-net.org\/blog\/index.php?rest_route=\/wp\/v2\/posts\/5075\/revisions"}],"predecessor-version":[{"id":5078,"href":"https:\/\/www.ka-net.org\/blog\/index.php?rest_route=\/wp\/v2\/posts\/5075\/revisions\/5078"}],"wp:featuredmedia":[{"embeddable":true,"href":"https:\/\/www.ka-net.org\/blog\/index.php?rest_route=\/wp\/v2\/media\/7125"}],"wp:attachment":[{"href":"https:\/\/www.ka-net.org\/blog\/index.php?rest_route=%2Fwp%2Fv2%2Fmedia&parent=5075"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/www.ka-net.org\/blog\/index.php?rest_route=%2Fwp%2Fv2%2Fcategories&post=5075"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/www.ka-net.org\/blog\/index.php?rest_route=%2Fwp%2Fv2%2Ftags&post=5075"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}