{"id":1580,"date":"2012-04-09T15:00:39","date_gmt":"2012-04-09T06:00:39","guid":{"rendered":"http:\/\/www.ka-net.org\/blog\/?p=1580"},"modified":"2013-08-27T17:00:55","modified_gmt":"2013-08-27T08:00:55","slug":"mayhempowerpoint%e3%83%9e%e3%82%af%e3%83%ad%e3%81%ab%e3%82%b7%e3%83%a7%e3%83%bc%e3%83%88%e3%82%ab%e3%83%83%e3%83%88%e3%82%ad%e3%83%bc%e3%82%92%e5%89%b2%e3%82%8a%e5%bd%93%e3%81%a6%e3%82%8b%e3%80%82","status":"publish","type":"post","link":"https:\/\/www.ka-net.org\/blog\/?p=1580","title":{"rendered":"[Mayhem]PowerPoint\u30de\u30af\u30ed\u306b\u30b7\u30e7\u30fc\u30c8\u30ab\u30c3\u30c8\u30ad\u30fc\u3092\u5272\u308a\u5f53\u3066\u308b\u3002"},"content":{"rendered":"

2012\/4\/20 \u8ffd\u8a18\uff1a\u30af\u30a4\u30c3\u30af\u30a2\u30af\u30bb\u30b9\u30c4\u30fc\u30eb\u30d0\u30fc\u306e\u30e1\u30cb\u30e5\u30fc\u3092\u5229\u7528\u3059\u308b\u65b9\u6cd5\u306b\u95a2\u3057\u3066\u306e\u8a18\u4e8b<\/a>\u3082\u8ffd\u52a0\u3057\u307e\u3057\u305f\u3002<\/span><\/p>\n

Excel MVP\u306e\u4f0a\u85e4\u3055\u3093\u304c\u3054\u81ea\u8eab\u306e\u30b5\u30a4\u30c8\u300c\u30a4\u30f3\u30b9\u30c8\u30e9\u30af\u30bf\u30fc\u306e\u30cd\u30bf\u5e33<\/a>\u300d\u3067”\u6587\u5b57\u306e\u30b5\u30a4\u30ba\u30921\u30dd\u30a4\u30f3\u30c8\u5927\u304d\u304f\u3059\u308b\u30de\u30af\u30ed<\/a>“\u3084”\u884c\u9593\u30921\u30dd\u30a4\u30f3\u30c8\u5e83\u304f\u3059\u308b\u30de\u30af\u30ed<\/a>“\u7b49\u306ePowerPoint\u30de\u30af\u30ed\u3092\u7d39\u4ecb\u3055\u308c\u3066\u3044\u308b\u306e\u3092\u898b\u3066\u3001”\u3053\u3046\u3044\u3063\u305f\u30de\u30af\u30ed\u306f\u30db\u30c3\u30c8\u30ad\u30fc(\u30b7\u30e7\u30fc\u30c8\u30ab\u30c3\u30c8\u30ad\u30fc)\u304b\u3089\u5b9f\u884c\u3059\u308b\u306e\u304c\u4fbf\u5229\u306a\u306e\u3067\u306f\u306a\u3044\u304b\uff1f<\/em><\/strong>“\u3068\u601d\u3044\u3001\u51e6\u7406\u3092\u8003\u3048\u3066\u307f\u307e\u3057\u305f\u3002<\/p>\n

VBA\u30de\u30af\u30ed\u3092\u30b7\u30e7\u30fc\u30c8\u30ab\u30c3\u30c8\u30ad\u30fc\u304b\u3089\u5b9f\u884c\u3059\u308b\u65b9\u6cd5\u3068\u3057\u3066\u3059\u3050\u306b\u601d\u3044\u3064\u304f\u306e\u306f\u30de\u30af\u30ed\u306e\u30aa\u30d7\u30b7\u30e7\u30f3\u304b\u3089\u30ad\u30fc\u3092\u5272\u308a\u5f53\u3066\u308b\u65b9\u6cd5<\/a>\u3068OnKey\u30e1\u30bd\u30c3\u30c9\u3067\u30ad\u30fc\u3092\u5272\u308a\u5f53\u3066\u308b\u65b9\u6cd5<\/a>\u3067\u3059\u304c\u3001PowerPoint\u306b\u306f\u3069\u3061\u3089\u3082\u7528\u610f\u3055\u308c\u3066\u3044\u307e\u305b\u3093\u3002<\/p>\n

\u300cUsing OfficeOne Shortcut Manager in Microsoft PowerPoint 2007<\/a>\u300d\u3067\u3082\u7d39\u4ecb\u3055\u308c\u3066\u3044\u308b\u300cShortcut Manager for PowerPoint<\/a>\u300d\u3092\u4f7f\u3048\u3070PowerPoint\u3067\u3082\u30ad\u30fc\u306e\u5272\u308a\u5f53\u3066\u3092\u884c\u3046\u3053\u3068\u304c\u3067\u304d\u307e\u3059\u304c\u3001\u3053\u306e\u30c4\u30fc\u30eb\u306f\u6709\u6599\u304b\u3064\u6d77\u5916\u88fd\u3067\u3042\u308b\u305f\u3081\u3001\u82e5\u5e72\u4f7f\u3044\u3065\u3089\u3044\u3068\u3053\u308d\u304c\u3042\u308a\u307e\u3059\u3002
\n(\u3082\u3061\u308d\u3093API\u95a2\u6570\u3092\u4f7f\u3048\u3070Shortcut Manager<\/strong>\u3067\u884c\u3063\u3066\u3044\u308b\u3088\u3046\u306a\u51e6\u7406\u3092\u30de\u30af\u30ed\u304b\u3089\u5b9f\u884c\u3059\u308b\u3053\u3068\u304c\u3067\u304d\u308b\u306e\u3067\u3059\u304c\u3001\u3053\u3061\u3089\u3082\u624b\u9593\u304c\u639b\u304b\u308a\u307e\u3059\u3002)<\/p>\n

\u305d\u3053\u3067\u4eca\u56de\u306f\u5f53\u30d6\u30ed\u30b0\u3067\u3082\u3055\u3093\u3056\u3093\u7d39\u4ecb\u3057\u3066\u3044\u308b\u300cMayhem<\/a>\u300d\u3092\u4f7f\u3063\u305f\u51e6\u7406\u3092\u8003\u3048\u3066\u307f\u307e\u3059\u3002<\/p>\n

<\/p>\n

    \n
  1. \u30b7\u30e7\u30fc\u30c8\u30ab\u30c3\u30c8\u30ad\u30fc\u304b\u3089\u5b9f\u884c\u3057\u305f\u3044\u30de\u30af\u30ed\u3092\u7528\u610f\u3057\u3001\u30a2\u30c9\u30a4\u30f3\u5f62\u5f0f(ppa,ppam)\u3067\u4fdd\u5b58\u3057\u307e\u3059(\u4eca\u56de\u306f\u30b5\u30f3\u30d7\u30eb\u3068\u3057\u3066\u3001\u4e0b\u8a18\u306e\u30b3\u30fc\u30c9\u3092\u300cSampleAddIn.ppam<\/span>\u300d\u3068\u3057\u3066\u4fdd\u5b58\u3057\u307e\u3057\u305f)\u3002<\/li>\n
    Option Explicit\r\n\r\nPublic Sub Macro1()\r\n  MsgBox "Macro1"\r\nEnd Sub\r\n\r\nPublic Sub Macro2()\r\n  MsgBox "Macro2"\r\nEnd Sub\r\n\r\nPublic Sub Macro3()\r\n  MsgBox "Macro3"\r\nEnd Sub<\/pre>\n
  2. PowerPoint \u306e\u30aa\u30d7\u30b7\u30e7\u30f3 > \u30a2\u30c9\u30a4\u30f3 > “PowerPoint \u30a2\u30c9\u30a4\u30f3”\u306e\u8a2d\u5b9a<\/strong> \u304b\u3089\u30a2\u30c9\u30a4\u30f3\u30c0\u30a4\u30a2\u30ed\u30b0\u3092\u8868\u793a\u3057\u307e\u3059(PowerPoint 2010\u306e\u5834\u5408)\u3002<\/li>\n
    \"\"<\/a><\/p>\n
  3. \u65b0\u898f\u8ffd\u52a0\u30dc\u30bf\u30f3\u304b\u30891.\u306e\u30a2\u30c9\u30a4\u30f3\u30d5\u30a1\u30a4\u30eb\u3092\u8ffd\u52a0\u3057\u3001\u30a2\u30c9\u30a4\u30f3\u540d\u96a3\u306e\u30c1\u30a7\u30c3\u30af\u30dc\u30c3\u30af\u30b9\u304c\u30c1\u30a7\u30c3\u30af\u3055\u308c\u3066\u3044\u308b\u3053\u3068\u3092\u78ba\u8a8d\u3057\u307e\u3059\u3002<\/li>\n
    \"\"<\/a><\/p>\n
    \u4ee5\u4e0a\u3067PowerPoint\u5074\u306e\u6e96\u5099\u306f\u7d42\u4e86\u3067\u3059\u3002<\/p>\n
  4. \u4e0b\u8a18\u30b3\u30fc\u30c9\u3092\u30e1\u30e2\u5e33\u306b\u8cbc\u308a\u4ed8\u3051\u3001vbs\u30d5\u30a1\u30a4\u30eb\u3068\u3057\u3066\u4fdd\u5b58\u3057\u307e\u3059(\u4eca\u56de\u306f\u30b5\u30f3\u30d7\u30eb\u3068\u3057\u3066\u3001\u300cC:\\Test\\CallPowerPointMacro.vbs<\/span>\u300d\u3068\u3057\u3066\u4fdd\u5b58\u3057\u307e\u3057\u305f)\u3002<\/li>\n
    Option Explicit\r\n\r\nDim Args\r\nDim AddInName\r\nDim MacroName\r\nDim AppPP\r\n\r\nSet Args = WScript.Arguments\r\nIf Args.Count < 2 Then WScript.Quit\r\nAddInName = Args(0)\r\nMacroName = Args(1)\r\nSet Args = Nothing\r\n\r\nOn Error Resume Next\r\nSet AppPP = GetObject(, "PowerPoint.Application")\r\nIf Not AppPP Is Nothing Then\r\n  If AppPP.AddIns(AddInName).Loaded = -1 Then\r\n    AppPP.Run AddInName & "!" & MacroName\r\n  End If\r\n  Set AppPP = Nothing\r\nEnd If\r\nOn Error GoTo 0<\/pre>\n
  5. Mayhem\u3092\u8d77\u52d5\u3057\u3001\u300cChoose Event<\/span>\u300d\u304b\u3089\u300cKey Press<\/span>\u300d\u3092\u9078\u629e\u3057\u3066\u300cChoose<\/span>\u300d\u30dc\u30bf\u30f3\u3092\u30af\u30ea\u30c3\u30af\u3057\u307e\u3059\u3002<\/li>\n
    \"\"<\/a><\/p>\n
  6. “Please enter a combination of keys which will activate this event.<\/strong>“\u3068\u3044\u3046\u30e1\u30c3\u30bb\u30fc\u30b8\u304c\u8868\u793a\u3055\u308c\u305f\u3089\u3001\u30de\u30af\u30ed\u3092\u5b9f\u884c\u3057\u305f\u3044\u30b7\u30e7\u30fc\u30c8\u30ab\u30c3\u30c8\u30ad\u30fc\u3092\u62bc\u3057\u3066\u3001\u300cSave<\/span>\u300d\u30dc\u30bf\u30f3\u3092\u30af\u30ea\u30c3\u30af\u3057\u307e\u3059(\u8a2d\u5b9a\u3059\u308b\u30b7\u30e7\u30fc\u30c8\u30ab\u30c3\u30c8\u30ad\u30fc\u306fPowerPoint\u3067\u6a19\u6e96\u3067\u8a2d\u5b9a\u3055\u308c\u3066\u3044\u308b\u30b7\u30e7\u30fc\u30c8\u30ab\u30c3\u30c8\u30ad\u30fc\u3068\u306f\u91cd\u306a\u3089\u306a\u3044\u3082\u306e\u3092\u304a\u85a6\u3081\u3057\u307e\u3059\u3002PowerPoint 2003 \u30b7\u30e7\u30fc\u30c8\u30ab\u30c3\u30c8\u30ad\u30fc<\/a>\u3001\u30d7\u30ec\u30bc\u30f3\u30c6\u30fc\u30b7\u30e7\u30f3\u306e\u4f5c\u6210\u6642\u306b PowerPoint 2010 \u3067\u4f7f\u7528\u3059\u308b\u30b7\u30e7\u30fc\u30c8\u30ab\u30c3\u30c8 \u30ad\u30fc<\/a>\u3001PowerPoint 2010 \u3067\u30d7\u30ec\u30bc\u30f3\u30c6\u30fc\u30b7\u30e7\u30f3\u3092\u767a\u8868\u3059\u308b\u3068\u304d\u306b\u4f7f\u7528\u3059\u308b\u30b7\u30e7\u30fc\u30c8\u30ab\u30c3\u30c8 \u30ad\u30fc<\/a> \u53c2\u7167)\u3002<\/li>\n
    \"\"<\/a><\/p>\n
  7. \u300cChoose Reaction<\/span>\u300d\u304b\u3089\u300cRun Program<\/span>\u300d\u3092\u9078\u629e\u3057\u3066\u300cChoose<\/span>\u300d\u30dc\u30bf\u30f3\u3092\u30af\u30ea\u30c3\u30af\u3057\u307e\u3059\u3002<\/li>\n
    \"\"<\/a><\/p>\n
  8. Run Program\u30c0\u30a4\u30a2\u30ed\u30b0\u304c\u8868\u793a\u3055\u308c\u305f\u3089\u3001\u300cFile:<\/span>\u300d\u6b04\u306b\u306f4.\u3067\u4fdd\u5b58\u3057\u305fvbs\u30d5\u30a1\u30a4\u30eb<\/strong>\u3092\u3001\u300cArguments:<\/span>\u300d\u6b04\u306b\u306f\u30b7\u30e7\u30fc\u30c8\u30ab\u30c3\u30c8\u30ad\u30fc\u304b\u3089\u5b9f\u884c\u3057\u305f\u3044\u30de\u30af\u30ed\u3092\u300c\u30a2\u30c9\u30a4\u30f3\u540d(\u534a\u89d2\u30b9\u30da\u30fc\u30b9)\u30de\u30af\u30ed\u540d<\/span>\u300d\u3068\u3044\u3046\u5f62\u3067\u5165\u529b\u3057\u3001\u300cSave<\/span>\u300d\u30dc\u30bf\u30f3\u3092\u30af\u30ea\u30c3\u30af\u3057\u307e\u3059\u3002<\/li>\n
    \"\"<\/a><\/p>\n
  9. Mayhem\u306e\u521d\u671f\u753b\u9762\u306b\u623b\u3063\u305f\u3089\u3001\u30b9\u30a4\u30c3\u30c1\u3092\u300cON<\/span>\u300d\u306b\u3057\u30665.\uff5e8.\u3067\u8ffd\u52a0\u3057\u305f\u30a4\u30d9\u30f3\u30c8\u3092\u6709\u52b9\u306b\u3057\u307e\u3059\u3002<\/li>\n
    \"\"<\/a>\n<\/ol>\n
    \u4ee5\u4e0a\u3067\u4f5c\u696d\u306f\u7d42\u4e86\u3067\u3059\u3002
    \n\u4ee5\u964d\u3001Mayhem\u304c\u8d77\u52d5\u3057\u3066\u3044\u308b\u9593\u306f6.\u3067\u8a2d\u5b9a\u3057\u305f\u30ad\u30fc\u3092\u62bc\u3059\u3053\u3068\u30678.\u3067\u8a2d\u5b9a\u3057\u305f\u30de\u30af\u30ed\u3092\u5b9f\u884c\u3059\u308b\u3053\u3068\u304c\u3067\u304d\u307e\u3059\u3002<\/p>\n
    \"\"<\/a><\/p>\n
    \u30db\u30c3\u30c8\u30ad\u30fc\u306e\u5272\u308a\u5f53\u3066\u306fMayhem\u3067\u306a\u304f\u3066\u3082\u3067\u304d\u308b\u3053\u3068\u3067\u3059\u304c\u3001Mayhem\u306f\u30db\u30c3\u30c8\u30ad\u30fc\u306e\u5272\u308a\u5f53\u3066\u4ee5\u5916\u306b\u3082\u69d8\u3005\u306a\u3053\u3068\u304c\u3067\u304d\u308b\u30c4\u30fc\u30eb\u306a\u306e\u3067\u3001\u4eca\u56de\u306fMayhem\u3092\u4f7f\u7528\u3059\u308b\u3053\u3068\u306b\u3057\u307e\u3057\u305f\u3002<\/p>\n","protected":false},"excerpt":{"rendered":"2012\/4\/20 \u8ffd\u8a18\uff1a\u30af\u30a4\u30c3\u30af\u30a2\u30af\u30bb\u30b9\u30c4\u30fc\u30eb\u30d0\u30fc\u306e\u30e1\u30cb\u30e5\u30fc\u3092\u5229\u7528\u3059\u308b\u65b9\u6cd5\u306b\u95a2\u3057\u3066\u306e\u8a18\u4e8b\u3082\u8ffd\u52a0\u3057\u307e\u3057\u305f\u3002 Excel MVP\u306e\u4f0a\u85e4\u3055\u3093\u304c\u3054\u81ea\u8eab\u306e\u30b5\u30a4\u30c8\u300c\u30a4\u30f3\u30b9\u30c8\u30e9\u30af\u30bf\u30fc\u306e\u30cd\u30bf\u5e33\u300d\u3067”\u6587\u5b57\u306e\u30b5\u30a4\u30ba\u30921\u30dd\u30a4\u30f3\u30c8 […]","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":false,"jetpack_social_options":{"image_generator_settings":{"template":"highway","default_image_id":0,"font":"","enabled":false},"version":2}},"categories":[4,58,6,54],"tags":[139,141,143],"class_list":["post-1580","post","type-post","status-publish","format-standard","has-post-thumbnail","hentry","category-office","category-powerpoint","category-vbs","category-mayhem","tag-vbs","tag-mayhem","tag-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-pu","jetpack_sharing_enabled":true,"_links":{"self":[{"href":"https:\/\/www.ka-net.org\/blog\/index.php?rest_route=\/wp\/v2\/posts\/1580","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=1580"}],"version-history":[{"count":9,"href":"https:\/\/www.ka-net.org\/blog\/index.php?rest_route=\/wp\/v2\/posts\/1580\/revisions"}],"predecessor-version":[{"id":3491,"href":"https:\/\/www.ka-net.org\/blog\/index.php?rest_route=\/wp\/v2\/posts\/1580\/revisions\/3491"}],"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=1580"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/www.ka-net.org\/blog\/index.php?rest_route=%2Fwp%2Fv2%2Fcategories&post=1580"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/www.ka-net.org\/blog\/index.php?rest_route=%2Fwp%2Fv2%2Ftags&post=1580"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}