{"id":1214,"date":"2017-10-16T13:07:31","date_gmt":"2017-10-16T04:07:31","guid":{"rendered":"https:\/\/euc-access-excel-db.com\/tips\/?p=1214"},"modified":"2017-11-21T20:49:08","modified_gmt":"2017-11-21T11:49:08","slug":"tool-bar-auto-make-word","status":"publish","type":"post","link":"https:\/\/euc-access-excel-db.com\/tips\/ct08_exceltruebasic\/ct080860_vba_basic\/tool-bar-auto-make-word","title":{"rendered":"Word2010\u306e\u30ea\u30dc\u30f3\u306b\u3001Word2000\u3068\u540c\u3058\u30d7\u30ed\u30b0\u30e9\u30e0\u30b3\u30fc\u30c9\u306e\u30b3\u30d4\u30da\u3067\u30e6\u30fc\u30b6\u30fc\u8a2d\u5b9a\u30dc\u30bf\u30f3\u3092\u751f\u6210\u3059\u308b\u3002\uff08\u4e00\u5fdc\u30c4\u30fc\u30eb\u30d0\u30fc\u5358\u4f4d\u3067\uff09"},"content":{"rendered":"

\u25cf Word2010\u306e\u30ea\u30dc\u30f3\u306b\u3001Word2000\u3068\u540c\u3058\u30d7\u30ed\u30b0\u30e9\u30e0\u30b3\u30fc\u30c9\u306e\u30b3\u30d4\u30da\u3067\u30e6\u30fc\u30b6\u30fc\u8a2d\u5b9a\u30dc\u30bf\u30f3\u3092\u751f\u6210\u3059\u308b\u3002\uff08\u4e00\u5fdc\u30c4\u30fc\u30eb\u30d0\u30fc\u5358\u4f4d\u3067\uff09<\/p>\n

\u203b\u9593\u9055\u3063\u3066\u305f\u3089\u3059\u307f\u307e\u305b\u3093\u3002<\/span>
\n\u203b\u30e1\u30e2\u66f8\u304d\u306a\u306e\u3067\u3001\u81ea\u5206\u3067\u3082\u610f\u5473\u4e0d\u660e\u306a\u7b87\u6240\u3082\u591a\u3044\u3067\u3059\u3002\u3054\u3081\u3093\u306a\u3055\u3044\u3002<\/span>
\n\u3000\u3000<\/SPAN>
\n\u76ee\u6b21
\n \u3000\u2605 \u306f\u3058\u3081\u306b<\/a><\/SPAN>
\n \u3000\u2605 Excel\u306e\u5834\u5408\u3068\u306e\u9055\u3044<\/a><\/SPAN>
\n \u3000\u2605 \u30d7\u30ed\u30b0\u30e9\u30e0\u3092\u30b3\u30d4\u30da\u3059\u308b\u5834\u6240\u3068\u6a19\u6e96\u30e2\u30b8\u30e5\u30fc\u30eb\u306e\u540d\u524d\u306e\u5909\u3048\u65b9<\/a><\/SPAN>
\n \u3000\u2605 \u30b3\u30d4\u30da\u3059\u308b\u30d7\u30ed\u30b0\u30e9\u30e0\u5185\u5bb9<\/a><\/SPAN>
\n \u3000(01)\u30c4\u30fc\u30eb\u30d0\u30fc\u306e\u5404\u30dc\u30bf\u30f3\u306e\u52d5\u4f5c\u3092\u6c7a\u3081\u308b\u30d7\u30ed\u30b0\u30e9\u30e0<\/a><\/SPAN>
\n \u3000(02) \u30ea\u30dc\u30f3\u306b\uff12\u3064\u306e\u30c4\u30fc\u30eb\u30d0\u30fc\uff08\u5404\u30dc\u30bf\u30f3\u542b\u3080\uff09\u3092\u751f\u6210\u3059\u308b\u30d7\u30ed\u30b0\u30e9\u30e0<\/a><\/SPAN>
\n \u3000(03)\u524d\u9805\u306e(02)\u306e\u30c6\u30b9\u30c8\u30d7\u30ed\u30b0\u30e9\u30e0\u3092\u52d5\u304b\u3057\u305f\u3044\u5834\u5408\u306f\u3001\u4ee5\u4e0b\u306e\u30b3\u30fc\u30c9\u3082\u30b3\u30d4\u30da\u3057\u307e\u3059\u3002<\/a><\/SPAN>
\n \u3000\u2605 \u30c4\u30fc\u30eb\u30d0\u30fc\u306e\u524a\u9664\u3001\u30dc\u30bf\u30f3\u306e\u5897\u3084\u3057\u65b9\u306e\u65b9\u6cd5<\/a><\/SPAN>
\n\u203bShift\uff0bTAB\u30ad\u30fc\u3001\u3082\u3057\u304f\u306f\u3001Home\u30ad\u30fc\u3001Home\u30ad\u30fc\uff0bTAB\u6570\u56de\u3001\u3092\u62bc\u3059\u3068\u3001\u76ee\u6b21\u4ed8\u8fd1\u306b\u623b\u308c\u307e\u3059\u3002
\n\u3000\u3000<\/SPAN>
\n\u3000\u3000<\/SPAN>
\n\u2605 \u306f\u3058\u3081\u306b<\/a><\/p>\n

\u30ea\u30dc\u30f3\u306b\u4f55\u3082\u306a\u3044\u72b6\u614b\u304b\u3089\u30fb\u30fb\u30fb\u3001\u300c\u633f\u5165\u7cfb\u30c4\u30fc\u30eb\u30d0\u30fc01\u300d\u3068\u3044\u3046\u30c4\u30fc\u30eb\u30d0\u30fc\u3068\u3001\u300c\u30c6\u30ad\u30b9\u30c8\u64cd\u4f5c\u7cfb\u30c4\u30fc\u30eb\u30d0\u30fc01\u300d\u3068\u3044\u3046\u30c4\u30fc\u30eb\u30d0\u30fc\u304c\u751f\u6210\u3055\u308c\u308b\u3088\u3046\u306b\u3057\u3001\u524d\u8005\u306b\u304a\u3044\u3066\u306f\u77e9\u5f62\u3084\u77e2\u5370\u306a\u3069\u3092\u81ea\u52d5\u633f\u5165\u3001\u5f8c\u8005\u306b\u304a\u3044\u3066\u306f\u6bb5\u843d\u3068\u30d5\u30a9\u30f3\u30c8\u306e\u81ea\u52d5\u8a2d\u5b9a\u3001\u7b49\u3005\u306e\u30dc\u30bf\u30f3\u3092\u914d\u7f6e\u3057\u307e\u3059\u3002\u305d\u3057\u3066\u305d\u308c\u3089\u306e\u4f5c\u696d\u304c\u30e9\u30af\u306b\u884c\u3048\u308b\u3088\u3046\u306b\u3057\u307e\u3059\u3002<\/p>\n

\u3053\u306e\u30d7\u30ed\u30b0\u30e9\u30e0\u306f\u3001Word2003\u30012000\u306a\u3069\u306e\u3001\u53e4\u3044\u30d0\u30fc\u30b8\u30e7\u30f3\u3067\u3082\u305d\u306e\u307e\u307e\u4f7f\u3048\u307e\u3059\u3002<\/p>\n

\u3068\u3044\u3044\u307e\u3059\u304b\u3001\u672c\u5f53\u306f \u65e7\u30d0\u30fc\u30b8\u30e7\u30f3\u3067\u52d5\u304f\u30d7\u30ed\u30b0\u30e9\u30e0\u3092\u30d0\u30fc\u30b8\u30e7\u30f32010\u3067\u3082\u8a66\u3057\u3066\u307f\u305f\u3089\u3001\u4e00\u5fdc\u52d5\u3044\u3066\u3057\u307e\u3044\u3001\u300c\u5b8c\u5168\u3058\u3083\u306a\u3044\u3051\u3069\u307e\u3042\u305d\u308c\u306a\u308a\u306b\u4f7f\u3048\u308b\u300d\u3068\u3044\u3046\u72b6\u6cc1\u306b\u306a\u3063\u3066\u3044\u305f\u3082\u306e\u3067\u3059\u304b\u3089\u3001\u3054\u7d39\u4ecb\u3055\u305b\u3066\u9802\u304d\u307e\u3057\u305f\u3002<\/p>\n

\u672c\u6765\u306f\u3001\u30ea\u30dc\u30f3\u3092\u76f4\u63a5\u64cd\u4f5c\u3059\u308b\u30d7\u30ed\u30b0\u30e9\u30e0\u3067\u300c\u77e9\u5f62\u3084\u77e2\u5370\u306a\u3069\u3092\u81ea\u52d5\u633f\u5165\u306e\u30dc\u30bf\u30f3\u300d\u306a\u3069\u3092\u30ea\u30dc\u30f3\u306b\u4f5c\u308b\u3079\u304d\u3060\u3068\u601d\u3044\u307e\u3059\u304c\u3001\u9762\u5012\u306a\u306e\u3067\u3001\u53e4\u3044\u30d0\u30fc\u30b8\u30e7\u30f3\u306e\u30d7\u30ed\u30b0\u30e9\u30e0\u3067\u3084\u3063\u3066\u307f\u307e\u3057\u305f\u3002\uff08\u5168\u30d0\u30fc\u30b8\u30e7\u30f3\u5171\u901a\u3067\u52d5\u304f\u3082\u306e\u304c\u3042\u308c\u3070\u3001\u3082\u3068\u3082\u3068\u305f\u304f\u3055\u3093\u306e\u30e1\u30cb\u30e5\u30fc\u30dc\u30bf\u30f3\u3092\u4f5c\u308b\u308f\u3051\u3067\u306f\u306a\u3044\u306e\u3067 \u305d\u308c\u306f\u305d\u308c\u3067\u4f7f\u3044\u3084\u3059\u3044\u304b\u3068\u601d\u3044\u7121\u7406\u77e2\u7406\u52d5\u304b\u3057\u3066\u4f7f\u3063\u3066\u3044\u307e\u3059\u30fb\u30fb\u30fb\u3002\uff09<\/p>\n

\u4e0b\u56f3\u306e\u3088\u3046\u306a\u52d5\u304d\u306b\u306a\u308a\u307e\u3059\u3002<\/p>\n

\u56f301\uff1a\u30c4\u30fc\u30eb\u30d0\u30fc\u306e\u81ea\u52d5\u914d\u7f6e
\n\"\"<\/a><\/p>\n

\u56f302\uff1a\u30dc\u30bf\u30f3\u306e\u52d5\u304d\u306e\u4f8b-01
\n\"\"<\/a><\/p>\n

\u56f303\uff1a\u30dc\u30bf\u30f3\u306e\u52d5\u304d\u306e\u4f8b-02
\n\"\"<\/a><\/p>\n

\u203b\u6ce8\u610f
\nWord\u306e\u5834\u5408\u5404\u56f3\u5f62\uff08\u5404\u30aa\u30fc\u30c8\u30b7\u30a7\u30a4\u30d7\uff09\u306e\u30a2\u30f3\u30ab\u30fc\u306e\u4f4d\u7f6e\u3092\u3001\u5404\u56f3\u5f62\u3054\u3068\u306b\u5909\u3048\u305f\u307b\u3046\u304c\u305d\u306e\u5f8c\u306e\u30c8\u30e9\u30d6\u30eb\u304c\u5c11\u306a\u3044\u3088\u3046\u306a\u306e\u3067\u3001\u56f3\u5f62\u3092\u8868\u793a\u3057\u305f\u3044\u4ed8\u8fd1\u306e\u884c\u306e\u5148\u982d\u306b\u3001\u3044\u3063\u305f\u3093\u70b9\u6ec5\u30ab\u30fc\u30bd\u30eb\u3092\u7f6e\u3044\u305f\u307b\u3046\u304c\u3044\u3044\u307f\u305f\u3044\u3067\u3059\u3002Excel\u306e\u5834\u5408\u306f\u30a2\u30f3\u30ab\u30fc\u306e\u6982\u5ff5\u304c\u7121\u3044\u6c17\u304c\u3059\u308b\u306e\u3067\u5fc5\u8981\u306a\u3044\u304b\u3082\u3057\u308c\u307e\u305b\u3093\u3002<\/span><\/p>\n

\u2605 Excel\u306e\u5834\u5408\u3068\u306e\u9055\u3044<\/a><\/p>\n

\u57fa\u672c\u7684\u306b\u307b\u307c\u540c\u3058\u30d7\u30ed\u30b0\u30e9\u30e0\u5185\u5bb9\u3067Excel\u3067\u3082\u884c\u3051\u307e\u3059\u304c\u3001\u307e\u305a\u3001\u7d42\u76e4\u306e(02)\u3067\u3054\u7d39\u4ecb\u3059\u308b\u300e(02) \u30ea\u30dc\u30f3\u306b\uff12\u3064\u306e\u30c4\u30fc\u30eb\u30d0\u30fc\uff08\u5404\u30dc\u30bf\u30f3\u542b\u3080\uff09\u3092\u751f\u6210\u3059\u308b\u30d7\u30ed\u30b0\u30e9\u30e0\u300f\u306e\u3001\u3059\u3079\u3066\u306e\u300cOnAction \u300d\u306e\u884c\u306e\u3001\u300c=\u300d\u306e\u53f3\u5074\u304c\u7570\u306a\u308a\u307e\u3059\u3002<\/p>\n

Word\u306e\u5834\u5408\u306f\u3001\u30de\u30af\u30ed\u306e\u30dc\u30bf\u30f3\u3068\u300c\u633f_\u77e2\u5370_\u8d641()\u300d\u3068\u3044\u3046\u30d7\u30ed\u30b0\u30e9\u30e0\u3092\u7d10\u4ed8\u3051\u3057\u305f\u3044\u5834\u5408\u3001\u3064\u307e\u308a\u3001\u30e1\u30cb\u30e5\u30fc\u30dc\u30bf\u30f3\u3092\u62bc\u3057\u305f\u3068\u304d\u306b\u300c\u633f_\u77e2\u5370_\u8d641()\u300d\u3068\u3044\u3046\u30d7\u30ed\u30b0\u30e9\u30e0\u304c\u5b9f\u884c\u3055\u308c\u308b\u3088\u3046\u306b\u3057\u305f\u3044\u5834\u5408\u3001\u300c\u633f_\u77e2\u5370_\u8d641()\u300d\u304c\u66f8\u304b\u308c\u3066\u3044\u308b\u6a19\u6e96\u30e2\u30b8\u30e5\u30fc\u30eb\u540d\u3092\u6307\u5b9a\u3057\u307e\u3059\u3002
\n\u300c \u00d7\u00d7\u00d7.OnAction = \u6a19\u6e96\u30e2\u30b8\u30e5\u30fc\u30eb\u540d.\u30d7\u30ed\u30b7\u30fc\u30b8\u30e3\u540d\u300d\u3068\u3044\u3046\u5f62\u3067\u3059\u3002<\/p>\n

\u4f8b\u3048\u3070\u4e0b\u8a18\u306e\u3088\u3046\u306b\u306a\u308a\u307e\u3059\u3002<\/p>\n

\r\n'\r\n'\r\nmyBar.Controls(3).OnAction = \"ToolBarButtonCode.\u633f_\u77e2\u5370_\u8d641\"\r\n'\r\n<\/pre>\n
\u305d\u308c\u306b\u5bfe\u3057\u3066Excel\u306e\u5834\u5408\u306f\u3001\u300c \u00d7\u00d7\u00d7.OnAction = \u30d5\u30a1\u30a4\u30eb\u540d!\u6a19\u6e96\u30e2\u30b8\u30e5\u30fc\u30eb\u306e\u30d7\u30ed\u30b7\u30fc\u30b8\u30e3\u540d\u300d\u3068\u3044\u3046\u5f62\u3067\u3059\u3002
\n\u4f8b\u3048\u3070\u4e0b\u8a18\u306e\u3088\u3046\u306b\u306a\u308a\u307e\u3059\u3002<\/p>\n
\r\n'\r\n'\r\nmyBar.Controls(3).OnAction = \"PERSONAL.XLS!cell_hiduke_yyyy_mm_dd\"\r\n'\r\n<\/pre>\n
\u3042\u3068\u306f\u3001\u6b21\u9805\u306e\u300c(01)\u30c4\u30fc\u30eb\u30d0\u30fc\u306e\u5404\u30dc\u30bf\u30f3\u306e\u52d5\u4f5c\u3092\u6c7a\u3081\u308b\u30d7\u30ed\u30b0\u30e9\u30e0\u300d\u3067\u306e\u3001\u3059\u3079\u3066\u306e\u30d7\u30ed\u30b7\u30fc\u30b8\u30e3\u306e\u3001<\/p>\n
Dim myDocument  As Document
\n\u3092
\nDim myDocument  As Worksheet<\/p>\n
\u306b\u66f8\u304d\u63db\u3048\u3066\u3001\u304b\u3064\u3001<\/p>\n
Set myDocument = ActiveDocument
\n\u3092
\nSet myDocument = ActiveSheet<\/p>\n
\u306b\u66f8\u304d\u63db\u3048\u308c\u3070OK\u3067\u3059\u3002
\n\uff08\u3044\u305a\u308c\u3082\u4e00\u62ec\u7f6e\u63db\u3067\u3082OK\u3067\u3059\u3002\uff09<\/p>\n
\u307e\u305f\u3001\u30d0\u30fc\u30b8\u30e7\u30f3\u306b\u3088\u3063\u3066\u30dc\u30bf\u30f3\u306eID\u306e\u756a\u53f7\u304c\u5909\u308f\u3063\u3066\u304f\u308b\u304b\u3082\u3057\u308c\u306a\u3044\u306e\u3067\u3001\u3082\u3057\u305d\u3046\u306a\u3089\u305d\u306e\u5834\u5408\u306f\u3055\u3089\u306b\u5909\u3048\u307e\u3059\u3002\u305f\u3068\u3048\u3070Word2010\u306e\u5834\u5408\u3001\u30de\u30af\u30ed\u306e\u30dc\u30bf\u30f3\u306eID\u306f\u300c1\u300d\u306e\u3088\u3046\u3067\u3059\u306e\u3067\u3001\u3059\u3079\u3066\u306e\u300cmyBar.Controls.Add ID:=2950\u300d\u306e\u300c2950\u300d\u3092\u300c1\u300d\u306b\u66f8\u304d\u63db\u3048\u3066\u3001\u300cmyBar.Controls.Add ID:=1\u300d\u3068\u3057\u307e\u3059\u3002\u4ee5\u4e0b\u306e\u3088\u3046\u306a\u611f\u3058\u306b\u306a\u308a\u307e\u3059\u3002<\/p>\n
\r\n'\r\n'\r\n    '2\u3064\u3081\u306e\u30dc\u30bf\u30f3\u3092\u8ffd\u52a0\r\n\r\n    myBar.Controls.Add ID:=1    'Word2010\u306e\u5834\u5408\u3002\u672c\u30c4\u30fc\u30eb\u30d0\u30fc\u306e2\u3064\u76ee\u306e\u30dc\u30bf\u30f3\u300c\u30de\u30af\u30ed\u300d\u30dc\u30bf\u30f3\u3092\u8ffd\u52a0\u3057\u307e\u3059\r\n'    myBar.Controls.Add ID:=2950 'Word2000\u306e\u5834\u5408\r\n    myBar.Controls(2).Style = msoButtonIconAndCaption     ' \u30dc\u30bf\u30f3\u306e\u8868\u793a\u5f62\u5f0f\u3092\u300c\u30a4\u30e1\u30fc\u30b8\u3068\u30c6\u30ad\u30b9\u30c8\u300d\u306b\u3059\u308b\u3002\r\n    myBar.Controls(2).Caption = \"hms(&C)\"                 ' \u30dc\u30bf\u30f3\u306e\u300c\u30c6\u30ad\u30b9\u30c8\u300d\u90e8\u5206\u3092\u3001\u300chms(&C)\u300d\u306b\u5909\u66f4\u3059\u308b\u3002\u300c(&C)\u300d\u3092\u4ed8\u3051\u306a\u3044\u3068\u30a8\u30e9\u30fc\u306b\u306a\u308b\u3002\r\n'    myBar.Controls(2).OnAction = \"PERSONAL.XLS!cell_jikoku_hh_mm_ss\"   ' Excel\u306e\u5834\u5408\u3002\u30dc\u30bf\u30f3\u3092\u300cPERSONAL.XLS\u300d\u306e\u300ccell_jikoku_hh_mm_ss\u300d\u30d7\u30ed\u30b7\u30fc\u30b8\u30e3\u3068\u95a2\u9023\u4ed8\u3051\u308b\r\n    myBar.Controls(2).OnAction = \"ToolBarButtonCode.\u633f_\u77e2\u5370_\u97521\"   ' Word\u306e\u5834\u5408\u3002\r\n'\r\n<\/pre>\n
\u3082\u3061\u308d\u3093\u3001Excel\u306b\u3042\u3063\u3066Word\u306b\u7121\u3044\u547d\u4ee4\u30fb\u30e1\u30cb\u30e5\u30fc\u3001\u306e\u5834\u5408\u3084\u305d\u306e\u9006\u306e\u5834\u5408\u306f\u540c\u3058\u30d7\u30ed\u30b0\u30e9\u30e0\u306f\u4f7f\u3048\u307e\u305b\u3093\u3002<\/p>\n
\u30b1\u30fc\u30b9\u3084\u30d7\u30ed\u30b0\u30e9\u30e0\u5185\u5bb9\u306b\u3088\u3063\u3066\u306f\u3001\u4e38\u3054\u3068Word\u306b\u8ee2\u7528\u3067\u304d\u306a\u3044\u3053\u3068\u3082\u3042\u308b\u304b\u3068\u601d\u3044\u307e\u3059\u304c\u3001\u304a\u304a\u3080\u306d\u3001\u3053\u306e\u3088\u3046\u306a\u9055\u3044\u3055\u3048\u7406\u89e3\u3057\u3066\u3044\u305f\u3060\u3051\u308c\u3070\u3001\u4eca\u56de\u306e\u3088\u3046\u306b\u30aa\u30fc\u30c8\u30b7\u30a7\u30a4\u30d7\u3092\u633f\u5165\u3059\u308b\u3088\u3046\u306a\u3001Excel\u3067\u3082Word\u3067\u3082\u5171\u901a\u306a\u30e1\u30cb\u30e5\u30fc\u306a\u3089\u3001\u6839\u672c\u7684\u306a\u30d7\u30ed\u30b0\u30e9\u30e0\u3068\u3057\u3066\u66f8\u304f\u5185\u5bb9\u306f\u540c\u3058\u3067\u3059\u3002<\/p>\n
\u203b\u88dc\u8db301
\nWord\u306e\u5834\u5408\u3001\u30e1\u30cb\u30e5\u30fc\u95a2\u4fc2\u306e\u5171\u7528\u90e8\u54c1\u306f\u300cNormal.dot\u300d\u3068\u3044\u3046\u30d5\u30a1\u30a4\u30eb\u306b\u66f8\u304f\u3053\u3068\u304c\u591a\u3044\u3067\u3059\u3002\u300cNormal.dot\u300d\u306b\u30d7\u30ed\u30b0\u30e9\u30e0\u3092\u66f8\u304f\u3068\u3001\u3059\u3079\u3066\u306eWord\u30d5\u30a1\u30a4\u30eb\u306b\u30d7\u30ed\u30b0\u30e9\u30e0\u3092\u4fdd\u5b58\u30fb\u4e0a\u66f8\u304d\u4fdd\u5b58\u30fb\u5b9f\u884c\u304c\u3067\u304d\u307e\u3059\u3002\u300cdocx\u300d\u62e1\u5f35\u5b50\u306e\u30d5\u30a1\u30a4\u30eb\u3092\u958b\u3044\u3066\u3044\u305f\u6642\u3067\u3082\u3001\u300cNormal.dot\u300d\u30d5\u30a1\u30a4\u30eb\u306b\u3060\u3051\u306fVBA\u30d7\u30ed\u30b0\u30e9\u30e0\u3092\u4fdd\u5b58\u30fb\u4e0a\u66f8\u304d\u4fdd\u5b58\u30fb\u5b9f\u884c\u304c\u3067\u304d\u307e\u3059\u3002<\/p>\n
\u203b\u88dc\u8db302
\nExcel\u306e\u5834\u5408\u306e\u30e1\u30cb\u30e5\u30fc\u95a2\u4fc2\u306e\u5171\u7528\u90e8\u54c1\u306f\u3001\u300cC:\\Users\\\u30e6\u30fc\u30b6\u30fc\u540d\\AppData\\Roaming\\Microsoft\\Excel\\XLSTART\u300d\u3068\u3044\u3046\u30d5\u30a9\u30eb\u30c0\u306b\u3001\u307e\u305a\u300cPERSONAL.XLS\u300d\u3068\u3044\u3046\u540d\u524d\u306e\u7a7a\u306eXLS\u30d5\u30a1\u30a4\u30eb\u3092\u4f5c\u308a\u3001\u305d\u306e\u4e2d\u306e\u6a19\u6e96\u30e2\u30b8\u30e5\u30fc\u30eb\u306b\u66f8\u3044\u305f\u30d7\u30ed\u30b0\u30e9\u30e0\uff08\u30d7\u30ed\u30b7\u30fc\u30b8\u30e3\uff09\u306e\u540d\u524d\u3092\u6307\u5b9a\u3057\u307e\u3059\u3002\u30d5\u30a1\u30a4\u30eb\u540d\u306e\u62e1\u5f35\u5b50\u306f\u300cxlsm\u300d\u3067\u306f\u306a\u304f\u3066\u300cxls\u300d\u3067\u3059\u3002\u4f5c\u6210\u3057\u305f\u3089\u3001\u3044\u3063\u305f\u3093\u305d\u306e\u30d5\u30a1\u30a4\u30eb\u3092\u958b\u3044\u3066\u300c\u975e\u8868\u793a\u300d\u306e\u8a2d\u5b9a\u306b\u3057\u3066\u4e0a\u66f8\u304d\u4fdd\u5b58\u3057\u3066\u9589\u3058\u307e\u3059\uff08\u300c\u975e\u8868\u793a\u300d\u306b\u3057\u306a\u3044\u3068\u666e\u901a\u306eExcel\u30d5\u30a1\u30a4\u30eb\u3092\u958b\u3044\u305f\u3068\u304d\u306b\u300cPERSONAL.XLS\u300d\u3082\u3044\u3063\u3057\u3087\u306b\u753b\u9762\u306b\u8868\u793a\u3055\u308c\u3066\u3057\u307e\u3046\u305f\u3081\u3067\u3059\uff09\u3002\u305d\u308c\u3067\u5171\u7528\u90e8\u54c1\u5316\u8a2d\u5b9a\u304c\u5b8c\u4e86\u3067\u3059\u3002
\n\u306a\u304a\u3001\u6a19\u6e96\u30e2\u30b8\u30e5\u30fc\u30eb\u306e\u540d\u524d\u306f\u4f55\u3067\u3082\u3044\u3044\u3067\u3059\u3002\u3053\u3053\u3067\u306e\u30d7\u30ed\u30b0\u30e9\u30e0\u306f \u6a19\u6e96\u30e2\u30b8\u30e5\u30fc\u30eb\u540d\u306b\u306f\u5de6\u53f3\u3055\u308c\u307e\u305b\u3093\u3002Excel\u306e\u5834\u5408\u3001\u5de6\u53f3\u3055\u308c\u308b\u306e\u306f\u30d5\u30a1\u30a4\u30eb\u540d\u3068\u30d7\u30ed\u30b7\u30fc\u30b8\u30e3\u540d\u306e\u307f\u3067\u3059\u3002
\nWord\u3068\u540c\u69d8\u3001\u3069\u306eExcel\u30d5\u30a1\u30a4\u30eb\u304b\u3089\u3082\u30d7\u30ed\u30b0\u30e9\u30e0\u3092\u4fdd\u5b58\u30fb\u4e0a\u66f8\u304d\u4fdd\u5b58\u30fb\u5b9f\u884c\u304c\u3067\u304d\u307e\u3059\u3002<\/p>\n
\u203b\u300cPERSONAL.XLS\u300d\u306e\u4f5c\u308a\u65b9
\n2010\u306e\u5834\u5408\u3001\u6700\u521d\u3001xlsx\u62e1\u5f35\u5b50\u3068\u3057\u3066\u753b\u9762\u304c\u958b\u304d\u307e\u3059\u306e\u3067\u3001\u5148\u306b\u3001\u30de\u30a4\u30c9\u30ad\u30e5\u30e1\u30f3\u30c8\u306a\u3069\u306b\u7a7a\u306exls\u30d5\u30a1\u30a4\u30eb\u3092\u5225\u540d\u4fdd\u5b58\u3057\u307e\u3059\u3002\u30d5\u30a1\u30a4\u30eb\u2192\u540d\u524d\u3092\u4ed8\u3051\u3066\u4fdd\u5b58\u2192\u30d5\u30a1\u30a4\u30eb\u306e\u7a2e\u985e\u306e\u30c9\u30ed\u30c3\u30d7\u30c0\u30a6\u30f3\u30e1\u30cb\u30e5\u30fc\u3092\u300cExcel97-2003\u30d6\u30c3\u30af\uff08xls\uff09\u300d\u306b\u5909\u66f4\u2192PERSONAL.XLS\u3068\u3044\u3046\u540d\u524d\u3067\u300cOK\u300d\u3057\u307e\u3059\u3002\uff08Excel2010\u3067\u3082\u300cPERSONAL.XLS\u300d\u3068\u3044\u3046\u540d\u524d\u3067OK\u3067\u3059\u3002\u62e1\u5f35\u5b50\u306fxlsm\u3067\u306f\u306a\u304f\u3066\u300cxls\u300d\u3067\u3059\u3002\uff09
\n\u7a7a\u306exls\u30d5\u30a1\u30a4\u30eb\u304c\u3067\u304d\u305f\u3089\u300cC:\\Users\\\u30e6\u30fc\u30b6\u30fc\u540d\\AppData\\Roaming\\Microsoft\\Excel\\XLSTART\u300d\u3068\u3044\u3046\u30d5\u30a9\u30eb\u30c0\u306b\u3001\u305d\u306e\u30d5\u30a1\u30a4\u30eb\u3092\u79fb\u52d5\u3057\u307e\u3059\u3002<\/p>\n
\u306a\u304a\u30012007\u4ee5\u964d\uff1f\u306e\u5834\u5408\u306f\u3001\u300cxlsb\u300d\u62e1\u5f35\u5b50\u307b\u3046\u306e\u304c\u672c\u5f53\u307f\u305f\u3044\u3067\u3059\u3002\u81ea\u52d5\u7684\u306b\u500b\u4eba\u7528\u30de\u30af\u30ed\u30d6\u30c3\u30af\u3068\u3057\u3066\u751f\u6210\u3055\u308c\u308b\u306e\u304c\u666e\u901a\u3067\u3059\u3002\u3067\u3082xls\u62e1\u5f35\u5b50\u3067\u3082\u52d5\u304d\u307e\u3059\u3002\u3082\u3057xls\u3067\u4e0d\u5177\u5408\u304c\u51fa\u308b\u306a\u3089\u524d\u8ff0\u306e\u5bb9\u91cf\u3067\u4eca\u5ea6\u306f\u7a7a\u306exlsb\u30d5\u30a1\u30a4\u30eb\u3092\u4f5c\u3063\u3066\u3001\u305d\u308c\u306b\u30d7\u30ed\u30b0\u30e9\u30e0\u3092\u30a4\u30f3\u30dd\u30fc\u30c8\u3059\u308c\u3070OK\u304b\u3068\u601d\u3044\u307e\u3059\u3002\uff08\u30a4\u30f3\u30dd\u30fc\u30c8\u3067\u304d\u308b\u306e\u304b\u306a\uff1f\u3067\u304d\u306a\u304b\u3063\u305f\u3089\u5358\u7d14\u306b\u30e2\u30b8\u30e5\u30fc\u30eb\u3054\u3068\u306bxls\u304b\u3089\u30b3\u30d4\u30da\u3067OK\u3067\u3059\u3002\uff09<\/p>\n
\u79fb\u52d5\u5b8c\u4e86\u3057\u305f\u3089\u3001\u3044\u3063\u305f\u3093\u305d\u306e\u30d5\u30a1\u30a4\u30eb\u3092\u958b\u3044\u3066\u300c\u975e\u8868\u793a\u300d\u306e\u8a2d\u5b9a\u306b\u3057\u3066\u4e0a\u66f8\u304d\u4fdd\u5b58\u3057\u3066\u9589\u3058\u307e\u3059\u3002
\n\u300c\u975e\u8868\u793a\u300d\u306b\u3057\u306a\u3044\u3068\u666e\u901a\u306eExcel\u30d5\u30a1\u30a4\u30eb\u3092\u958b\u3044\u305f\u3068\u304d\u306b\u300cPERSONAL.XLS\u300d\u3082\u3044\u3063\u3057\u3087\u306b\u753b\u9762\u306b\u8868\u793a\u3055\u308c\u3066\u3057\u307e\u3046\u305f\u3081\u3067\u3059\u3002\u3053\u308c\u3067\u5171\u7528\u90e8\u54c1\u5316\u8a2d\u5b9a\u304c\u5b8c\u4e86\u3067\u3059\u3002<\/p>\n
\u975e\u8868\u793a\u8a2d\u5b9a\u306e\u3057\u304b\u305f\u306f\u4ee5\u4e0b\u306e\u3068\u304a\u308a\u3067\u3059\u3002
\n2007\u4ee5\u964d\u306e\u5834\u5408\u306f\u300c\u8868\u793a\u300d\u30bf\u30d6\u2192\u300c\u30a6\u30a3\u30f3\u30c9\u30a6\u300d\u30b0\u30eb\u30fc\u30d7\u2192\u300c\u8868\u793a\u3057\u306a\u3044\u300d\u3067\u3044\u3044\u3088\u3046\u3067\u3059\u3002
\n\u300c\u8868\u793a\u3057\u306a\u3044\u300d\u304c\u7121\u3044\u3088\u3046\u306b\u898b\u3048\u305f\u3089\u3001\u30a2\u30a4\u30b3\u30f3\u3060\u3051\u51fa\u3066\u3044\u308b\u72b6\u614b\u304b\u3082\u3057\u308c\u307e\u305b\u3093\u3002\u753b\u9762\u3092\u6700\u5927\u5316\u3059\u308b\u304b\u6a2a\u65b9\u5411\u306b\u76ee\u3044\u3063\u3071\u3044\u5e83\u3052\u308b\u3068\u30a2\u30a4\u30b3\u30f3\u3068\u6587\u8a00\u306e\u4e21\u65b9\u304c\u898b\u3048\u308b\u3068\u601d\u3044\u307e\u3059\u3002
\n2003\u4ee5\u524d\u306e\u5834\u5408\u306f\u3001\u30a6\u30a3\u30f3\u30c9\u30a6\u2192\u300c\u8868\u793a\u3057\u306a\u3044\u300d\u3067OK\u3067\u3059\u3002<\/p>\n
\u3000\u3000<\/SPAN>
\n\u3000\u3000<\/SPAN>
\n\u2605 \u30d7\u30ed\u30b0\u30e9\u30e0\u3092\u30b3\u30d4\u30da\u3059\u308b\u5834\u6240\u3068\u6a19\u6e96\u30e2\u30b8\u30e5\u30fc\u30eb\u306e\u540d\u524d\u306e\u5909\u3048\u65b9<\/a><\/p>\n
\u30d7\u30ed\u30b0\u30e9\u30e0\u306f\u3059\u3079\u3066 Normal.dot \u306b\u30b3\u30d4\u30da\u3057\u307e\u3059\u3002
\n\u7406\u7531\u306f\u3001Normal.dot \u306b\u66f8\u304b\u308c\u305f\u30d7\u30ed\u30b0\u30e9\u30e0\u306f\u3001\u30de\u30af\u30ed\u304c\u52d5\u304b\u306a\u3044\u306f\u305a\u306e\u300cdocx\u300d\u62e1\u5f35\u5b50\u306e\u30d5\u30a1\u30a4\u30eb\u4e0a\u3067\u3082\u52d5\u304f\u304b\u3089\u3067\u3059\u3002\uff08\u3055\u3089\u306b\u305d\u306e\u7406\u7531\u306f\u3001Normal.dot \u304c\u3001docx\u3084docm\u306a\u3069\u306e\u3059\u3079\u3066\u306eWord\u30d5\u30a1\u30a4\u30eb\u306e\u3072\u306a\u578b\u3060\u304b\u3089\u3067\u3059\u3002Normal.dot\u3067\u300c\u65e2\u5b9a\u300d\u306b\u8a2d\u5b9a\u3055\u308c\u305f\u3082\u306e\u306f\u3059\u3079\u3066\u306e\u30ef\u30fc\u30c9\u30d5\u30a1\u30a4\u30eb\u306e\u300c\u65e2\u5b9a\u300d\u3068\u306a\u308b\u304b\u3089\u3067\u3059\u3002\u305d\u306e\u305f\u3081\u3001Normal.dot\u306b\u66f8\u304b\u308c\u305f\u30d7\u30ed\u30b0\u30e9\u30e0\u306f\u62e1\u5f35\u5b50\u304cdocx\u3067\u3082docm\u3067\u3082\u5171\u7528\u90e8\u54c1\u30fb\u5171\u7528\u30d7\u30ed\u30b0\u30e9\u30e0\u3068\u3057\u3066\u52d5\u304d\u307e\u3059\u3002\uff09<\/p>\n
Word2010\u306e\u5834\u5408\u3001\u300c\u958b\u767a\u300d\u30bf\u30d6\u2192VisuaiBasic \u3067 Normal.dot\u306b\u6a19\u6e96\u30e2\u30b8\u30e5\u30fc\u30eb\u3092\u4f5c\u308c\u308b\u3088\u3046\u306b\u306a\u308a\u307e\u3059\u3002
\n\"\"<\/a><\/p>\n
\u4e0b\u56f3\u306e\u3088\u3046\u306b\u300cVisual Basic Editor\u300d\u304c\u958b\u304d\u307e\u3059\u306e\u3067\u3001\u307e\u305a\u305d\u306e\u753b\u9762\u306e\u5de6\u5074\u30fb\u4e0a\u306e\u30da\u30a4\u30f3\u306e\u300cNormal\u300d\u3092\u62bc\u3057\u307e\u3059\u3002
\n\"\"<\/a><\/p>\n
\u3053\u306e\u300cNormal\u300d\u306f\u300cNormal.dot\u306e\u30d7\u30ed\u30b0\u30e9\u30e0\u304c\u96c6\u307e\u3063\u3066\u307e\u3059\u3088\uff5e\u300d\u3068\u3044\u3046\u610f\u5473\u3067\u3059\u3002<\/p>\n
\u305d\u3053\u3092\u30af\u30ea\u30c3\u30af\u3057\u305f\u3089\u3001\u4eca\u5ea6\u306f\u300c\u633f\u5165\u300d\u2192\u300c\u6a19\u6e96\u30e2\u30b8\u30e5\u30fc\u30eb\u300d\u3068\u30af\u30ea\u30c3\u30af\u3057\u3066\u3044\u304d\u307e\u3059\u3002
\n\"\"<\/a><\/p>\n
\u300cModule1\u300d\u3068\u3044\u3046\u6a19\u6e96\u30e2\u30b8\u30e5\u30fc\u30eb\u304c\u3067\u304d\u307e\u3059\u3002
\n\u591a\u304f\u306e\u30d7\u30ed\u30b0\u30e9\u30e0\u306f\u3053\u3053\u306b\u30b3\u30d4\u30da\u3057\u307e\u3059\u3002
\n\"\"<\/a><\/p>\n
\u306a\u304a\u3001\u539f\u5247\u3068\u3057\u3066\u306f\u3001\u6a19\u6e96\u30e2\u30b8\u30e5\u30fc\u30eb\u306b\u30d7\u30ed\u30b0\u30e9\u30e0\u3092\u30b3\u30d4\u30da\u3059\u308c\u3070\u3001\u305d\u306e\u6a19\u6e96\u30e2\u30b8\u30e5\u30fc\u30eb\u306e\u540d\u524d\u304c\u300cModule1\u300d\u3060\u308d\u3046\u304c\u300cModule2\u300d\u3060\u308d\u3046\u304c\u4f55\u3060\u308d\u3046\u304c\u30d7\u30ed\u30b0\u30e9\u30e0\u306f\u52d5\u304d\u307e\u3059\u3002
\n\u305f\u3060\u3001\u4eca\u56de\u306e\u3053\u306e\u8a18\u4e8b\u3067\u306f\u3001\u300c\u3042\u308b\u6a19\u6e96\u30e2\u30b8\u30e5\u30fc\u30eb\u306e\u540d\u524d\u3060\u3051\u306f \u00d7\u00d7\u00d7 \u3068\u3044\u3046\u540d\u524d\u3067\u306a\u3051\u308c\u3070\u306a\u3089\u306a\u3044\u300d\u3068\u3044\u3046\u3053\u3068\u3092\u3057\u306a\u3051\u308c\u3070\u306a\u308a\u307e\u305b\u3093\u3002<\/p>\n
\u305d\u306e\u3088\u3046\u306b\u4f55\u3089\u304b\u306e\u540d\u524d\u5909\u66f4\u306e\u6307\u793a\u304c\u3042\u3063\u305f\u5834\u5408\u3060\u3051\u306f\u3001\u6a19\u6e96\u30e2\u30b8\u30e5\u30fc\u30eb\u306e\u540d\u524d\u3092\u5909\u3048\u307e\u3059\u3002<\/p>\n
\u3042\u3068\u306f\u3069\u3093\u306a\u6a19\u6e96\u30e2\u30b8\u30e5\u30fc\u30eb\u540d\u3067\u3082\u3044\u3044\u306e\u3067\u3001\u300c\u5171\u901a\u90e8\u54c101\u300d\u3068\u304b\u300c\u30c4\u30fc\u30eb\u30d0\u30fc\u7528\u300d\u3068\u304b\u300c\u30e1\u30cb\u30e5\u30fc\u30d0\u30fc\u7528\u300d\u3068\u304b\u7ba1\u7406\u3057\u3084\u3059\u3044\u540d\u524d\u306b\u5909\u66f4\u3057\u307e\u3059\u3002<\/p>\n
\u306a\u304a\u3001\u6a19\u6e96\u30e2\u30b8\u30e5\u30fc\u30eb\u306e\u540d\u524d\u3092\u5909\u66f4\u3059\u308b\u306b\u306f\u3001\u4e0b\u56f3\u306e\u3088\u3046\u306b\u3057\u307e\u3059\u3002
\n\"\"<\/a><\/p>\n
(01)\u300c\u633f\u5165\u300d\u2192\u300c\u6a19\u6e96\u30e2\u30b8\u30e5\u30fc\u30eb\u300d\u3092\u62bc\u3057\u3066\u751f\u6210\u3055\u308c\u305f\u6a19\u6e96\u30e2\u30b8\u30e5\u30fc\u30eb\uff08\u300cModule1\u300d\u306a\u3069\uff09\u3092\u30af\u30ea\u30c3\u30af
\n(02)\u3059\u308b\u3068\u305d\u306e\u4e0b\u306b\u3082\u6a19\u6e96\u30e2\u30b8\u30e5\u30fc\u30eb\u540d\u304c\u51fa\u3066\u304f\u308b\u306e\u3067\u3001\u305d\u3061\u3089\u5074\u3067\u540d\u524d\u3092\u5909\u66f4\u3057\u3066Enter\u3057\u307e\u3059\u3002
\n(03)\u4e0a\u90e8\u306e\u6a19\u6e96\u30e2\u30b8\u30e5\u30fc\u30eb\u306e\u540d\u524d\u306b\u3082\u305d\u306e\u5909\u66f4\u304c\u53cd\u6620\u3055\u308c\u307e\u3059\u3002
\n\u3000\u3000<\/SPAN>
\n\u3000\u3000<\/SPAN>
\n\u2605 \u30b3\u30d4\u30da\u3059\u308b\u30d7\u30ed\u30b0\u30e9\u30e0\u5185\u5bb9<\/a><\/p>\n
(01)\u30c4\u30fc\u30eb\u30d0\u30fc\u306e\u5404\u30dc\u30bf\u30f3\u306e\u52d5\u4f5c\u3092\u6c7a\u3081\u308b\u30d7\u30ed\u30b0\u30e9\u30e0<\/a>
\nNormal.dot\u306b\u6a19\u6e96\u30e2\u30b8\u30e5\u30fc\u30eb\u3092\u4f5c\u308a\u3001\u540d\u524d\u3092\u3001\u300cToolBarButtonCode\u300d\u306b\u3057\u3066\u304b\u3089\u30b3\u30d4\u30da\u3057\u307e\u3059\u3002<\/p>\n
\u300cToolBarButtonCode\u300d\u3068\u3044\u3046\u6a19\u6e96\u30e2\u30b8\u30e5\u30fc\u30eb\u540d\u306f\u5909\u3048\u306a\u3044\u3067\u304f\u3060\u3055\u3044\u3002<\/p>\n
\u4ed6\u306e\u95a2\u9023\u30d7\u30ed\u30b0\u30e9\u30e0\u306e\u4e2d\u3067\u300cToolBarButtonCode\u300d\u3068\u3044\u3046\u6587\u5b57\u5217\u3092\u76f4\u63a5\u8a18\u8ff0\u3057\u3066\u4f7f\u3063\u3066\u3044\u308b\u306e\u3067\u3001\u305d\u308c\u4ee5\u5916\u306e\u6a19\u6e96\u30e2\u30b8\u30e5\u30fc\u30eb\u540d\u306b\u5909\u3048\u3066\u3057\u307e\u3046\u3068\u5168\u4f53\u306e\u30d7\u30ed\u30b0\u30e9\u30e0\u304c\u52d5\u304b\u306a\u304f\u306a\u3063\u3066\u3057\u307e\u3046\u304b\u3089\u3067\u3059\u3002<\/p>\n
\r\n'\r\n'\r\nOption Explicit\r\n\r\nSub \u633f_\u4e38\u77e9_\u8d64()\r\n\r\n    Dim myDocument  As Document\r\n    Dim TopNum01    As Variant\r\n    \r\n    TopNum01 = InputBox(\"\u914d\u7f6e\u3059\u308b\u9ad8\u3055\u306e\u4f4d\u7f6e\u3092100\uff5e700\u306e\u6570\u5b57\u3067\u6307\u5b9a\u3057\u3066\u304f\u3060\u3055\u3044\")\r\n    \r\n    If TopNum01 = \"\" Then\r\n        Exit Sub\r\n    Else\r\n    \r\n    End If\r\n    \r\n    Set myDocument = ActiveDocument\r\n    \r\n    With myDocument.Shapes.AddShape(Type:=msoShapeRoundedRectangle, Left:=100, Top:=TopNum01, Width:=100, Height:=50)\r\n        .Line.Weight = 2.25\r\n        .Line.ForeColor.RGB = RGB(255, 0, 0)\r\n        .Fill.Visible = msoFalse   '\u5857\u308a\u3064\u3076\u3057\u7121\u3057\u306b\u8a2d\u5b9a\u3002 \u7dda\u7121\u3057\u306f .Line.Visible = msoFalse\r\n        \r\n    End With\r\n\r\n\r\nEnd Sub\r\n\r\n\r\nSub \u633f_\u4e38\u77e9_\u9752()\r\n\r\n    Dim myDocument  As Document\r\n    Dim TopNum01    As Variant\r\n    \r\n    TopNum01 = InputBox(\"\u914d\u7f6e\u3059\u308b\u9ad8\u3055\u306e\u4f4d\u7f6e\u3092100\uff5e700\u306e\u6570\u5b57\u3067\u6307\u5b9a\u3057\u3066\u304f\u3060\u3055\u3044\")\r\n    \r\n    If TopNum01 = \"\" Then\r\n        Exit Sub\r\n    Else\r\n    \r\n    End If\r\n    \r\n    Set myDocument = ActiveDocument\r\n    With myDocument.Shapes.AddShape(Type:=msoShapeRoundedRectangle, Left:=100, Top:=TopNum01, Width:=100, Height:=50)\r\n        .Line.Weight = 2.25\r\n        .Line.ForeColor.RGB = RGB(0, 0, 255)\r\n        .Fill.Visible = msoFalse   '\u5857\u308a\u3064\u3076\u3057\u7121\u3057\u306b\u8a2d\u5b9a\u3002 \u7dda\u7121\u3057\u306f .Line.Visible = msoFalse\r\n        \r\n    End With\r\n\r\n\r\nEnd Sub\r\n\r\n\r\nSub \u633f_\u30c6Box_\u8d641()\r\n\r\n    '\u8d64\u3044\u30c6\u30ad\u30b9\u30c8\u30dc\u30c3\u30af\u30b9\u306e\u751f\u6210\uff08\u67a0\u7dda\u306e\u592a\u3055\u306f\uff11\u30dd\u30a4\u30f3\u30c8\uff09\r\n    Call MakeTxtBox01(1, 255, 0, 0)\r\n        \r\nEnd Sub\r\n\r\n\r\nSub \u633f_\u30c6Box_\u97521()\r\n\r\n    '\u9752\u3044\u30c6\u30ad\u30b9\u30c8\u30dc\u30c3\u30af\u30b9\u306e\u751f\u6210\uff08\u67a0\u7dda\u306e\u592a\u3055\u306f\uff11\u30dd\u30a4\u30f3\u30c8\uff09\r\n    Call MakeTxtBox01(1, 0, 0, 255)\r\n    \r\nEnd Sub\r\n\r\n\r\n'######################################################################################################\r\n'\u30c6\u30ad\u30b9\u30c8\u30dc\u30c3\u30af\u30b9\u3092\u3001\u597d\u304d\u306a\u8272\u3067\u633f\u5165\u3059\u308b\u305f\u3081\u306e\u30d7\u30ed\u30b0\u30e9\u30e0\u3067\u3059\u3002\r\n' Call MakeTxtBox01(1,255,0,0) \u3068\u3044\u3063\u305f\u5f62\u3067\u66f8\u3044\u3066\u547c\u3073\u51fa\u3057\uff1d\u5b9f\u884c\u3057\u307e\u3059\u3002\r\n' LineWNum\u2192\u67a0\u7dda\u306e\u592a\u3055\u30921\u3068\u304b2.25\u306a\u3069\u3068\u6307\u5b9a\u3057\u307e\u3059\u3002\r\n' aka\u2192RGB\u306e\u300cRed\u300d\u306e\u5024\u3092\u6307\u5b9a\u3057\u307e\u3059\u3002\r\n' midori\u2192RGB\u306e\u300cGreen\u300d\u306e\u5024\u3092\u6307\u5b9a\u3057\u307e\u3059\u3002\r\n' ao\u2192RGB\u306e\u300cBlue\u300d\u306e\u5024\u3092\u6307\u5b9a\u3057\u307e\u3059\u3002\r\n'######################################################################################################\r\n\r\nSub MakeTxtBox01(LineWNum As Double, aka As Integer, midori As Integer, ao As Integer)\r\n\r\n    Dim myDocument  As Document\r\n    Dim TopNum01    As Variant\r\n    \r\n    TopNum01 = InputBox(\"\u914d\u7f6e\u3059\u308b\u9ad8\u3055\u306e\u4f4d\u7f6e\u3092100\uff5e700\u306e\u6570\u5b57\u3067\u6307\u5b9a\u3057\u3066\u304f\u3060\u3055\u3044\")\r\n    \r\n    If TopNum01 = \"\" Then\r\n        Exit Sub\r\n    Else\r\n    \r\n    End If\r\n    \r\n    Set myDocument = ActiveDocument\r\n   \r\n    With myDocument.Shapes.AddTextbox(Orientation:=msoTextOrientationHorizontal, Left:=100, Top:=TopNum01, Width:=100, Height:=30) '\u30c6\u30ad\u30b9\u30c8\u30dc\u30c3\u30af\u30b9\u306e\u751f\u6210\r\n        .Line.Weight = LineWNum                     '\u67a0\u7dda\u306e\u592a\u3055\u306e\u8a2d\u5b9a\r\n        .Line.ForeColor.RGB = RGB(aka, midori, ao)  '\u67a0\u7dda\u306e\u8272\u306e\u8a2d\u5b9a\r\n        .Fill.BackColor.RGB = RGB(255, 255, 255)    '\u80cc\u666f\u8272\uff08\u5857\u308a\u3064\u3076\u3057\u8272\uff09\u3092\u767d\u306b\u3002\r\n'        .Fill.Visible = msoFalse   '\u300c.Fill.Visible = msoFalse\u300d\u3067\u300c\u5857\u308a\u3064\u3076\u3057\u7121\u3057\u300d\u306e\u610f\u5473\u3002 \u7dda\u7121\u3057\u306f .Line.Visible = msoFalse\r\n        .Select  '\u30c6\u30ad\u30b9\u30c8\u30dc\u30c3\u30af\u30b9\u3092\u9078\u629e\uff1d\u5185\u5074\u306b\u70b9\u6ec5\u30ab\u30fc\u30bd\u30eb\u3092\u70b9\u6ec5\u3055\u305b\u308b\u3068\u540c\u7fa9\r\n    End With\r\n\r\n    Call \u6bb5\u56fa10_\u4e38\u30b4\u30b78  '\u6bb5\u843d\u3092\u56fa\u5b9a\u5024\u306e10\u306b\u3057\u3066\u30d5\u30a9\u30f3\u30c8\u3092\u4e38\u30b4\u30b7\u30c3\u30af\u306e8\u306b\u8a2d\u5b9a\r\n    \r\nEnd Sub\r\n\r\n\r\nSub test01()\r\n'\r\n' \u8d64\u3044\u30c6\u30ad\u30b9\u30c8\u30dc\u30c3\u30af\u30b9\u3092\u4f5c\u3063\u3066\u3001\u6bb5\u843d\u3092\u56fa\u5b9a\u5024\u306e10\u306b\u3057\u3066\u30d5\u30a9\u30f3\u30c8\u3092\u4e38\u30b4\u30b7\u30c3\u30af\u306e8\u306b\u8a2d\u5b9a\r\n   \r\n\r\n    Dim myDocument As Document\r\n\r\n    Set myDocument = ActiveDocument\r\n\r\n    With myDocument.Shapes.AddTextbox(Orientation:=msoTextOrientationHorizontal, Left:=100, Top:=300, Width:=100, Height:=100)\r\n        .Line.Weight = 1\r\n        .Line.ForeColor.RGB = RGB(255, 0, 0)\r\n        .Fill.BackColor.RGB = RGB(255, 255, 255)\r\n'        .Fill.Visible = msoFalse   ' \u7dda\u7121\u3057\u306f .Line.Visible = msoFalse\r\n        .Select  '\u30c6\u30ad\u30b9\u30c8\u30dc\u30c3\u30af\u30b9\u3092\u9078\u629e\uff1d\u5185\u5074\u306b\u70b9\u6ec5\u30ab\u30fc\u30bd\u30eb\u3092\u70b9\u6ec5\u3055\u305b\u308b\u3068\u540c\u7fa9\r\n    End With\r\n\r\n    Call \u6bb5\u56fa10_\u4e38\u30b4\u30b78  '\u6bb5\u843d\u3092\u56fa\u5b9a\u5024\u306e10\u306b\u3057\u3066\u30d5\u30a9\u30f3\u30c8\u3092\u4e38\u30b4\u30b7\u30c3\u30af\u306e8\u306b\u8a2d\u5b9a\r\n    \r\nEnd Sub\r\n\r\n\r\nSub \u6bb5\u56fa10_\u4e38\u30b4\u30b78()\r\n\r\n'\u6bb5\u843d\u3092\u56fa\u5b9a\u5024\u306e10\u306b\u3057\u3066\u30d5\u30a9\u30f3\u30c8\u3092\u4e38\u30b4\u30b7\u30c3\u30af\u306e8\u306b\u8a2d\u5b9a\r\n\r\n' Macro1 Macro\r\n'\r\n'\r\n'    ActiveDocument.Shapes.Range(Array(\"Text Box 15\")).Select\r\n'    Selection.TypeText Text:=\"aaa\u3042\u3042\u3042\"\r\n'    Selection.MoveLeft Unit:=wdCharacter, Count:=6, Extend:=wdExtend\r\n    Selection.Font.Name = \"HG\u4e38\uff7a\uff9e\uff7c\uff6f\uff78M-PRO\"\r\n    Selection.Font.Size = 8\r\n'    Selection.TypeText Text:=\"\u3000\u3042\u3042\u3042\u3042\u3042\"\r\n'    Selection.MoveLeft Unit:=wdCharacter, Count:=5, Extend:=wdExtend\r\n    With Selection.ParagraphFormat\r\n        .LeftIndent = MillimetersToPoints(0)\r\n        .RightIndent = MillimetersToPoints(0)\r\n        .SpaceBefore = 0\r\n        .SpaceBeforeAuto = False\r\n        .SpaceAfter = 0\r\n        .SpaceAfterAuto = False\r\n        .LineSpacingRule = wdLineSpaceExactly\r\n        .LineSpacing = 10\r\n        .Alignment = wdAlignParagraphJustify\r\n        .WidowControl = False\r\n        .KeepWithNext = False\r\n        .KeepTogether = False\r\n        .PageBreakBefore = False\r\n        .NoLineNumber = False\r\n        .Hyphenation = True\r\n        .FirstLineIndent = MillimetersToPoints(0)\r\n        .OutlineLevel = wdOutlineLevelBodyText\r\n        .CharacterUnitLeftIndent = 0\r\n        .CharacterUnitRightIndent = 0\r\n        .CharacterUnitFirstLineIndent = 0\r\n        .LineUnitBefore = 0\r\n        .LineUnitAfter = 0\r\n'        .MirrorIndents = False              'Word2000\u3067\u30a8\u30e9\u30fc\u306b\u306a\u308b\u306e\u3067\u30b3\u30e1\u30f3\u30c8\u30a2\u30a6\u30c8\r\n'        .TextboxTightWrap = wdTightNone     'Word2000\u3067\u30a8\u30e9\u30fc\u306b\u306a\u308b\u306e\u3067\u30b3\u30e1\u30f3\u30c8\u30a2\u30a6\u30c8\r\n        .AutoAdjustRightIndent = True\r\n        .DisableLineHeightGrid = False\r\n        .FarEastLineBreakControl = True\r\n        .WordWrap = True\r\n        .HangingPunctuation = True\r\n        .HalfWidthPunctuationOnTopOfLine = False\r\n        .AddSpaceBetweenFarEastAndAlpha = True\r\n        .AddSpaceBetweenFarEastAndDigit = True\r\n        .BaseLineAlignment = wdBaselineAlignAuto\r\n    End With\r\nEnd Sub\r\n\r\n\r\n'######################################################################################################\r\n'\u77e2\u5370\u3092\u3001\u597d\u304d\u306a\u8272\u3067\u633f\u5165\u3059\u308b\u305f\u3081\u306e\u30d7\u30ed\u30b0\u30e9\u30e0\u3067\u3059\u3002\r\n' Call MakeArrowLine01(1,255,0,0) \u3068\u3044\u3063\u305f\u5f62\u3067\u66f8\u3044\u3066\u547c\u3073\u51fa\u3057\uff1d\u5b9f\u884c\u3057\u307e\u3059\u3002\r\n' LineWNum\u2192\u77e2\u5370\u306e\u7dda\u306e\u592a\u3055\u30921\u3068\u304b2.25\u306a\u3069\u3068\u6307\u5b9a\u3057\u307e\u3059\u3002\r\n' aka\u2192RGB\u306e\u300cRed\u300d\u306e\u5024\u3092\u6307\u5b9a\u3057\u307e\u3059\u3002\r\n' midori\u2192RGB\u306e\u300cGreen\u300d\u306e\u5024\u3092\u6307\u5b9a\u3057\u307e\u3059\u3002\r\n' ao\u2192RGB\u306e\u300cBlue\u300d\u306e\u5024\u3092\u6307\u5b9a\u3057\u307e\u3059\u3002\r\n'######################################################################################################\r\n\r\nSub MakeArrowLine01(LineWNum As Double, aka As Integer, midori As Integer, ao As Integer)\r\n\r\n    Dim myDocument  As Document\r\n    Dim TopNum01    As Variant\r\n    \r\n    TopNum01 = InputBox(\"\u914d\u7f6e\u3059\u308b\u9ad8\u3055\u306e\u4f4d\u7f6e\u3092100\uff5e700\u306e\u6570\u5b57\u3067\u6307\u5b9a\u3057\u3066\u304f\u3060\u3055\u3044\")\r\n    \r\n    If TopNum01 = \"\" Then\r\n        Exit Sub\r\n    Else\r\n    \r\n    End If\r\n    \r\n    '\u77e2\u5370\u306e\u4f5c\u6210\r\n    '\u77e2\u5370\u306e\u7d42\u7aef\u3084\u59cb\u7aef\u306e\u5f62\u306f\u4ee5\u4e0b\u306e7\u7a2e\u985e\u304b\u3089\u9078\u3079\u307e\u3059\u3002\r\n        'msoArrowheadNone\r\n        'msoArrowheadOval\r\n        'msoArrowheadStyleMixed\r\n        'msoArrowheadDiamond\r\n        'msoArrowheadOpen\r\n        '|msoArrowheadStealth\r\n        'msoArrowheadTriangle|\r\n    '\u307e\u305f\u3001\u59cb\u7aef\u306e\u5f62\u306e\u8a2d\u5b9a\u306f\u3001\u4e0a\u8a18\u306e7\u3064\u3092\u300cBeginArrowheadWidth \u300d\u3067\u6307\u5b9a\u3059\u308c\u3070\u826f\u3044\u3088\u3046\u3067\u3059\u3002\r\n\r\n    Set myDocument = ActiveDocument                                     '\u64cd\u4f5c\u5bfe\u8c61\u3068\u306a\u308b\u30d5\u30a1\u30a4\u30eb\u3092\u3001\u70b9\u6ec5\u30ab\u30fc\u30bd\u30eb\u306e\u3042\u308b\u30d5\u30a1\u30a4\u30eb\u306b\u6307\u5b9a\u3057\u307e\u3059\u3002\r\n    With myDocument.Shapes.AddLine(300, TopNum01, 250, TopNum01 + 50)   '\u76f4\u7dda\u306e\u751f\u6210\r\n        .Line.Weight = LineWNum                                         '\u77e2\u5370\u306e\u7dda\u306e\u592a\u3055\u3092\u8a2d\u5b9a\u3059\u308b\r\n        .Line.ForeColor.RGB = RGB(aka, midori, ao)                      '\u7dda\u306e\u8272\u3092\u8a2d\u5b9a\u3059\u308b\r\n'        .Fill.BackColor.RGB = RGB(255, 255, 255)\r\n'        .Fill.Visible = msoFalse   '\u300c.Fill.Visible = msoFalse\u300d\u3067\u300c\u5857\u308a\u3064\u3076\u3057\u7121\u3057\u300d\u306e\u610f\u5473\u3002 \u7dda\u7121\u3057\u306f .Line.Visible = msoFalse\r\n        .Line.EndArrowheadStyle = msoArrowheadOpen                      '\u7d42\u7aef\u306e\u5f62\u3092\u8a2d\u5b9a\u3059\u308b\r\n        .Select                                                         '\u77e2\u5370\u3092\u9078\u629e\r\n    End With\r\n       \r\n       \r\nEnd Sub\r\n\r\n\r\nSub \u633f_\u77e2\u5370_\u97521()\r\n\r\n    '\u9752\u3044\u77e2\u5370\u306e\u751f\u6210\uff08\u7dda\u306e\u592a\u3055\u306f\uff11\u30dd\u30a4\u30f3\u30c8\uff09\r\n    Call MakeArrowLine01(1, 0, 0, 255)\r\n    \r\nEnd Sub\r\n\r\n\r\nSub \u633f_\u77e2\u5370_\u8d641()\r\n\r\n    '\u8d64\u3044\u77e2\u5370\u306e\u751f\u6210\uff08\u7dda\u306e\u592a\u3055\u306f\uff11\u30dd\u30a4\u30f3\u30c8\uff09\r\n    Call MakeArrowLine01(1, 255, 0, 0)\r\n    \r\nEnd Sub\r\n\r\n\r\n'######################################################################################################\r\n'\u4e38\u89d2\u77e9\u5f62\u3068\u77e2\u5370\u3092\u3001\u597d\u304d\u306a\u8272\u3067\u633f\u5165\u3059\u308b\u305f\u3081\u306e\u30d7\u30ed\u30b0\u30e9\u30e0\u3067\u3059\u3002\r\n' Call MakeRoundSquareSet01(255,0,0,1) \u3068\u3044\u3063\u305f\u5f62\u3067\u66f8\u3044\u3066\u547c\u3073\u51fa\u3057\uff1d\u5b9f\u884c\u3057\u307e\u3059\u3002\r\n' LineWNum\u2192\u77e2\u5370\u306e\u7dda\u306e\u592a\u3055\u30921\u3068\u304b2.25\u306a\u3069\u3068\u6307\u5b9a\u3057\u307e\u3059\u3002\u77e9\u5f62\u306e\u7dda\u306e\u592a\u3055\u306f2.25\u56fa\u5b9a\u306b\u3057\u3066\u3042\u308a\u307e\u3059\u3002\r\n' aka\u2192RGB\u306e\u300cRed\u300d\u306e\u5024\u3092\u6307\u5b9a\u3057\u307e\u3059\u3002\r\n' midori\u2192RGB\u306e\u300cGreen\u300d\u306e\u5024\u3092\u6307\u5b9a\u3057\u307e\u3059\u3002\r\n' ao\u2192RGB\u306e\u300cBlue\u300d\u306e\u5024\u3092\u6307\u5b9a\u3057\u307e\u3059\u3002\r\n'######################################################################################################\r\n\r\nSub MakeRoundSquareSet01(aka As Integer, midori As Integer, ao As Integer, LineWNum As Double)\r\n\r\n    Dim myDocument  As Document\r\n    Dim TopNum01    As Variant\r\n\r\n    \r\n    '\u307e\u305a\u30e6\u30fc\u30b6\u30fc\u306b\u56f3\u5f62\u3092\u633f\u5165\u3059\u308b\u9ad8\u3055\uff08\u7e26\u306e\u4f4d\u7f6e\uff09\u3092\u805e\u304d\u307e\u3059\u3002\r\n    '\u70b9\u6ec5\u30ab\u30fc\u30bd\u30eb\u306e\u3042\u308b\u30da\u30fc\u30b8\u306e100\uff5e700\u307e\u3067\u306e\u7e26\u306e\u4f4d\u7f6e\u3092\u6307\u5b9a\u3057\u3066\u3082\u3089\u3044\u307e\u3059\u3002\uff08\u5358\u4f4d\u306f\u30d4\u30af\u30bb\u30eb\uff09\r\n    '100\u3060\u3068\u4e0a\u306e\u307b\u3046\u3001350\u3060\u3068\u771f\u3093\u4e2d\u3078\u3093\u3001700\u3060\u3068\u4e0b\u306e\u307b\u3046\u306b\u633f\u5165\u3055\u308c\u307e\u3059\u3002\r\n    '\u5165\u529b\u3057\u3066\u3082\u3089\u3046\u6570\u5024\u306f150\u3067\u3082236\u3067\u3082\u4f55\u3067\u3082OK\u3067\u3059\u3002\r\n    \r\n    TopNum01 = InputBox(\"\u914d\u7f6e\u3059\u308b\u9ad8\u3055\u306e\u4f4d\u7f6e\u3092100\uff5e700\u306e\u6570\u5b57\u3067\u6307\u5b9a\u3057\u3066\u304f\u3060\u3055\u3044\")\r\n    \r\n        \r\n        \r\n    '\u300c\u30ad\u30e3\u30f3\u30bb\u30eb\u300d\u304c\u62bc\u3055\u308c\u305f\u3068\u304d\u306e\u30a8\u30e9\u30fc\u56de\u907f\u51e6\u7406\r\n    '\u30e6\u30fc\u30b6\u30fc\u306b\u9ad8\u3055\u3092\u805e\u304f\u3068\u304dInputbox\u3068\u3044\u3046\u3082\u306e\u3092\u4f7f\u3063\u3066\u3044\u307e\u3059\u304c\u3001\r\n    'Inputbox\u3067\u306f\u300c\u30ad\u30e3\u30f3\u30bb\u30eb\u300d\u304c\u62bc\u3055\u308c\u308b\u3068\u3001\u7a7a\u6587\u5b57\uff08\u300c\"\"\u300d\u3068\u8868\u8a18\u3057\u307e\u3059\uff09\u304c\r\n    '\u8fd4\u4e8b\u3068\u3057\u3066\u8fd4\u3063\u3066\u304f\u308b\u306e\u3067\u305d\u308c\u3092\u5229\u7528\u3057\u307e\u3059\u3002\r\n    \r\n    If TopNum01 = \"\" Then\r\n        '\u300c\u30ad\u30e3\u30f3\u30bb\u30eb\u300d\u304c\u62bc\u3055\u308c\u305f\u3068\u304d\u306e\u51e6\u7406\r\n        Exit Sub  'Sub\u30d7\u30ed\u30b7\u30fc\u30b8\u30e3\uff08\uff1d\u3053\u306e\u30d7\u30ed\u30b0\u30e9\u30e0\uff09\u81ea\u4f53\u3092\u629c\u3051\u308b\uff1d\u7d42\u308f\u308b\r\n    Else\r\n        '\u62bc\u3055\u308c\u306a\u3051\u308c\u3070\u4f55\u3082\u305b\u305a\u6b21\u3078\r\n    End If\r\n    \r\n    \r\n    \r\n    '\u4e38\u89d2\u77e9\u5f62\u306e\u4f5c\u6210\r\n    Set myDocument = ActiveDocument                     '\u64cd\u4f5c\u5bfe\u8c61\u3068\u306a\u308b\u30d5\u30a1\u30a4\u30eb\u3092\u3001\u70b9\u6ec5\u30ab\u30fc\u30bd\u30eb\u306e\u3042\u308b\u30d5\u30a1\u30a4\u30eb\u306b\u6307\u5b9a\u3057\u307e\u3059\u3002\r\n    With myDocument.Shapes.AddShape(Type:=msoShapeRoundedRectangle, Left:=100, Top:=TopNum01, Width:=100, Height:=50) '\u4e38\u89d2\u77e9\u5f62\u306e\u751f\u6210\r\n        .Line.Weight = 2.25                             '\u77e9\u5f62\u306e\u7dda\u306e\u592a\u3055\u306f2.25\u56fa\u5b9a\u3067\u3002\r\n        .Line.ForeColor.RGB = RGB(aka, midori, ao)      '\u7dda\u306e\u8272\u3092\u8a2d\u5b9a\u3059\u308b\r\n        .Fill.Visible = msoFalse                        '\u7dda\u7121\u3057\u306f .Line.Visible = msoFalse\r\n        \r\n    End With\r\n\r\n    \r\n    \r\n    '\u77e2\u5370\u306e\u4f5c\u6210\r\n        '\u77e2\u5370\u306e\u7d42\u7aef\u3084\u59cb\u7aef\u306e\u5f62\u306f\u4ee5\u4e0b\u306e7\u7a2e\u985e\u304b\u3089\u9078\u3079\u307e\u3059\u3002\r\n            'msoArrowheadNone\r\n            'msoArrowheadOval\r\n            'msoArrowheadStyleMixed\r\n            'msoArrowheadDiamond\r\n            'msoArrowheadOpen\r\n            '|msoArrowheadStealth\r\n            'msoArrowheadTriangle|\r\n        '\u307e\u305f\u3001\u59cb\u7aef\u306e\u5f62\u306e\u8a2d\u5b9a\u306f\u3001\u4e0a\u8a18\u306e7\u3064\u3092\u300cBeginArrowheadWidth \u300d\u3067\u6307\u5b9a\u3059\u308c\u3070\u826f\u3044\u3088\u3046\u3067\u3059\u3002\r\n    Set myDocument = ActiveDocument                 '\u64cd\u4f5c\u5bfe\u8c61\u3068\u306a\u308b\u30d5\u30a1\u30a4\u30eb\u3092\u3001\u70b9\u6ec5\u30ab\u30fc\u30bd\u30eb\u306e\u3042\u308b\u30d5\u30a1\u30a4\u30eb\u306b\u6307\u5b9a\u3057\u307e\u3059\u3002\r\n    With myDocument.Shapes.AddLine(300, TopNum01, 250, TopNum01 + 50) '\u76f4\u7dda\u306e\u751f\u6210\r\n        .Line.Weight = LineWNum                     '\u77e2\u5370\u306e\u7dda\u306e\u592a\u3055\u3092\u8a2d\u5b9a\u3059\u308b\r\n        .Line.ForeColor.RGB = RGB(aka, midori, ao)  '\u7dda\u306e\u8272\u3092\u8a2d\u5b9a\u3059\u308b\r\n        .Line.EndArrowheadStyle = msoArrowheadOpen  '\u7d42\u7aef\u306e\u5f62\u3092\u8a2d\u5b9a\u3059\u308b\r\n        .Select                                     '\u77e2\u5370\u3092\u9078\u629e\r\n    End With\r\n    \r\n\r\n\r\nEnd Sub\r\n\r\n\r\nSub \u633f_\u4e38\u77e9\u30bb\u30c3\u30c8_\u8d64()\r\n\r\n    '\u7dda\u306e\u592a\u3055\u300c1\u300d\u306e\u77e2\u5370\u3068\u3001\u8d64\u67a0\u306e\u30c6\u30ad\u30b9\u30c8\u30dc\u30c3\u30af\u30b9\u3092\u4e00\u62ec\u633f\u5165\u3057\u307e\u3059\u3002\r\n    '\u300c255, 0, 0\u300d\u304c\u300c\u8d64\u300d\u3092\u610f\u5473\u3057\u3066\u3044\u307e\u3059\u3002\r\n    '\u6700\u5f8c\u306e\u300c1\u300d\u304c\u77e2\u5370\u306e\u7dda\u306e\u592a\u3055\u306e\u8a2d\u5b9a\u5024\u3067\u3059\u3002\r\n    \r\n    Call MakeRoundSquareSet01(255, 0, 0, 1)\r\n\r\nEnd Sub\r\n\r\n\r\n'######################################################################################################\r\n'\u30c6\u30ad\u30b9\u30c8\u30dc\u30c3\u30af\u30b9\u3068\u77e2\u5370\u3092\u3001\u597d\u304d\u306a\u8272\u3067\u633f\u5165\u3059\u308b\u305f\u3081\u306e\u30d7\u30ed\u30b0\u30e9\u30e0\u3067\u3059\u3002\r\n'\u30c6\u30ad\u30b9\u30c8\u30dc\u30c3\u30af\u30b9\u306e\u6bb5\u843d\u306f\u56fa\u5b9a\u5024\u306e10\u3001\u30d5\u30a9\u30f3\u30c8\u306f\u4e38\u30b4\u30b7\u30c3\u30afPro\u306e8\u306b\u8a2d\u5b9a\u3057\u3066\u3042\u308a\u307e\u3059\r\n' Call MakeTboxSet01(255,0,0,1) \u3068\u3044\u3063\u305f\u5f62\u3067\u66f8\u3044\u3066\u547c\u3073\u51fa\u3057\uff1d\u5b9f\u884c\u3057\u307e\u3059\u3002\r\n' LineWNum\u2192\u77e2\u5370\u306e\u7dda\u306e\u592a\u3055\u30921\u3068\u304b2.25\u306a\u3069\u3068\u6307\u5b9a\u3057\u307e\u3059\u3002\u77e9\u5f62\u306e\u7dda\u306e\u592a\u3055\u306f2.25\u56fa\u5b9a\u306b\u3057\u3066\u3042\u308a\u307e\u3059\u3002\r\n' aka\u2192RGB\u306e\u300cRed\u300d\u306e\u5024\u3092\u6307\u5b9a\u3057\u307e\u3059\u3002\r\n' midori\u2192RGB\u306e\u300cGreen\u300d\u306e\u5024\u3092\u6307\u5b9a\u3057\u307e\u3059\u3002\r\n' ao\u2192RGB\u306e\u300cBlue\u300d\u306e\u5024\u3092\u6307\u5b9a\u3057\u307e\u3059\u3002\r\n'######################################################################################################\r\n\r\nSub MakeTboxSet01(aka As Integer, midori As Integer, ao As Integer, LineWNum As Double)\r\n\r\n    Dim myDocument  As Document\r\n    Dim TopNum01    As Variant\r\n\r\n    \r\n    '\u30e6\u30fc\u30b6\u30fc\u306b\u56f3\u5f62\u3092\u633f\u5165\u3059\u308b\u9ad8\u3055\uff08\u7e26\u306e\u4f4d\u7f6e\uff09\u3092\u805e\u304d\u307e\u3059\u3002\r\n    '\u70b9\u6ec5\u30ab\u30fc\u30bd\u30eb\u306e\u3042\u308b\u30da\u30fc\u30b8\u306e100\uff5e700\u307e\u3067\u306e\u7e26\u306e\u4f4d\u7f6e\u3092\u6307\u5b9a\u3057\u3066\u3082\u3089\u3044\u307e\u3059\u3002\uff08\u5358\u4f4d\u306f\u30d4\u30af\u30bb\u30eb\uff09\r\n    '100\u3060\u3068\u4e0a\u306e\u307b\u3046\u3001350\u3060\u3068\u771f\u3093\u4e2d\u3078\u3093\u3001700\u3060\u3068\u4e0b\u306e\u307b\u3046\u306b\u633f\u5165\u3055\u308c\u307e\u3059\u3002\r\n    '\u5165\u529b\u3057\u3066\u3082\u3089\u3046\u6570\u5024\u306f150\u3067\u3082236\u3067\u3082\u4f55\u3067\u3082OK\u3067\u3059\u3002\r\n    \r\n    TopNum01 = InputBox(\"\u914d\u7f6e\u3059\u308b\u9ad8\u3055\u306e\u4f4d\u7f6e\u3092100\uff5e700\u306e\u6570\u5b57\u3067\u6307\u5b9a\u3057\u3066\u304f\u3060\u3055\u3044\")\r\n    \r\n        \r\n        \r\n    '\u300c\u30ad\u30e3\u30f3\u30bb\u30eb\u300d\u304c\u62bc\u3055\u308c\u305f\u3068\u304d\u306e\u30a8\u30e9\u30fc\u56de\u907f\u51e6\u7406\r\n    '\u30e6\u30fc\u30b6\u30fc\u306b\u9ad8\u3055\u3092\u805e\u304f\u3068\u304dInputbox\u3068\u3044\u3046\u3082\u306e\u3092\u4f7f\u3063\u3066\u3044\u307e\u3059\u304c\u3001\r\n    'Inputbox\u3067\u306f\u300c\u30ad\u30e3\u30f3\u30bb\u30eb\u300d\u304c\u62bc\u3055\u308c\u308b\u3068\u3001\u7a7a\u6587\u5b57\uff08\u300c\"\"\u300d\u3068\u8868\u8a18\u3057\u307e\u3059\uff09\u304c\r\n    '\u8fd4\u4e8b\u3068\u3057\u3066\u8fd4\u3063\u3066\u304f\u308b\u306e\u3067\u305d\u308c\u3092\u5229\u7528\u3057\u307e\u3059\u3002\r\n    \r\n    If TopNum01 = \"\" Then\r\n        '\u300c\u30ad\u30e3\u30f3\u30bb\u30eb\u300d\u304c\u62bc\u3055\u308c\u305f\u3068\u304d\u306e\u51e6\u7406\r\n        Exit Sub  'Sub\u30d7\u30ed\u30b7\u30fc\u30b8\u30e3\uff08\uff1d\u3053\u306e\u30d7\u30ed\u30b0\u30e9\u30e0\uff09\u81ea\u4f53\u3092\u629c\u3051\u308b\uff1d\u7d42\u308f\u308b\r\n    Else\r\n        '\u62bc\u3055\u308c\u306a\u3051\u308c\u3070\u4f55\u3082\u305b\u305a\u6b21\u3078\r\n    End If\r\n    \r\n    \r\n    \r\n    '\u30c6\u30ad\u30b9\u30c8\u30dc\u30c3\u30af\u30b9\u306e\u4f5c\u6210\r\n    Set myDocument = ActiveDocument\r\n    With myDocument.Shapes.AddTextbox(Orientation:=msoTextOrientationHorizontal, Left:=100, Top:=TopNum01, Width:=100, Height:=30)  '\u30c6\u30ad\u30b9\u30c8\u30dc\u30c3\u30af\u30b9\u306e\u751f\u6210\r\n        .Line.Weight = LineWNum                     '\u67a0\u7dda\u306e\u592a\u3055\u306e\u8a2d\u5b9a\r\n        .Line.ForeColor.RGB = RGB(aka, midori, ao)  '\u67a0\u7dda\u306e\u8272\u306e\u8a2d\u5b9a\r\n        .Fill.BackColor.RGB = RGB(255, 255, 255)    '\u80cc\u666f\u8272\uff08\u5857\u308a\u3064\u3076\u3057\u8272\uff09\u3092\u767d\u306b\u3002\r\n'        .Fill.Visible = msoFalse   '\u300c.Fill.Visible = msoFalse\u300d\u3067\u300c\u5857\u308a\u3064\u3076\u3057\u7121\u3057\u300d\u306e\u610f\u5473\u3002 \u7dda\u7121\u3057\u306f .Line.Visible = msoFalse\r\n        .Select  '\u30c6\u30ad\u30b9\u30c8\u30dc\u30c3\u30af\u30b9\u3092\u9078\u629e\uff1d\u5185\u5074\u306b\u70b9\u6ec5\u30ab\u30fc\u30bd\u30eb\u3092\u70b9\u6ec5\u3055\u305b\u308b\u3068\u540c\u7fa9\r\n    End With\r\n\r\n    Call \u6bb5\u56fa10_\u4e38\u30b4\u30b78  '\u6bb5\u843d\u3092\u56fa\u5b9a\u5024\u306e10\u306b\u3057\u3066\u30d5\u30a9\u30f3\u30c8\u3092\u4e38\u30b4\u30b7\u30c3\u30af\u306e8\u306b\u8a2d\u5b9a\r\n\r\n    \r\n    \r\n    '\u77e2\u5370\u306e\u4f5c\u6210\r\n        '\u77e2\u5370\u306e\u7d42\u7aef\u3084\u59cb\u7aef\u306e\u5f62\u306f\u4ee5\u4e0b\u306e7\u7a2e\u985e\u304b\u3089\u9078\u3079\u307e\u3059\u3002\r\n            'msoArrowheadNone\r\n            'msoArrowheadOval\r\n            'msoArrowheadStyleMixed\r\n            'msoArrowheadDiamond\r\n            'msoArrowheadOpen\r\n            '|msoArrowheadStealth\r\n            'msoArrowheadTriangle|\r\n        '\u307e\u305f\u3001\u59cb\u7aef\u306e\u5f62\u306e\u8a2d\u5b9a\u306f\u3001\u4e0a\u8a18\u306e7\u3064\u3092\u300cBeginArrowheadWidth \u300d\u3067\u6307\u5b9a\u3059\u308c\u3070\u826f\u3044\u3088\u3046\u3067\u3059\u3002\r\n    Set myDocument = ActiveDocument                                     '\u64cd\u4f5c\u5bfe\u8c61\u3068\u306a\u308b\u30d5\u30a1\u30a4\u30eb\u3092\u3001\u70b9\u6ec5\u30ab\u30fc\u30bd\u30eb\u306e\u3042\u308b\u30d5\u30a1\u30a4\u30eb\u306b\u6307\u5b9a\u3057\u307e\u3059\u3002\r\n    With myDocument.Shapes.AddLine(300, TopNum01, 250, TopNum01 + 50)   '\u76f4\u7dda\u306e\u751f\u6210\r\n        .Line.Weight = LineWNum                                         '\u77e2\u5370\u306e\u7dda\u306e\u592a\u3055\u3092\u8a2d\u5b9a\u3059\u308b\r\n        .Line.ForeColor.RGB = RGB(aka, midori, ao)                      '\u7dda\u306e\u8272\u3092\u8a2d\u5b9a\u3059\u308b\r\n        .Line.EndArrowheadStyle = msoArrowheadOpen                      '\u7d42\u7aef\u306e\u5f62\u3092\u8a2d\u5b9a\u3059\u308b\r\n        .Select                                                         '\u77e2\u5370\u3092\u9078\u629e\r\n    End With\r\n    \r\n\r\n\r\nEnd Sub\r\n\r\n\r\nSub \u633f_\u30c6Box\u30bb\u30c3\u30c8_\u8d64()\r\n\r\n    '\u7dda\u306e\u592a\u3055\u300c1\u300d\u306e\u77e2\u5370\u3068\u3001\u8d64\u67a0\u306e\u30c6\u30ad\u30b9\u30c8\u30dc\u30c3\u30af\u30b9\u3092\u4e00\u62ec\u633f\u5165\u3057\u307e\u3059\u3002\r\n    '\uff08\u30c6\u30ad\u30b9\u30c8\u30dc\u30c3\u30af\u30b9\u306e\u30d5\u30a9\u30f3\u30c8\u306f\u4e38\u30b4\u30b7\u30c3\u30afPro\u306e8\u30dd\u30a4\u30f3\u30c8\u3067\u6bb5\u843d\u306f\u56fa\u5b9a\u5024\u306e10\u30dd\u30a4\u30f3\u30c8\uff09\r\n    '\u300c255, 0, 0\u300d\u304c\u300c\u8d64\u300d\u3092\u610f\u5473\u3057\u3066\u3044\u307e\u3059\u3002\r\n    '\u6700\u5f8c\u306e\u300c1\u300d\u304c\u77e2\u5370\u306e\u7dda\u306e\u592a\u3055\u306e\u8a2d\u5b9a\u5024\u3067\u3059\u3002\r\n    \r\n    Call MakeTboxSet01(255, 0, 0, 1)\r\n\r\nEnd Sub\r\n\r\n'\r\n'\r\n<\/pre>\n
\u3000\u3000<\/SPAN><\/p>\n
(02) \u30ea\u30dc\u30f3\u306b\uff12\u3064\u306e\u30c4\u30fc\u30eb\u30d0\u30fc\uff08\u5404\u30dc\u30bf\u30f3\u542b\u3080\uff09\u3092\u751f\u6210\u3059\u308b\u30d7\u30ed\u30b0\u30e9\u30e0<\/a>
\nNormal.dot\u306b\u6a19\u6e96\u30e2\u30b8\u30e5\u30fc\u30eb\u3092\u4f5c\u308a\u3001\u540d\u524d\u3092\u3001\u300cMakeToolBar\u300d\u306b\u3057\u3066\u304b\u3089\u30b3\u30d4\u30da\u3057\u307e\u3059\u3002
\n\u5b9f\u306f\u3053\u3061\u3089\u306e\u30d7\u30ed\u30b0\u30e9\u30e0\u3067\u306f\u3001(01)\u3068\u9055\u3063\u3066\u300cMakeToolBar\u300d\u3068\u3044\u3046\u540d\u524d\u3092\u5909\u3048\u3066\u3082\u52d5\u304d\u307e\u3059\u304c\u3001\u4e00\u5fdc\u3001\u5224\u5225\u3057\u3084\u3059\u3044\u3088\u3046\u306b\u305d\u306e\u540d\u524d\u3067\u4f5c\u3063\u3066\u307f\u3066\u304f\u3060\u3055\u3044\u3002<\/p>\n
\u30b3\u30d4\u30da\u3057\u305f\u3042\u3068\u306b\u3001\u300cMultipleCmdBarAllAdd01()\u300d\u3092\u5b9f\u884c\u3059\u308b\u3068\u3001\u5404\u30dc\u30bf\u30f3\u3068\u6a5f\u80fd\u3092\u5099\u3048\u305f\u300c\u633f\u5165\u7cfb\u30c4\u30fc\u30eb\u30d0\u30fc01\u300d\u3068\u3044\u3046\u30c4\u30fc\u30eb\u30d0\u30fc\u3068\u3001\u300c\u30c6\u30ad\u30b9\u30c8\u64cd\u4f5c\u7cfb\u30c4\u30fc\u30eb\u30d0\u30fc01\u300d\u3068\u3044\u3046\u30c4\u30fc\u30eb\u30d0\u30fc\u306e\u3001\uff12\u3064\u306e\u30c4\u30fc\u30eb\u30d0\u30fc\u304c\u30ea\u30dc\u30f3\u306b\u751f\u6210\u3055\u308c\u307e\u3059\u3002<\/p>\n
\r\n'\r\n'\r\nOption Explicit\r\n\r\n'##################################################################################\r\n'\u8907\u6570\u306e\u30c4\u30fc\u30eb\u30d0\u30fc\u3092\u4e00\u62ec\u3057\u3066\u30c1\u30a7\u30c3\u30af\u3068\u767b\u9332\u3092\u3059\u308b\u30d7\u30ed\u30b0\u30e9\u30e0\u3067\u3059\u3002\r\n'Word2010\u306a\u3089\u3001\u73fe\u5728\u306e\u300c\u30a2\u30c9\u30a4\u30f3\u300d\u30bf\u30d6\u306e\u30c4\u30fc\u30eb\u30d0\u30fc\u3092\u53f3\u30af\u30ea\u30c3\u30af\u3067\u5168\u90e8\u524a\u9664\u3057\u3066\u304b\u3089\r\n'\u5b9f\u884c\u3057\u307e\u3059\u3002\u30c4\u30fc\u30eb\u30d0\u30fc\u3092\u5168\u90e8\u524a\u9664\u3057\u305f\u6642\u70b9\u3067\u540c\u6642\u306b\u300c\u30a2\u30c9\u30a4\u30f3\u300d\u30bf\u30d6\u304c\u6d88\u3048\u307e\u3059\u3002\r\n'\u305d\u306e\u72b6\u614b\u306b\u306a\u3063\u3066\u304b\u3089\u5b9f\u884c\u3057\u307e\u3059\u3002\r\n'##################################################################################\r\n\r\nSub MultipleCmdBarAllAdd01()\r\n\r\n    '\u633f\u5165\u7cfb\u306e\u30c4\u30fc\u30eb\u30d0\u30fc\u3092\u751f\u6210\uff08\u30ea\u30dc\u30f3\u304c\u3042\u308b\u30d0\u30fc\u30b8\u30e7\u30f3\u306a\u3089\u300c\u30a2\u30c9\u30a4\u30f3\u300d\u30bf\u30d6\u304c\u3067\u304d\u3066\u305d\u306e\u4e2d\u306b\u751f\u6210\u3055\u308c\u307e\u3059\uff09\r\n    Call CmdBarChkAndAdd_TypeInsert01\r\n    \r\n    '\u30c6\u30ad\u30b9\u30c8\u64cd\u4f5c\u7cfb\u306e\u30c4\u30fc\u30eb\u30d0\u30fc\u3092\u751f\u6210\uff08\u30ea\u30dc\u30f3\u304c\u3042\u308b\u30d0\u30fc\u30b8\u30e7\u30f3\u306a\u3089\u300c\u30a2\u30c9\u30a4\u30f3\u300d\u30bf\u30d6\u304c\u3067\u304d\u3066\u305d\u306e\u4e2d\u306b\u751f\u6210\u3055\u308c\u307e\u3059\uff09\r\n    Call CmdBarChkAndAdd_TypeTxtOpe01\r\n\r\nEnd Sub\r\n\r\n\r\n'##################################################################################\r\n'\u300c\u633f\u5165\u7cfb\u30c4\u30fc\u30eb\u30d0\u30fc01\u300d\u30c4\u30fc\u30eb\u30d0\u30fc\u304c\u5b58\u5728\u3059\u308b\u304b\u3092\u30c1\u30a7\u30c3\u30af\u3057\u3066\u3001\u7121\u3051\u308c\u3070\u518d\u4f5c\u6210\u3057\u307e\u3059\u3002\r\n'\u30dc\u30bf\u30f3\u306e\u8868\u793a\u5f62\u5f0f\u3092\u300c\u30a4\u30e1\u30fc\u30b8\u3068\u30c6\u30ad\u30b9\u30c8\u300d\u306b\u3057\u307e\u3059\u3002\uff08Word\u306e\u5834\u5408\u306f\u7d75\u304c\u51fa\u307e\u305b\u3093\u304c\u3002\uff09\r\n'##################################################################################\r\n\r\nSub CmdBarChkAndAdd_TypeInsert01()\r\n    \r\n    Dim myBar As CommandBar, i As Long, C\r\n    Dim StrBarChkTxt As String\r\n    \r\n    \r\n    '\u3053\u3053\u3067\u3001\u4f5c\u308a\u305f\u3044\u30c4\u30fc\u30eb\u30d0\u30fc\u306e\u540d\u524d\u3092\u300c\u633f\u5165\u7cfb\u30c4\u30fc\u30eb\u30d0\u30fc01\u300d\u306b\u6c7a\u3081\u3066\u304a\u304d\u307e\u3059\u3002\r\n    '\u306a\u304a\u3001\u3053\u3053\u3067\u5225\u306e\u540d\u524d\u306b\u66f8\u304d\u63db\u3048\u308c\u3070\u3001\u305f\u3068\u3048\u30dc\u30bf\u30f3\u306e\u5185\u5bb9\u304c\u540c\u3058\u3060\u3063\u305f\u3068\u3057\u3066\u3082\r\n    '\u5225\u306e\u30c4\u30fc\u30eb\u30d0\u30fc\u3068\u3057\u3066\u3001\u30ea\u30dc\u30f3\u306e\u300c\u30a2\u30c9\u30a4\u30f3\u300d\u30bf\u30d6\u306b\u65b0\u3057\u304f\u751f\u6210\u3055\u308c\u307e\u3059\u3002\r\n    StrBarChkTxt = \"\u633f\u5165\u7cfb\u30c4\u30fc\u30eb\u30d0\u30fc01\"\r\n    \r\n    For Each C In CommandBars\r\n        If C.Name = StrBarChkTxt Then\r\n            '\u65e2\u306b\u3001\u300cStrBarChkTxt = \"\u30c4\u30fc\u30eb\u30d0\u30fc\u306e\u540d\u524d\"\u300d\u306e\u884c\u3067\u6307\u5b9a\u3057\u305f\u540d\u524d\u306e\u30c4\u30fc\u30eb\u30d0\u30fc\u304c\u5b58\u5728\u3057\u305f\u3089\r\n            '\u975e\u8868\u793a\u306b\u306a\u3063\u3066\u308b\u3068\u3044\u3051\u306a\u3044\u306e\u3067\u3001\r\n            '\u8868\u793a\u3057\u3066\u304b\u3089\u7d42\u308f\u308b\u3002\r\n            C.Visible = True\r\n            Exit Sub\r\n        Else\r\n            \r\n        End If\r\n    Next C\r\n    \r\n    '\u76f4\u524d\u306e\u30eb\u30fc\u30d7\u3092\u6700\u5f8c\u307e\u3067\u5b9f\u884c\u3057\u305f\u3068\u304d\r\n    '\u6307\u5b9a\u3057\u305f\u540d\u524d\u306e\u30c4\u30fc\u30eb\u30d0\u30fc\u304c\u898b\u3064\u304b\u3089\u306a\u304b\u3063\u305f\u6642\u306f\u3053\u3053\u306b\u6765\u308b\u306e\u3067\u3001\r\n    '\u5fc5\u8981\u306b\u5fdc\u3058\u3066\u4ee5\u4e0b\u306e\u30e1\u30c3\u30bb\u30fc\u30b8\u3092\u767a\u3059\u308b\u3002\r\n'    MsgBox \"\u300c\" & StrBarChkTxt & \"\u300d\u30c4\u30fc\u30eb\u30d0\u30fc\u304c\u6d88\u3048\u3066\u3057\u307e\u3063\u3066\u3044\u308b\u3088\u3046\u3067\u3059\u3002\u518d\u4f5c\u6210\u3057\u3066\u304f\u3060\u3055\u3044\u3002\"\r\n'    MsgBox \"\u300c\" & StrBarChkTxt & \"\u300d\u30c4\u30fc\u30eb\u30d0\u30fc\u304c\u6d88\u3048\u3066\u3057\u307e\u3063\u3066\u3044\u308b\u3088\u3046\u3067\u3059\u306e\u3067\u518d\u4f5c\u6210\u3057\u307e\u3059\u3002\"\r\n    \r\n    Set myBar = CommandBars.Add               '\u7a7a\u3063\u307d\u306e\u30c4\u30fc\u30eb\u30d0\u30fc\u3092\u4f5c\u6210\r\n    myBar.Name = StrBarChkTxt                 '\u305d\u306e\u7a7a\u3063\u307d\u306e\u30c4\u30fc\u30eb\u30d0\u30fc\u306b\u540d\u524d\u3092\u3064\u3051\u307e\u3059\u3002\r\n\r\n\r\n\r\n    '\u5404\u30dc\u30bf\u30f3\u306e\u8ffd\u52a0\r\n    '\u3082\u3057\u65b0\u3057\u3044\u30dc\u30bf\u30f3\u3092\u8ffd\u52a0\u3057\u305f\u3044\u3068\u304d\u306f\u30ab\u30c3\u30b3\u306e\u4e2d\u306e\u6570\u5b57\u3092\u9593\u9055\u308f\u306a\u3044\u3053\u3068\u3002\r\n    '1\u304c1\u3064\u76ee\u306e\u30dc\u30bf\u30f3\u30012\u304c2\u3064\u76ee\u306e\u30dc\u30bf\u30f3\u30fb\u30fb\u30fb\u3068\u3044\u3046\u610f\u5473\u3067\u3059\u3002\r\n    \r\n    myBar.Controls.Add ID:=1     '\u300c\u30de\u30af\u30ed\u300d\u30dc\u30bf\u30f3\u3092\u8ffd\u52a0\u3057\u307e\u3059\r\n    myBar.Controls(1).Style = msoButtonIconAndCaption               ' \u30dc\u30bf\u30f3\u306e\u8868\u793a\u5f62\u5f0f\u3092\u300c\u30a4\u30e1\u30fc\u30b8\u3068\u30c6\u30ad\u30b9\u30c8\u300d\u306b\u3059\u308b\u3002\r\n    myBar.Controls(1).Caption = \"\u633f\u4e38\u77e9\u8d64(&C)\"                      ' \u30dc\u30bf\u30f3\u306e\u300c\u30c6\u30ad\u30b9\u30c8\u300d\u90e8\u5206\u3092\u3001\u300chms(&C)\u300d\u306b\u5909\u66f4\u3059\u308b\u3002\u300c(&C)\u300d\u3092\u4ed8\u3051\u306a\u3044\u3068\u30a8\u30e9\u30fc\u306b\u306a\u308b\u3002\r\n    myBar.Controls(1).OnAction = \"ToolBarButtonCode.\u633f_\u4e38\u77e9_\u8d64\"     ' \u30dc\u30bf\u30f3\u3092\u300cNORMAL.DOT\u300d\u306e\u300ccell_jikoku_hh_mm_ss\u300d\u30d7\u30ed\u30b7\u30fc\u30b8\u30e3\u3068\u95a2\u9023\u4ed8\u3051\u308b\r\n\r\n    myBar.Controls.Add ID:=1     '\u300c\u30de\u30af\u30ed\u300d\u30dc\u30bf\u30f3\u3092\u8ffd\u52a0\u3057\u307e\u3059\r\n    myBar.Controls(2).Style = msoButtonIconAndCaption               ' \u30dc\u30bf\u30f3\u306e\u8868\u793a\u5f62\u5f0f\u3092\u300c\u30a4\u30e1\u30fc\u30b8\u3068\u30c6\u30ad\u30b9\u30c8\u300d\u306b\u3059\u308b\u3002\r\n    myBar.Controls(2).Caption = \"\u633f\u4e38\u77e9\u9752(&C)\"                      ' \u30dc\u30bf\u30f3\u306e\u300c\u30c6\u30ad\u30b9\u30c8\u300d\u90e8\u5206\u3092\u3001\u300cymd(&C)\u300d\u306b\u5909\u66f4\u3059\u308b\u3002\u300c(&C)\u300d\u3092\u4ed8\u3051\u306a\u3044\u3068\u30a8\u30e9\u30fc\u306b\u306a\u308b\u3002\r\n    myBar.Controls(2).OnAction = \"ToolBarButtonCode.\u633f_\u4e38\u77e9_\u9752\"     ' \u30dc\u30bf\u30f3\u3092\u300cNORMAL.DOT\u300d\u306e\u300ccell_hiduke_yyyy_mm_dd\u300d\u30d7\u30ed\u30b7\u30fc\u30b8\u30e3\u3068\u95a2\u9023\u4ed8\u3051\u308b\r\n\r\n    myBar.Controls.Add ID:=1     '\u300c\u30de\u30af\u30ed\u300d\u30dc\u30bf\u30f3\u3092\u8ffd\u52a0\u3057\u307e\u3059\r\n    myBar.Controls(3).Style = msoButtonIconAndCaption               ' \u30dc\u30bf\u30f3\u306e\u8868\u793a\u5f62\u5f0f\u3092\u300c\u30a4\u30e1\u30fc\u30b8\u3068\u30c6\u30ad\u30b9\u30c8\u300d\u306b\u3059\u308b\u3002\r\n    myBar.Controls(3).Caption = \"\u633f\u30c6Box\u8d641(&C)\"                    ' \u30dc\u30bf\u30f3\u306e\u300c\u30c6\u30ad\u30b9\u30c8\u300d\u90e8\u5206\u3092\u3001\u300cymd(&C)\u300d\u306b\u5909\u66f4\u3059\u308b\u3002\u300c(&C)\u300d\u3092\u4ed8\u3051\u306a\u3044\u3068\u30a8\u30e9\u30fc\u306b\u306a\u308b\u3002\r\n    myBar.Controls(3).OnAction = \"ToolBarButtonCode.\u633f_\u30c6Box_\u8d641\"   ' \u30dc\u30bf\u30f3\u3092\u300cNORMAL.DOT\u300d\u306e\u300ccell_hiduke_yyyy_mm_dd\u300d\u30d7\u30ed\u30b7\u30fc\u30b8\u30e3\u3068\u95a2\u9023\u4ed8\u3051\u308b\r\n\r\n    myBar.Controls.Add ID:=1     '\u300c\u30de\u30af\u30ed\u300d\u30dc\u30bf\u30f3\u3092\u8ffd\u52a0\u3057\u307e\u3059\r\n    myBar.Controls(4).Style = msoButtonIconAndCaption               ' \u30dc\u30bf\u30f3\u306e\u8868\u793a\u5f62\u5f0f\u3092\u300c\u30a4\u30e1\u30fc\u30b8\u3068\u30c6\u30ad\u30b9\u30c8\u300d\u306b\u3059\u308b\u3002\r\n    myBar.Controls(4).Caption = \"\u633f\u30c6Box\u97521(&C)\"                    ' \u30dc\u30bf\u30f3\u306e\u300c\u30c6\u30ad\u30b9\u30c8\u300d\u90e8\u5206\u3092\u3001\u300cymd(&C)\u300d\u306b\u5909\u66f4\u3059\u308b\u3002\u300c(&C)\u300d\u3092\u4ed8\u3051\u306a\u3044\u3068\u30a8\u30e9\u30fc\u306b\u306a\u308b\u3002\r\n    myBar.Controls(4).OnAction = \"ToolBarButtonCode.\u633f_\u30c6Box_\u97521\"   ' \u30dc\u30bf\u30f3\u3092\u300cNORMAL.DOT\u300d\u306e\u300ccell_hiduke_yyyy_mm_dd\u300d\u30d7\u30ed\u30b7\u30fc\u30b8\u30e3\u3068\u95a2\u9023\u4ed8\u3051\u308b\r\n\r\n    myBar.Controls.Add ID:=1     '\u300c\u30de\u30af\u30ed\u300d\u30dc\u30bf\u30f3\u3092\u8ffd\u52a0\u3057\u307e\u3059\r\n    myBar.Controls(5).Style = msoButtonIconAndCaption               ' \u30dc\u30bf\u30f3\u306e\u8868\u793a\u5f62\u5f0f\u3092\u300c\u30a4\u30e1\u30fc\u30b8\u3068\u30c6\u30ad\u30b9\u30c8\u300d\u306b\u3059\u308b\u3002\r\n    myBar.Controls(5).Caption = \"\u633f\u77e2\u5370\u8d641(&C)\"                     ' \u30dc\u30bf\u30f3\u306e\u300c\u30c6\u30ad\u30b9\u30c8\u300d\u90e8\u5206\u3092\u3001\u300cymd(&C)\u300d\u306b\u5909\u66f4\u3059\u308b\u3002\u300c(&C)\u300d\u3092\u4ed8\u3051\u306a\u3044\u3068\u30a8\u30e9\u30fc\u306b\u306a\u308b\u3002\r\n    myBar.Controls(5).OnAction = \"ToolBarButtonCode.\u633f_\u77e2\u5370_\u8d641\"    ' \u30dc\u30bf\u30f3\u3092\u300cNORMAL.DOT\u300d\u306e\u300ccell_hiduke_yyyy_mm_dd\u300d\u30d7\u30ed\u30b7\u30fc\u30b8\u30e3\u3068\u95a2\u9023\u4ed8\u3051\u308b\r\n\r\n    myBar.Controls.Add ID:=1     '\u300c\u30de\u30af\u30ed\u300d\u30dc\u30bf\u30f3\u3092\u8ffd\u52a0\u3057\u307e\u3059\r\n    myBar.Controls(6).Style = msoButtonIconAndCaption               ' \u30dc\u30bf\u30f3\u306e\u8868\u793a\u5f62\u5f0f\u3092\u300c\u30a4\u30e1\u30fc\u30b8\u3068\u30c6\u30ad\u30b9\u30c8\u300d\u306b\u3059\u308b\u3002\r\n    myBar.Controls(6).Caption = \"\u633f\u77e2\u5370\u97521(&C)\"                     ' \u30dc\u30bf\u30f3\u306e\u300c\u30c6\u30ad\u30b9\u30c8\u300d\u90e8\u5206\u3092\u3001\u300cymd(&C)\u300d\u306b\u5909\u66f4\u3059\u308b\u3002\u300c(&C)\u300d\u3092\u4ed8\u3051\u306a\u3044\u3068\u30a8\u30e9\u30fc\u306b\u306a\u308b\u3002\r\n    myBar.Controls(6).OnAction = \"ToolBarButtonCode.\u633f_\u77e2\u5370_\u97521\"    ' \u30dc\u30bf\u30f3\u3092\u300cNORMAL.DOT\u300d\u306e\u300ccell_hiduke_yyyy_mm_dd\u300d\u30d7\u30ed\u30b7\u30fc\u30b8\u30e3\u3068\u95a2\u9023\u4ed8\u3051\u308b\r\n\r\n    myBar.Controls.Add ID:=1     '\u300c\u30de\u30af\u30ed\u300d\u30dc\u30bf\u30f3\u3092\u8ffd\u52a0\u3057\u307e\u3059\r\n    myBar.Controls(7).Style = msoButtonIconAndCaption                   ' \u30dc\u30bf\u30f3\u306e\u8868\u793a\u5f62\u5f0f\u3092\u300c\u30a4\u30e1\u30fc\u30b8\u3068\u30c6\u30ad\u30b9\u30c8\u300d\u306b\u3059\u308b\u3002\r\n    myBar.Controls(7).Caption = \"\u4e38\u77e9\u30bb\u30c3\u30c8\u8d64(&C)\"                      ' \u30dc\u30bf\u30f3\u306e\u300c\u30c6\u30ad\u30b9\u30c8\u300d\u90e8\u5206\u3092\u3001\u300cymd(&C)\u300d\u306b\u5909\u66f4\u3059\u308b\u3002\u300c(&C)\u300d\u3092\u4ed8\u3051\u306a\u3044\u3068\u30a8\u30e9\u30fc\u306b\u306a\u308b\u3002\r\n    myBar.Controls(7).OnAction = \"ToolBarButtonCode.\u633f_\u4e38\u77e9\u30bb\u30c3\u30c8_\u8d64\"   ' \u30dc\u30bf\u30f3\u3092\u300cNORMAL.DOT\u300d\u306e\u300ccell_hiduke_yyyy_mm_dd\u300d\u30d7\u30ed\u30b7\u30fc\u30b8\u30e3\u3068\u95a2\u9023\u4ed8\u3051\u308b\r\n\r\n    myBar.Controls.Add ID:=1     '\u300c\u30de\u30af\u30ed\u300d\u30dc\u30bf\u30f3\u3092\u8ffd\u52a0\u3057\u307e\u3059\r\n    myBar.Controls(8).Style = msoButtonIconAndCaption                   ' \u30dc\u30bf\u30f3\u306e\u8868\u793a\u5f62\u5f0f\u3092\u300c\u30a4\u30e1\u30fc\u30b8\u3068\u30c6\u30ad\u30b9\u30c8\u300d\u306b\u3059\u308b\u3002\r\n    myBar.Controls(8).Caption = \"TBox\u30bb\u30c3\u30c8\u8d64(&C)\"                      ' \u30dc\u30bf\u30f3\u306e\u300c\u30c6\u30ad\u30b9\u30c8\u300d\u90e8\u5206\u3092\u3001\u300cymd(&C)\u300d\u306b\u5909\u66f4\u3059\u308b\u3002\u300c(&C)\u300d\u3092\u4ed8\u3051\u306a\u3044\u3068\u30a8\u30e9\u30fc\u306b\u306a\u308b\u3002\r\n    myBar.Controls(8).OnAction = \"ToolBarButtonCode.\u633f_\u30c6Box\u30bb\u30c3\u30c8_\u8d64\"  ' \u30dc\u30bf\u30f3\u3092\u300cNORMAL.DOT\u300d\u306e\u300ccell_hiduke_yyyy_mm_dd\u300d\u30d7\u30ed\u30b7\u30fc\u30b8\u30e3\u3068\u95a2\u9023\u4ed8\u3051\u308b\r\n\r\n    '\u30c4\u30fc\u30eb\u30d0\u30fc\u3092\u53ef\u8996\u5316\u3057\u307e\u3059\u3002\r\n    myBar.Visible = True\r\n\r\n\r\nEnd Sub\r\n\r\n\r\n'##################################################################################\r\n'\u300c\u30c6\u30ad\u30b9\u30c8\u64cd\u4f5c\u7cfb\u30c4\u30fc\u30eb\u30d0\u30fc01\u300d\u30c4\u30fc\u30eb\u30d0\u30fc\u304c\u5b58\u5728\u3059\u308b\u304b\u3092\u30c1\u30a7\u30c3\u30af\u3057\u3066\u3001\u7121\u3051\u308c\u3070\u518d\u4f5c\u6210\u3057\u307e\u3059\u3002\r\n'\u30dc\u30bf\u30f3\u306e\u8868\u793a\u5f62\u5f0f\u3092\u300c\u30a4\u30e1\u30fc\u30b8\u3068\u30c6\u30ad\u30b9\u30c8\u300d\u306b\u3057\u307e\u3059\u3002\uff08Word\u306e\u5834\u5408\u306f\u7d75\u304c\u51fa\u307e\u305b\u3093\u304c\u3002\uff09\r\n'##################################################################################\r\n\r\nSub CmdBarChkAndAdd_TypeTxtOpe01()\r\n    \r\n    Dim myBar As CommandBar, i As Long, C\r\n    Dim StrBarChkTxt As String\r\n    \r\n    \r\n    '\u3053\u3053\u3067\u3001\u4f5c\u308a\u305f\u3044\u30c4\u30fc\u30eb\u30d0\u30fc\u306e\u540d\u524d\u3092\u300c\u30c6\u30ad\u30b9\u30c8\u64cd\u4f5c\u7cfb\u30c4\u30fc\u30eb\u30d0\u30fc01\u300d\u306b\u6c7a\u3081\u3066\u304a\u304d\u307e\u3059\u3002\r\n    '\u306a\u304a\u3001\u3053\u3053\u3067\u5225\u306e\u540d\u524d\u306b\u66f8\u304d\u63db\u3048\u308c\u3070\u3001\u305f\u3068\u3048\u30dc\u30bf\u30f3\u306e\u5185\u5bb9\u304c\u540c\u3058\u3060\u3063\u305f\u3068\u3057\u3066\u3082\r\n    '\u5225\u306e\u30c4\u30fc\u30eb\u30d0\u30fc\u3068\u3057\u3066\u3001\u30ea\u30dc\u30f3\u306e\u300c\u30a2\u30c9\u30a4\u30f3\u300d\u30bf\u30d6\u306b\u65b0\u3057\u304f\u751f\u6210\u3055\u308c\u307e\u3059\u3002\r\n    StrBarChkTxt = \"\u30c6\u30ad\u30b9\u30c8\u64cd\u4f5c\u7cfb\u30c4\u30fc\u30eb\u30d0\u30fc01\"\r\n    \r\n    For Each C In CommandBars\r\n        If C.Name = StrBarChkTxt Then\r\n            '\u65e2\u306b\u3001\u300cStrBarChkTxt = \"\u30c4\u30fc\u30eb\u30d0\u30fc\u306e\u540d\u524d\"\u300d\u306e\u884c\u3067\u6307\u5b9a\u3057\u305f\u540d\u524d\u306e\u30c4\u30fc\u30eb\u30d0\u30fc\u304c\u5b58\u5728\u3057\u305f\u3089\r\n            '\u975e\u8868\u793a\u306b\u306a\u3063\u3066\u308b\u3068\u3044\u3051\u306a\u3044\u306e\u3067\u3001\r\n            '\u8868\u793a\u3057\u3066\u304b\u3089\u7d42\u308f\u308b\u3002\r\n            C.Visible = True\r\n            Exit Sub\r\n        Else\r\n            \r\n        End If\r\n    Next C\r\n    \r\n    '\u76f4\u524d\u306e\u30eb\u30fc\u30d7\u3092\u6700\u5f8c\u307e\u3067\u5b9f\u884c\u3057\u305f\u3068\u304d\r\n    '\u6307\u5b9a\u3057\u305f\u540d\u524d\u306e\u30c4\u30fc\u30eb\u30d0\u30fc\u304c\u898b\u3064\u304b\u3089\u306a\u304b\u3063\u305f\u6642\u306f\u3053\u3053\u306b\u6765\u308b\u306e\u3067\u3001\r\n    '\u5fc5\u8981\u306b\u5fdc\u3058\u3066\u4ee5\u4e0b\u306e\u30e1\u30c3\u30bb\u30fc\u30b8\u3092\u767a\u3059\u308b\u3002\r\n'    MsgBox \"\u300c\" & StrBarChkTxt & \"\u300d\u30c4\u30fc\u30eb\u30d0\u30fc\u304c\u6d88\u3048\u3066\u3057\u307e\u3063\u3066\u3044\u308b\u3088\u3046\u3067\u3059\u3002\u518d\u4f5c\u6210\u3057\u3066\u304f\u3060\u3055\u3044\u3002\"\r\n'    MsgBox \"\u300c\" & StrBarChkTxt & \"\u300d\u30c4\u30fc\u30eb\u30d0\u30fc\u304c\u6d88\u3048\u3066\u3057\u307e\u3063\u3066\u3044\u308b\u3088\u3046\u3067\u3059\u306e\u3067\u518d\u4f5c\u6210\u3057\u307e\u3059\u3002\"\r\n    \r\n    Set myBar = CommandBars.Add               '\u7a7a\u3063\u307d\u306e\u30c4\u30fc\u30eb\u30d0\u30fc\u3092\u4f5c\u6210\r\n    myBar.Name = StrBarChkTxt                 '\u305d\u306e\u7a7a\u3063\u307d\u306e\u30c4\u30fc\u30eb\u30d0\u30fc\u306b\u540d\u524d\u3092\u3064\u3051\u307e\u3059\u3002\r\n\r\n\r\n\r\n    '\u5404\u30dc\u30bf\u30f3\u306e\u8ffd\u52a0\r\n    '\u3082\u3057\u65b0\u3057\u3044\u30dc\u30bf\u30f3\u3092\u8ffd\u52a0\u3057\u305f\u3044\u3068\u304d\u306f\u30ab\u30c3\u30b3\u306e\u4e2d\u306e\u6570\u5b57\u3092\u9593\u9055\u308f\u306a\u3044\u3053\u3068\u3002\r\n    '1\u304c1\u3064\u76ee\u306e\u30dc\u30bf\u30f3\u30012\u304c2\u3064\u76ee\u306e\u30dc\u30bf\u30f3\u30fb\u30fb\u30fb\u3068\u3044\u3046\u610f\u5473\u3067\u3059\u3002\r\n    \r\n    myBar.Controls.Add ID:=1                                            '\u300c\u30de\u30af\u30ed\u300d\u30dc\u30bf\u30f3\u3092\u8ffd\u52a0\u3057\u307e\u3059\r\n    myBar.Controls(1).Style = msoButtonIconAndCaption                   ' \u30dc\u30bf\u30f3\u306e\u8868\u793a\u5f62\u5f0f\u3092\u300c\u30a4\u30e1\u30fc\u30b8\u3068\u30c6\u30ad\u30b9\u30c8\u300d\u306b\u3059\u308b\u3002\r\n    myBar.Controls(1).Caption = \"\u6bb5\u56fa10_\u4e38\u30b4\u30b78(&C)\"                    ' \u30dc\u30bf\u30f3\u306e\u300c\u30c6\u30ad\u30b9\u30c8\u300d\u90e8\u5206\u3092\u3001\u300cymd(&C)\u300d\u306b\u5909\u66f4\u3059\u308b\u3002\u300c(&C)\u300d\u3092\u4ed8\u3051\u306a\u3044\u3068\u30a8\u30e9\u30fc\u306b\u306a\u308b\u3002\r\n    myBar.Controls(1).OnAction = \"ToolBarButtonCode.\u6bb5\u56fa10_\u4e38\u30b4\u30b78\"     ' \u30dc\u30bf\u30f3\u3092\u300cNORMAL.DOT\u300d\u306e\u300ccell_hiduke_yyyy_mm_dd\u300d\u30d7\u30ed\u30b7\u30fc\u30b8\u30e3\u3068\u95a2\u9023\u4ed8\u3051\u308b\r\n\r\n    \r\n    '\u30c4\u30fc\u30eb\u30d0\u30fc\u3092\u53ef\u8996\u5316\u3057\u307e\u3059\u3002\r\n    myBar.Visible = True\r\n\r\n\r\nEnd Sub\r\n\r\n\r\n\r\n\r\n\r\nSub CmcBtnCaptionIdChk02()\r\n'\u30c4\u30fc\u30eb\u30d0\u30fc\u306e\u30dc\u30bf\u30f3ID\u3092\u8abf\u3079\u3066\u3001\u305d\u306e\u7d50\u679c\u306e\uff08\u8a2d\u5b9a\u5024\u306e\uff09\u6587\u5b57\u5217\u3092\u30af\u30ea\u30c3\u30d7\u30dc\u30fc\u30c9\u3078\u9001\u308a\u307e\u3059\u3002\r\n'\u300c\u30c4\u30fc\u30eb\u30d0\u30fc\u540d-----\u30dc\u30bf\u30f3\u306e\u8868\u793a\u540d-----\u30dc\u30bf\u30f3ID\u300d\u3001\u3068\u3044\u3063\u305f\u5f62\u3067\u8a2d\u5b9a\u5024\u304c\u30af\u30ea\u30c3\u30d7\u30dc\u30fc\u30c9\u3078\u9001\u3089\u308c\u307e\u3059\u3002\r\n'\u3053\u3053\u306b\u8f09\u3063\u3066\u3053\u306a\u304b\u3063\u305f\u3082\u306e\u306b\u95a2\u3057\u3066\u306f\u3001\u300c\u30de\u30af\u30ed\u306e\u8a18\u9332\u300d\u6a5f\u80fd\u3067\u8abf\u3079\u307e\u3059\u3002\r\n'\u76ee\u7684\u306e\u30dc\u30bf\u30f3\u3092\u62bc\u3059\u307e\u3067\u3092\u300c\u30de\u30af\u30ed\u306e\u8a18\u9332\u300d\u3067\u8a18\u9332\u3057\u3001VBE\u3067\u305d\u306e\u30d7\u30ed\u30b0\u30e9\u30e0\u5185\u5bb9\u3092\u78ba\u8a8d\u3059\u308b\u3068\u3001\r\n'\u300cID:=2950, \u30fb\u30fb\u30fb\u300d\u307f\u305f\u3044\u306a\u5f62\u3067\u5206\u304b\u308a\u307e\u3059\u3002\r\n'\u306a\u304a\u3001\u3053\u306e\u30b3\u30fc\u30c9\u3092\u5b9f\u884c\u3059\u308b\u306b\u306f\u5225\u9014\u3067\u3001ClipBoard_SetData() \u306a\u3069\u3001\u30af\u30ea\u30c3\u30d7\u30dc\u30fc\u30c9\u64cd\u4f5c\u306e\u30d7\u30ed\u30b0\u30e9\u30e0\u304c\u5fc5\u8981\u3067\u3059\u3002\r\n'https:\/\/euc-access-excel-db.com\/tips\/ct07_se\/ct075010_ac2ktips\/access2000tips-win32-api-clipboad\r\n'\u3092\u53c2\u7167\u3057\u3066\u3001\u5148\u306b\u300c\u30af\u30ea\u30c3\u30d7\u30dc\u30fc\u30c9\u64cd\u4f5c\u300d\u3068\u3044\u3046\u540d\u524d\u3067\u3044\u3044\u306e\u3067\r\n'\u30af\u30ea\u30c3\u30d7\u30dc\u30fc\u30c9\u64cd\u4f5c\u7528\u306e\u6a19\u6e96\u30e2\u30b8\u30e5\u30fc\u30eb\u3092\u4f5c\u3063\u3066\u304a\u3044\u3066\u304f\u3060\u3055\u3044\u3002\r\n\r\n    Dim myBar       As CommandBar, i As Long, C\r\n    Dim ConfigStr   As String\r\n    Dim ctl         As Object\r\n    \r\n\r\n    For Each C In CommandBars\r\n\r\n        Debug.Print C.Name\r\n\r\n\r\n        For Each ctl In CommandBars(C.Name).Controls\r\n\r\n            'Debug.Print C.Name & \"-----\" & ctl.Caption & \"-----\" & ctl.ID\r\n            \r\n            ConfigStr = ConfigStr & vbCrLf & C.Name & \"-----\" & ctl.Caption & \"-----\" & ctl.ID\r\n        Next ctl\r\n      \r\n    Next C\r\n    \r\n    Call ClipBoard_SetData(ConfigStr)\r\n\r\nEnd Sub\r\n\r\nSub CmcBtnCaptionIdChk()\r\n'\u30a4\u30df\u30c7\u30a3\u30a8\u30a4\u30c8\u3067\u306e\u30c1\u30a7\u30c3\u30af\u7528\u3067\u3059\u3002\r\n'\u3053\u3053\u306b\u8f09\u3063\u3066\u3053\u306a\u304b\u3063\u305f\u3082\u306e\u306b\u95a2\u3057\u3066\u306f\u3001\u300c\u30de\u30af\u30ed\u306e\u8a18\u9332\u300d\u6a5f\u80fd\u3067\u8abf\u3079\u307e\u3059\u3002\r\n'\u76ee\u7684\u306e\u30dc\u30bf\u30f3\u3092\u62bc\u3059\u307e\u3067\u3092\u300c\u30de\u30af\u30ed\u306e\u8a18\u9332\u300d\u3067\u8a18\u9332\u3057\u3001VBE\u3067\u305d\u306e\u30d7\u30ed\u30b0\u30e9\u30e0\u5185\u5bb9\u3092\u78ba\u8a8d\u3059\u308b\u3068\u3001\r\n'\u300cID:=2950, \u30fb\u30fb\u30fb\u300d\u307f\u305f\u3044\u306a\u5f62\u3067\u5206\u304b\u308a\u307e\u3059\u3002\r\n\r\n    Dim myBar As CommandBar, i As Long, C\r\n    Dim ctl         As CommandBarControl\r\n\r\n    For Each C In CommandBars\r\n\r\n        Debug.Print C.Name\r\n\r\n\r\n        For Each ctl In CommandBars(C.Name).Controls\r\n\r\n            Debug.Print C.Name & \"-----\" & ctl.Caption & \"-----\" & ctl.ID\r\n            \r\n        Next ctl\r\n      \r\n    Next C\r\n    \r\n    \r\nEnd Sub\r\n\r\n'\r\n'\r\n<\/pre>\n
\u3000\u3000<\/SPAN><\/p>\n
(03)\u524d\u9805\u306e(02)\u306e\u30c6\u30b9\u30c8\u30d7\u30ed\u30b0\u30e9\u30e0\u3092\u52d5\u304b\u3057\u305f\u3044\u5834\u5408\u306f\u3001\u4ee5\u964d\u306b\u6319\u3052\u305f\u306e\u30b5\u30a4\u30c8\u306e\u30b3\u30fc\u30c9\u3082\u30b3\u30d4\u30da\u3057\u307e\u3059\u3002<\/a>
\n\u65b0\u3057\u304f\u6a19\u6e96\u30e2\u30b8\u30e5\u30fc\u30eb\u3092\u4f5c\u308a\u3001\u300c\u30af\u30ea\u30c3\u30d7\u30dc\u30fc\u30c9\u64cd\u4f5c\u300d\u3068\u3044\u3046\u540d\u524d\u306b\u5909\u3048\u3066\u304b\u3089\u30b3\u30d4\u30da\u3057\u307e\u3059\u3002<\/p>\n
\u300cAccess2000Tips Win32 API \u30af\u30ea\u30c3\u30d7\u30dc\u30fc\u30c9\u3078\u5909\u6570\u306a\u3069\u306e\u6587\u5b57\u3092\u9001\u308b\u3001\u30af\u30ea\u30c3\u30d7\u30dc\u30fc\u30c9\u306e\u6587\u5b57\u3092\u53d6\u5f97\u3059\u308b\u300d
\nhttps:\/\/euc-access-excel-db.com\/tips\/ct07_se\/ct075010_ac2ktips\/access2000tips-win32-api-clipboad<\/a>
\n\u3092\u3054\u53c2\u7167\u304f\u3060\u3055\u3044\u3002<\/p>\n
\u3053\u306e\u51e6\u7406\u306f\u3001\u50d5\u306f(\u6709)\u30ed\u30fc\u30c9\u30b7\u30b9\u30c6\u30e0\u69d8\u306e\u30b5\u30f3\u30d7\u30eb\u3092\u305d\u306e\u307e\u307e\u4f7f\u308f\u305b\u3066\u9802\u3044\u3066\u3044\u307e\u3059\u3002
\n\u3053\u306e\u30b5\u30a4\u30c8\u306f\u6709\u76ca\u306a\u60c5\u5831\u304c\u305f\u304f\u3055\u3093\u3042\u308a\u307e\u3059\u304b\u3089\u3001\u7686\u3055\u3093\u3082\u305c\u3072\u898b\u3066\u307f\u3066\u304f\u3060\u3055\u3044\u3002<\/p>\n
(\u6709)\u30ed\u30fc\u30c9\u30b7\u30b9\u30c6\u30e0\u69d8
\nhttp:\/\/www.loadsystem.jp\/api\/<\/a><\/p>\n
\u30b3\u30d4\u30da\u3059\u308b\u306e\u306f\u3001
\nhttp:\/\/www.loadsystem.jp\/api\/api15.htm<\/a> \u306e\u300cSource\u300d\u306e\u5185\u5bb9\u3067\u3059\u3002<\/p>\n
\u76f4\u30ea\u30f3\u30af\u3060\u3068
\nhttp:\/\/www.loadsystem.jp\/api\/lsapi15.txt<\/a> \u306e\u5185\u5bb9\u3092\u6a19\u6e96\u30e2\u30b8\u30e5\u30fc\u30eb\u306b\u30b3\u30d4\u30da\u3059\u308b\u3060\u3051\u3067\u4f7f\u3048\u307e\u3059\u3002<\/p>\n
\u305f\u3060\u3057\u3001\u3053\u3053\u3067\u306f\u3001\u30af\u30ea\u30c3\u30d7\u30dc\u30fc\u30c9\u306b\u9001\u308c\u308b\u6587\u5b57\u6570\u3092\u5897\u3084\u3059\u305f\u3081\u306b\u3001<\/p>\n
Public Const MAXSIZE = 4096<\/p>\n
\u306e\u884c\u3060\u3051\u3001<\/p>\n
Public Const MAXSIZE = 15000000<\/p>\n
\u3068\u3001\u66f8\u304d\u63db\u3048\u3066\u4e0a\u66f8\u304d\u4fdd\u5b58\u3057\u307e\u3059\u3002<\/p>\n
\u305d\u308c\u3067\u5b8c\u4e86\u3067\u3059\u3002
\n\u3000\u3000<\/SPAN>
\n\u3000\u3000<\/SPAN>
\n\u2605 \u30c4\u30fc\u30eb\u30d0\u30fc\u306e\u524a\u9664\u3001\u30dc\u30bf\u30f3\u306e\u5897\u3084\u3057\u65b9\u306e\u65b9\u6cd5<\/a><\/p>\n
\u30c4\u30fc\u30eb\u30d0\u30fc\u306e\u524a\u9664\u306f\u3001\u30c4\u30fc\u30eb\u30d0\u30fc\u306e\u3069\u306e\u30dc\u30bf\u30f3\u306e\u4e0a\u3067\u3082\u3044\u3044\u306e\u3067\u53f3\u30af\u30ea\u30c3\u30af\u3057\u3066\u300c\u30e6\u30fc\u30b6\u30fc\u8a2d\u5b9a\u306e\u30c4\u30fc\u30eb\u30d0\u30fc\u306e\u524a\u9664\u300d\u3067OK\u3067\u3059\u3002<\/p>\n
\u300c\u30a2\u30c9\u30a4\u30f3\u300d\u30bf\u30d6\u306e\u4e2d\u306b\u5358\u4e00\u306e\u30c4\u30fc\u30eb\u30d0\u30fc\u3057\u304b\u306a\u3044\u5834\u5408\u3001\u305d\u308c\u3092\u524a\u9664\u3059\u308b\u3068\u3001\u540c\u6642\u306b\u300c\u30a2\u30c9\u30a4\u30f3\u300d\u30bf\u30d6\u3082\u6d88\u3048\u307e\u3059\u3002<\/p>\n
\u8907\u6570\u306e\u30c4\u30fc\u30eb\u30d0\u30fc\u304c\u751f\u6210\u3055\u308c\u3066\u3044\u305f\u5834\u5408\u3001\u6700\u5f8c\u306e\u30c4\u30fc\u30eb\u30d0\u30fc\u304c\u524a\u9664\u3055\u308c\u308b\u3068\u300c\u30a2\u30c9\u30a4\u30f3\u300d\u30bf\u30d6\u3082\u6d88\u3048\u307e\u3059\u3002<\/p>\n
\u518d\u5ea6\u3001\u30d7\u30ed\u30b0\u30e9\u30e0\u3067\u30c4\u30fc\u30eb\u30d0\u30fc\u3092\u81ea\u52d5\u751f\u6210\u3059\u308b\u3068\u3001\u540c\u540d\u306e\u30c4\u30fc\u30eb\u30d0\u30fc\u304c\u751f\u6210\u3055\u308c\u307e\u3059\u3002
\n\uff08\u672c\u30b5\u30f3\u30d7\u30eb\u3067\u306f\u300c\u30c6\u30ad\u30b9\u30c8\u64cd\u4f5c\u7cfb\u30c4\u30fc\u30eb\u30d0\u30fc01\u300d\u30c4\u30fc\u30eb\u30d0\u30fc\u3084\u300c\u633f\u5165\u7cfb\u30c4\u30fc\u30eb\u30d0\u30fc01\u300d\u30c4\u30fc\u30eb\u30d0\u30fc\u3002\uff09<\/p>\n
\u65b0\u3057\u304f\u30dc\u30bf\u30f3\u3092\u8ffd\u52a0\u3057\u305f\u3044\u5834\u5408\u306f\u3001\u307e\u305a\u5148\u306b\u3001\u300cToolBarButtonCode\u300d\u6a19\u6e96\u30e2\u30b8\u30e5\u30fc\u30eb\u306b\u3001\u8ffd\u52a0\u3059\u308b\u30dc\u30bf\u30f3\u306b\u3069\u3093\u306a\u30d7\u30ed\u30b0\u30e9\u30e0\u3092\u5b9f\u884c\u3055\u305b\u305f\u3044\u304b\u306e\u30d7\u30ed\u30b7\u30fc\u30b8\u30e3\u3092\u66f8\u304d\u307e\u3059\u3002
\n\u305d\u306e\u5f8c\u3001\u305d\u306e\u30d7\u30ed\u30b7\u30fc\u30b8\u30e3\u3068\u3069\u3093\u306a\u30dc\u30bf\u30f3\u3092\u7d10\u4ed8\u3051\u3059\u308b\u304b\u3092\u3001\u65e2\u5b58\u306e\u30c4\u30fc\u30eb\u30d0\u30fc\u751f\u6210\u306e\u30d7\u30ed\u30b7\u30fc\u30b8\u30e3\u306b\u8ffd\u8a18\u3057\u307e\u3059\u3002<\/p>\n
\u672c\u30b5\u30f3\u30d7\u30eb\u3060\u3068\u3001\u300cCmdBarChkAndAdd_TypeInsert01()\u300d\u3084\u300cCmdBarChkAndAdd_TypeTxtOpe01()\u300d\u3067\u3059\u3002\u300cCmdBarChkAndAdd_TypeInsert01()\u300d\u306b9\u500b\u76ee\u300110\u500b\u76ee\u3001\u3042\u308b\u3044\u306f\u3001\u300cCmdBarChkAndAdd_TypeTxtOpe01()\u300d\u306b2\u3064\u76ee\u30013\u3064\u76ee\u3001\u3068\u30dc\u30bf\u30f3\u306e\u767b\u9332\u306e\u30d7\u30ed\u30b0\u30e9\u30e0\u3092\u8ffd\u52a0\u3057\u307e\u3059\u3002<\/p>\n
\u305d\u3057\u3066\u3001\u3044\u3063\u305f\u3093\u3001\u65e2\u5b58\u306e\u30c4\u30fc\u30eb\u30d0\u30fc\u3092\u524a\u9664\u3057\u3066\u304b\u3089\u3001\u518d\u5ea6\u3001\u540c\u3058\u540d\u524d\u3067\u30c4\u30fc\u30eb\u30d0\u30fc\u3092\u767b\u9332\u3057\u307e\u3059\u3002<\/p>\n
\u3064\u307e\u308a\u3001\u53f3\u30af\u30ea\u30c3\u30af\u2192\u300c\u30e6\u30fc\u30b6\u30fc\u8a2d\u5b9a\u306e\u30c4\u30fc\u30eb\u30d0\u30fc\u306e\u524a\u9664\u300d\u306b\u3066\u3001\u300c\u30c6\u30ad\u30b9\u30c8\u64cd\u4f5c\u7cfb\u30c4\u30fc\u30eb\u30d0\u30fc01\u300d\u30c4\u30fc\u30eb\u30d0\u30fc\u3068\u300c\u633f\u5165\u7cfb\u30c4\u30fc\u30eb\u30d0\u30fc01\u300d\u30c4\u30fc\u30eb\u30d0\u30fc\u3092\u3044\u3063\u305f\u3093\u524a\u9664\u3057\u3066\u304b\u3089\u3001\u518d\u5ea6\u3001\u300cMultipleCmdBarAllAdd01()\u300d\u3092\u5b9f\u884c\u3057\u307e\u3059\u3002<\/p>\n
\u30dc\u30bf\u30f3\u3092\u5897\u3084\u3057\u305f\u3044\u3068\u304d\u306f\u3053\u308c\u306e\u7e70\u308a\u8fd4\u3057\u3068\u306a\u308a\u307e\u3059\u3002<\/p>\n
\u3000\u3000<\/SPAN>
\n\u3000\u3000<\/SPAN>
\n\u203b\u95a2\u9023\u8a18\u4e8b
\nExcel2010\u306e\u30ea\u30dc\u30f3\u306b\u3001Excel2000\u3068\u540c\u3058\u30d7\u30ed\u30b0\u30e9\u30e0\u30b3\u30fc\u30c9\u306e\u30b3\u30d4\u30da\u3067\u30e6\u30fc\u30b6\u30fc\u8a2d\u5b9a\u30dc\u30bf\u30f3\u3092\u751f\u6210\u3059\u308b\u3002\uff08\u4e00\u5fdc\u30c4\u30fc\u30eb\u30d0\u30fc\u5358\u4f4d\u3067\uff09
\nhttps:\/\/euc-access-excel-db.com\/tips\/ct08_exceltruebasic\/ct080860_vba_basic\/tool-bar-auto-make-excel<\/a><\/p>\n
\u3000\u3000<\/SPAN>
\n\u3000\u3000<\/SPAN>
\n\u3000\u3000<\/SPAN>
\n\u3000\u3000<\/SPAN><\/p>\n","protected":false},"excerpt":{"rendered":"\u25cf Word2010\u306e\u30ea\u30dc\u30f3\u306b\u3001Word2000\u3068\u540c\u3058\u30d7\u30ed\u30b0\u30e9\u30e0\u30b3\u30fc\u30c9\u306e\u30b3\u30d4\u30da\u3067\u30e6\u30fc\u30b6\u30fc\u8a2d\u5b9a\u30dc\u30bf\u30f3\u3092\u751f\u6210\u3059\u308b\u3002\uff08\u4e00\u5fdc\u30c4\u30fc\u30eb\u30d0\u30fc\u5358\u4f4d\u3067\uff09 \u203b\u9593\u9055\u3063\u3066\u305f\u3089\u3059\u307f\u307e\u305b\u3093\u3002 \u203b\u30e1\u30e2\u66f8\u304d\u306a\u306e\u3067\u3001\u81ea\u5206\u3067\u3082\u610f\u5473\u4e0d\u660e\u306a\u7b87\u6240\u3082\u591a\u3044\u3067\u3059\u3002\u3054\u3081 ...","protected":false},"author":2,"featured_media":0,"comment_status":"closed","ping_status":"closed","sticky":false,"template":"","format":"standard","meta":[],"categories":[108],"_links":{"self":[{"href":"https:\/\/euc-access-excel-db.com\/tips\/wp-json\/wp\/v2\/posts\/1214"}],"collection":[{"href":"https:\/\/euc-access-excel-db.com\/tips\/wp-json\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/euc-access-excel-db.com\/tips\/wp-json\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/euc-access-excel-db.com\/tips\/wp-json\/wp\/v2\/users\/2"}],"replies":[{"embeddable":true,"href":"https:\/\/euc-access-excel-db.com\/tips\/wp-json\/wp\/v2\/comments?post=1214"}],"version-history":[{"count":0,"href":"https:\/\/euc-access-excel-db.com\/tips\/wp-json\/wp\/v2\/posts\/1214\/revisions"}],"wp:attachment":[{"href":"https:\/\/euc-access-excel-db.com\/tips\/wp-json\/wp\/v2\/media?parent=1214"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/euc-access-excel-db.com\/tips\/wp-json\/wp\/v2\/categories?post=1214"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}