{"id":428,"date":"2025-12-12T10:27:40","date_gmt":"2025-12-12T01:27:40","guid":{"rendered":"https:\/\/www.vinesystems.net\/?p=428"},"modified":"2025-12-14T15:40:02","modified_gmt":"2025-12-14T06:40:02","slug":"copilot%e7%94%9f%e6%88%90%e3%82%b9%e3%83%a9%e3%82%a4%e3%83%89%e3%81%ae%e4%b8%ad%e8%8f%af%e3%83%95%e3%82%a9%e3%83%b3%e3%83%88%e5%95%8f%e9%a1%8c%e3%82%92vba%e3%81%a7%e8%a7%a3%e6%b1%ba%e3%81%99%e3%82%8b","status":"publish","type":"post","link":"https:\/\/www.vinesystems.net\/?p=428","title":{"rendered":"Copilot\u751f\u6210\u30b9\u30e9\u30a4\u30c9\u306e\u4e2d\u83ef\u30d5\u30a9\u30f3\u30c8\u554f\u984c\u3092VBA\u3067\u89e3\u6c7a\u3059\u308b"},"content":{"rendered":"\n

Microsoft Copilot\u3067\u30b9\u30e9\u30a4\u30c9\u3092\u81ea\u52d5\u751f\u6210\u3059\u308b\u3068\u3001\u306a\u305c\u304b\u4e2d\u56fd\u8a9e\u30d5\u30a9\u30f3\u30c8(MS YaHei\u306a\u3069)\u304c\u6df7\u5165\u3059\u308b\u554f\u984c\u304c\u3042\u308a\u307e\u3059\u3002\u30d5\u30a9\u30f3\u30c8\u306e\u7f6e\u63db\u6a5f\u80fd\u3067\u306f\u5bfe\u51e6\u3067\u304d\u306a\u3044\u30b1\u30fc\u30b9\u3082\u591a\u304f\u3001\u5730\u5473\u306b\u5384\u4ecb\u3067\u3059\u3002<\/p>\n\n\n\n

\u554f\u984c\u306e\u672c\u8cea<\/h3>\n\n\n\n
    \n
  1. Han Unification\u554f\u984c<\/strong> – AI\u304c\u30ed\u30b1\u30fc\u30eb\u3092\u6b63\u3057\u304f\u89e3\u91c8\u305b\u305a\u3001\u6f22\u5b57\u306b\u4e2d\u56fd\u8a9e\u30d5\u30a9\u30f3\u30c8\u3092\u5272\u308a\u5f53\u3066\u308b<\/li>\n\n\n\n
  2. \u56f3\u5f62\u30d9\u30fc\u30b9\u3067\u306e\u63cf\u753b<\/strong> – \u30d7\u30ec\u30fc\u30b9\u30db\u30eb\u30c0\u30fc\u3067\u306f\u306a\u304f\u30c6\u30ad\u30b9\u30c8\u30dc\u30c3\u30af\u30b9\u3067\u751f\u6210\u3055\u308c\u308b\u305f\u3081\u3001\u30b9\u30e9\u30a4\u30c9\u30de\u30b9\u30bf\u30fc\u3067\u306e\u4e00\u62ec\u5909\u66f4\u304c\u52b9\u304b\u306a\u3044<\/li>\n<\/ol>\n\n\n\n

    \u7d50\u679c\u3068\u3057\u3066\u3001GUI\u3067\u306e\u624b\u4f5c\u696d\u306f\u975e\u52b9\u7387\u7684\u3067\u3059\u3002\u6570\u5341\u679a\u306e\u30b9\u30e9\u30a4\u30c9\u3092\u624b\u52d5\u4fee\u6b63\u3059\u308b\u306e\u306f\u6642\u9593\u306e\u7121\u99c4\u3067\u3057\u304b\u3042\u308a\u307e\u305b\u3093\u3002<\/p>\n\n\n\n

    \u89e3\u6c7a\u7b56:\u5168\u30aa\u30d6\u30b8\u30a7\u30af\u30c8\u8d70\u67fb\u3067\u30d5\u30a9\u30f3\u30c8\u3092\u5f37\u5236\u4e0a\u66f8\u304d<\/h3>\n\n\n\n

    \u5168\u30b9\u30e9\u30a4\u30c9\u306e\u5168\u56f3\u5f62\u3092\u518d\u5e30\u7684\u306b\u8d70\u67fb\u3057\u3001NameFarEast<\/code>\u30d7\u30ed\u30d1\u30c6\u30a3\u3092\u542b\u3081\u3066\u5f37\u5236\u7684\u306b\u30d5\u30a9\u30f3\u30c8\u3092\u66f8\u304d\u63db\u3048\u307e\u3059\u3002<\/p>\n\n\n\n

    Sub ForceChangeFont()\n    Dim sld As Slide\n    Dim shp As Shape\n    Dim targetFont As String\n    \n    targetFont = \"\u30e1\u30a4\u30ea\u30aa\"\n    \n    On Error Resume Next\n    \n    For Each sld In ActivePresentation.Slides\n        For Each shp In sld.Shapes\n            Call ChangeShapeFont(shp, targetFont)\n        Next shp\n    Next sld\n    \n    MsgBox \"\u5b8c\u4e86\", vbInformation\nEnd Sub\n\nSub ChangeShapeFont(shp As Shape, fontName As String)\n    Dim gShp As Shape\n    \n    If shp.HasTextFrame Then\n        If shp.TextFrame.HasText Then\n            ' \u3053\u3053\u304c\u30dd\u30a4\u30f3\u30c8:3\u3064\u306e\u30d7\u30ed\u30d1\u30c6\u30a3\u3092\u5168\u3066\u6307\u5b9a\n            shp.TextFrame.TextRange.Font.Name = fontName\n            shp.TextFrame.TextRange.Font.NameFarEast = fontName \n            shp.TextFrame.TextRange.Font.NameAscii = fontName\n        End If\n    End If\n    \n    ' \u30b0\u30eb\u30fc\u30d7\u5316\u3055\u308c\u3066\u3044\u308b\u5834\u5408\u306f\u518d\u5e30\u51e6\u7406\n    If shp.Type = msoGroup Then\n        For Each gShp In shp.GroupItems\n            Call ChangeShapeFont(gShp, fontName)\n        Next gShp\n    End If\nEnd Sub\n<\/code><\/pre>\n\n\n\n
    \u91cd\u8981\u306a\u306e\u306fNameFarEast<\/code><\/h3>\n\n\n\n
    \u901a\u5e38\u306eFont.Name<\/code>\u3060\u3051\u3067\u306f\u3001\u4e2d\u56fd\u8a9e\u30b9\u30af\u30ea\u30d7\u30c8\u5c5e\u6027\u304c\u4ed8\u3044\u305f\u30c6\u30ad\u30b9\u30c8\u306f\u5909\u66f4\u3055\u308c\u307e\u305b\u3093\u3002NameFarEast<\/code>\u3092\u660e\u793a\u7684\u306b\u6307\u5b9a\u3059\u308b\u3053\u3068\u3067\u3001\u6f22\u5b57\u306e\u30ec\u30f3\u30c0\u30ea\u30f3\u30b0\u6307\u5b9a\u3092\u5f37\u5236\u7684\u306b\u4e0a\u66f8\u304d\u3067\u304d\u307e\u3059\u3002<\/p>\n\n\n\n
    \u904b\u7528\u65b9\u91dd<\/h3>\n\n\n\n
    AI\u751f\u6210\u30b9\u30e9\u30a4\u30c9\u306f\u300c\u5b8c\u6210\u54c1\u300d\u3067\u306f\u306a\u304f\u300c\u305f\u305f\u304d\u53f0\u300d\u3068\u3057\u3066\u6271\u3046\u306e\u304c\u73fe\u5b9f\u7684\u3067\u3059\u3002\u30b3\u30f3\u30c6\u30f3\u30c4\u306e\u751f\u6210\u306fAI\u306b\u4efb\u305b\u3001\u30d5\u30a9\u30fc\u30de\u30c3\u30c8\u306e\u7d71\u4e00\u306f\u30b9\u30af\u30ea\u30d7\u30c8\u3067\u81ea\u52d5\u5316\u3057\u307e\u3059\u3002\u3053\u306e\u5206\u696d\u304c\u4eca\u306e\u3068\u3053\u308d\u6700\u3082\u52b9\u7387\u7684\u306a\u4f7f\u3044\u65b9\u3067\u3059\u3002<\/p>\n\n\n\n
    \u6a19\u6e96\u30e2\u30b8\u30e5\u30fc\u30eb\u306b\u653e\u308a\u8fbc\u3093\u3067\u304a\u3051\u3070\u3001\u751f\u6210\u5f8c\u306b\u30ef\u30f3\u30af\u30ea\u30c3\u30af\u3067\u4fee\u6b63\u3067\u304d\u307e\u3059\u3002<\/p>\n","protected":false},"excerpt":{"rendered":"
    Microsoft Copilot\u3067\u30b9\u30e9\u30a4\u30c9\u3092\u81ea\u52d5\u751f\u6210\u3059\u308b\u3068\u3001\u306a\u305c\u304b\u4e2d\u56fd\u8a9e\u30d5\u30a9\u30f3\u30c8(MS YaHei\u306a\u3069)\u304c\u6df7\u5165\u3059\u308b\u554f\u984c\u304c\u3042\u308a\u307e\u3059\u3002\u30d5\u30a9\u30f3\u30c8\u306e\u7f6e\u63db\u6a5f\u80fd\u3067\u306f\u5bfe\u51e6\u3067\u304d\u306a\u3044\u30b1\u30fc\u30b9\u3082\u591a\u304f\u3001\u5730\u5473\u306b\u5384\u4ecb\u3067\u3059\u3002 \u554f\u984c\u306e\u672c\u8cea \u7d50\u679c\u3068\u3057\u3066 … Continued<\/a><\/p>\n","protected":false},"author":1,"featured_media":430,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":{"_jetpack_memberships_contains_paid_content":false,"footnotes":""},"categories":[123],"tags":[],"class_list":["post-428","post","type-post","status-publish","format-standard","has-post-thumbnail","hentry","category-ai"],"jetpack_featured_media_url":"https:\/\/www.vinesystems.net\/wp-content\/uploads\/2025\/12\/ChatGPT-Image-2025\u5e7412\u670812\u65e5-10_27_06.png","jetpack_sharing_enabled":true,"_links":{"self":[{"href":"https:\/\/www.vinesystems.net\/index.php?rest_route=\/wp\/v2\/posts\/428","targetHints":{"allow":["GET"]}}],"collection":[{"href":"https:\/\/www.vinesystems.net\/index.php?rest_route=\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/www.vinesystems.net\/index.php?rest_route=\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/www.vinesystems.net\/index.php?rest_route=\/wp\/v2\/users\/1"}],"replies":[{"embeddable":true,"href":"https:\/\/www.vinesystems.net\/index.php?rest_route=%2Fwp%2Fv2%2Fcomments&post=428"}],"version-history":[{"count":2,"href":"https:\/\/www.vinesystems.net\/index.php?rest_route=\/wp\/v2\/posts\/428\/revisions"}],"predecessor-version":[{"id":445,"href":"https:\/\/www.vinesystems.net\/index.php?rest_route=\/wp\/v2\/posts\/428\/revisions\/445"}],"wp:featuredmedia":[{"embeddable":true,"href":"https:\/\/www.vinesystems.net\/index.php?rest_route=\/wp\/v2\/media\/430"}],"wp:attachment":[{"href":"https:\/\/www.vinesystems.net\/index.php?rest_route=%2Fwp%2Fv2%2Fmedia&parent=428"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/www.vinesystems.net\/index.php?rest_route=%2Fwp%2Fv2%2Fcategories&post=428"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/www.vinesystems.net\/index.php?rest_route=%2Fwp%2Fv2%2Ftags&post=428"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}