{"id":7537,"date":"2016-10-24T11:00:19","date_gmt":"2016-10-24T02:00:19","guid":{"rendered":"https:\/\/www.ka-net.org\/blog\/?p=7537"},"modified":"2016-10-24T11:00:19","modified_gmt":"2016-10-24T02:00:19","slug":"vbadataobject%e3%82%92%e4%bd%bf%e3%81%a3%e3%81%9f%e3%82%af%e3%83%aa%e3%83%83%e3%83%97%e3%83%9c%e3%83%bc%e3%83%89%e6%93%8d%e4%bd%9c%e3%81%8c%e4%b8%8a%e6%89%8b%e3%81%8f%e3%81%84%e3%81%8b%e3%81%aa","status":"publish","type":"post","link":"https:\/\/www.ka-net.org\/blog\/?p=7537","title":{"rendered":"[VBA]DataObject\u3092\u4f7f\u3063\u305f\u30af\u30ea\u30c3\u30d7\u30dc\u30fc\u30c9\u64cd\u4f5c\u304c\u4e0a\u624b\u304f\u3044\u304b\u306a\u3044\u5834\u5408\u306e\u5bfe\u51e6\u6cd5"},"content":{"rendered":"<p>VBA\u30de\u30af\u30ed\u304b\u3089\u30af\u30ea\u30c3\u30d7\u30dc\u30fc\u30c9\u3092\u64cd\u4f5c\u3059\u308b\u5834\u5408\u3001\u5b9a\u756a\u3068\u306a\u3063\u3066\u3044\u308b\u306e\u304cDataObject\u3092\u4f7f\u3063\u305f\u65b9\u6cd5\u3067\u3059\u3002<\/p>\n<pre class=\"brush: vb; title: ; notranslate\" title=\"\">Public Sub Sample()\r\n  With New DataObject\r\n    .SetText &quot;\u3053\u3093\u306b\u3061\u306f\u3001\u4e16\u754c\uff01&quot;\r\n    .PutInClipboard\r\n  End With\r\nEnd Sub<\/pre>\n<p>\u3068\u3053\u308d\u304c\u3001\u8fd1\u5e74\u3053\u306e\u65b9\u6cd5\u3060\u3068\u4e0a\u624b\u304f\u3044\u304b\u306a\u3044\u3068\u3044\u3046\u8cea\u554f\u3084\u6295\u7a3f\u3092\u3088\u304f\u898b\u304b\u3051\u308b\u3088\u3046\u306b\u306a\u308a\u307e\u3057\u305f\u3002<\/p>\n<ul>\n<li>\u3010Word\u30de\u30af\u30ed\u3011\u30af\u30ea\u30c3\u30d7\u30dc\u30fc\u30c9\u3078\u306e\u30c7\u30fc\u30bf\u5165\u529b\u30fb\u53d6\u5f97\u306e\u30a8\u30e9\u30fc\u3078\u306e\u5bfe\u51e6<\/li>\n<li style=\"list-style-type:none;\"><a href=\"http:\/\/ameblo.jp\/gidgeerock\/entry-11621556349.html\" target=\"_blank\" title=\"\u3010Word\u30de\u30af\u30ed\u3011\u30af\u30ea\u30c3\u30d7\u30dc\u30fc\u30c9\u3078\u306e\u30c7\u30fc\u30bf\u5165\u529b\u30fb\u53d6\u5f97\u306e\u30a8\u30e9\u30fc\u3078\u306e\u5bfe\u51e6\">http:\/\/ameblo.jp\/gidgeerock\/entry-11621556349.html<\/a><\/li>\n<li>\u958b\u3044\u3066\u3044\u308b\u30d5\u30a1\u30a4\u30eb\u306e\u30a2\u30c9\u30ec\u30b9\u3092\u53d6\u308b\u30de\u30af\u30ed\u52d5\u304b\u3059\u3068\u306a\u305c\u304b\u25a1\u25a1\u304c\u5f35\u308a\u4ed8\u304f<\/li>\n<li style=\"list-style-type:none;\"><a href=\"http:\/\/ameblo.jp\/kanchiezou\/entry-12199210078.html\" target=\"_blank\" title=\"\u958b\u3044\u3066\u3044\u308b\u30d5\u30a1\u30a4\u30eb\u306e\u30a2\u30c9\u30ec\u30b9\u3092\u53d6\u308b\u30de\u30af\u30ed\u52d5\u304b\u3059\u3068\u306a\u305c\u304b\u25a1\u25a1\u304c\u5f35\u308a\u4ed8\u304f\">http:\/\/ameblo.jp\/kanchiezou\/entry-12199210078.html<\/a><\/li>\n<li>Excel VBA\u3067\u30af\u30ea\u30c3\u30d7\u30dc\u30fc\u30c9\u306b\u5168\u89d2\u6587\u5b57\u3092\u683c\u7d0d\u3059\u308b \uff3b\u5099\u5fd8\u9332\uff3d<\/li>\n<li style=\"list-style-type:none;\"><a href=\"http:\/\/tomodachihiroba.cocolog-nifty.com\/square\/2015\/03\/excel-vba-ea26.html\" target=\"_blank\" title=\"Excel VBA\u3067\u30af\u30ea\u30c3\u30d7\u30dc\u30fc\u30c9\u306b\u5168\u89d2\u6587\u5b57\u3092\u683c\u7d0d\u3059\u308b \uff3b\u5099\u5fd8\u9332\uff3d\">http:\/\/tomodachihiroba.cocolog-nifty.com\/square\/2015\/03\/excel-vba-ea26.html<\/a><\/li>\n<li>EXCEL VBA\u3067\u306e\u8cea\u554f\u3067\u3059\u3002<\/li>\n<li style=\"list-style-type:none;\"><a href=\"http:\/\/detail.chiebukuro.yahoo.co.jp\/qa\/question_detail\/q14162604109\" target=\"_blank\" title=\"EXCEL VBA\u3067\u306e\u8cea\u554f\u3067\u3059\u3002\">http:\/\/detail.chiebukuro.yahoo.co.jp\/qa\/question_detail\/q14162604109<\/a><\/li>\n<\/ul>\n<p>\u5bfe\u51e6\u6cd5\u3068\u3057\u3066\u6709\u52b9\u3068\u3055\u308c\u3066\u3044\u308b\u306e\u304c<a href=\"https:\/\/msdn.microsoft.com\/ja-jp\/library\/cc430086.aspx\" title=\"SetClipboardData \u95a2\u6570\" target=\"_blank\">SetClipboardData<\/a>\u7b49\u306e\u30af\u30ea\u30c3\u30d7\u30dc\u30fc\u30c9\u5468\u308a\u306eAPI\u95a2\u6570\u3092\u4f7f\u3046\u65b9\u6cd5\u3067\u3059\u304c\u3001\u500b\u4eba\u7684\u306b\u306f\u3001\u30af\u30ea\u30c3\u30d7\u30dc\u30fc\u30c9\u306b\u6587\u5b57\u5217\u3092\u51fa\u3057\u5165\u308c\u3059\u308b\u305f\u3081\u3060\u3051\u306b\u3001\u308f\u3056\u308f\u3056API\u3092\u547c\u3073\u51fa\u3057\u305f\u304f\u306f\u3042\u308a\u307e\u305b\u3093\u3002<\/p>\n<p>\u305d\u3053\u3067\u3001\u3082\u3063\u3068\u7c21\u5358\u306a\u65b9\u6cd5\u304c\u306a\u3044\u3082\u306e\u304b\u3068\u601d\u3063\u3066\u3044\u305f\u306e\u3067\u3059\u304c\u3001\u5148\u65e5<a href=\"http:\/\/excelfactory.net\/excelboard\/\" title=\"ExcelQ&#038;A\u63b2\u793a\u677f(\u30a8\u30af\u30bb\u30eb\u8cea\u554f\u63b2\u793a\u677f)\" target=\"_blank\">ExcelQ&#038;A\u63b2\u793a\u677f<\/a>\u3092\u898b\u305f\u3068\u304d\u306b\u300c<span style=\"color: #ff0000; font-weight: bold;\">\u3053\u308c\u306f\u30a4\u30b1\u305d\u3046\uff01<\/span>\u300d\u3068\u3044\u3046\u30b3\u30fc\u30c9\u304c\u8f09\u3063\u3066\u3044\u308b\u306e\u3092\u898b\u3064\u3051\u307e\u3057\u305f\u3002<\/p>\n<ul>\n<li>[178686] VBA\u304b\u3089\u30af\u30ea\u30c3\u30d7\u30dc\u30fc\u30c9\u3078\u306e\u51fa\u529b\u304c\u3067\u304d\u306a\u304f\u306a\u308a\u307e\u3057\u305f<\/li>\n<li style=\"list-style-type:none;\"><a href=\"http:\/\/excelfactory.net\/excelboard\/excelvba\/excel.cgi?mode=all&#038;namber=178686&#038;rev=0\" target=\"_blank\" title=\"[178686] VBA\u304b\u3089\u30af\u30ea\u30c3\u30d7\u30dc\u30fc\u30c9\u3078\u306e\u51fa\u529b\u304c\u3067\u304d\u306a\u304f\u306a\u308a\u307e\u3057\u305f\">http:\/\/excelfactory.net\/excelboard\/excelvba\/excel.cgi?mode=all&#038;namber=178686&#038;rev=0<\/a><\/li>\n<\/ul>\n<p>TextBox\u3092\u7d4c\u7531\u3057\u3066\u6587\u5b57\u5217\u3092\u30b3\u30d4\u30fc\u3059\u308b\u65b9\u6cd5\u3067\u3059\u3002<br \/>\n\u306a\u308b\u307b\u3069\uff01API\u95a2\u6570\u3092\u547c\u3076\u3088\u308a\u3088\u3063\u307d\u3069\u30b7\u30f3\u30d7\u30eb\u306a\u30b3\u30fc\u30c9\u3067\u3059\u3002<\/p>\n<p>\u305f\u3060\u3001\u4e0a\u8a18\u8cea\u554f\u306e\u30b3\u30fc\u30c9\u3067\u306f\u8907\u6570\u884c\u306e\u6587\u5b57\u5217\u306b\u5bfe\u5fdc\u3057\u3066\u3044\u306a\u304b\u3063\u305f\u306e\u3067\u3001MultiLine\u30d7\u30ed\u30d1\u30c6\u30a3\u3092\u6709\u52b9\u306b\u3057\u305f\u30b3\u30fc\u30c9\u3092\u66f8\u3044\u3066\u307f\u308b\u3053\u3068\u306b\u3057\u307e\u3057\u305f\u3002<\/p>\n<pre class=\"brush: vb; title: ; notranslate\" title=\"\">Option Explicit\r\n\r\nPublic Sub Sample()\r\n  Dim s1 As String, s2 As String\r\n  \r\n  s1 = &quot;\u4e2d\u56fd\u8a9e\u30c6\u30b9\u30c8\uff1a&quot; &amp; vbNewLine &amp; _\r\n       ChrW(&amp;H94F6) &amp; ChrW(&amp;H884C) &amp; ChrW(&amp;H6682) &amp; ChrW(&amp;H505C) &amp; _\r\n       ChrW(&amp;H65B0) &amp; ChrW(&amp;H589E) &amp; ChrW(&amp;H4F4F) &amp; ChrW(&amp;H623F) &amp; _\r\n       ChrW(&amp;H8D37) &amp; ChrW(&amp;H6B3E)\r\n  SetCB s1\r\n  GetCB s2\r\n  CreateObject(&quot;WScript.Shell&quot;).Popup s2\r\nEnd Sub\r\n\r\nPrivate Sub SetCB(ByVal str As String)\r\n'\u30af\u30ea\u30c3\u30d7\u30dc\u30fc\u30c9\u306b\u6587\u5b57\u5217\u3092\u683c\u7d0d\r\n  With CreateObject(&quot;Forms.TextBox.1&quot;)\r\n    .MultiLine = True\r\n    .Text = str\r\n    .SelStart = 0\r\n    .SelLength = .TextLength\r\n    .Copy\r\n  End With\r\nEnd Sub\r\n\r\nPrivate Sub GetCB(ByRef str As String)\r\n'\u30af\u30ea\u30c3\u30d7\u30dc\u30fc\u30c9\u304b\u3089\u6587\u5b57\u5217\u3092\u53d6\u5f97\r\n  With CreateObject(&quot;Forms.TextBox.1&quot;)\r\n    .MultiLine = True\r\n    If .CanPaste = True Then .Paste\r\n    str = .Text\r\n  End With\r\nEnd Sub<\/pre>\n<p>Windows 10(64\u30d3\u30c3\u30c8\u7248) + Office 2016(32\u30d3\u30c3\u30c8\u7248)\u74b0\u5883\u3067\u30c6\u30b9\u30c8\u3057\u307e\u3057\u305f\u304c\u3001\u79c1\u304c\u78ba\u8a8d\u3057\u305f\u9650\u308a\u3067\u306f\u610f\u56f3\u3057\u305f\u901a\u308a\u52d5\u3044\u3066\u3044\u308b\u3088\u3046\u3067\u3059\u3002<\/p>\n<p>\u30af\u30ea\u30c3\u30d7\u30dc\u30fc\u30c9\u64cd\u4f5c\u3067\u304a\u56f0\u308a\u306e\u65b9\u306f\u662f\u975e\u4e00\u5ea6\u304a\u8a66\u3057\u304f\u3060\u3055\u3044\u3002<br \/>\n(\u3053\u308c\u3067\u30c0\u30e1\u306a\u5834\u5408\u306f\u3001\u3084\u306f\u308a\u8ae6\u3081\u3066API\u547c\u3073\u51fa\u3057\u3092\u30fb\u30fb\u30fb)<\/p>\n<div id=\"single_banner_area2\" class=\"clearfix one_banner\">\n<div class=\"single_banner single_banner_left\">\n<script async src=\"https:\/\/pagead2.googlesyndication.com\/pagead\/js\/adsbygoogle.js\"><\/script>\r\n<!-- \u8a18\u4e8b\u4e2d(\u30c7\u30a3\u30b9\u30d7\u30ec\u30a4\u5e83\u544a\u30e6\u30cb\u30c3\u30c8) -->\r\n<ins class=\"adsbygoogle\"\r\n     style=\"display:block\"\r\n     data-ad-client=\"ca-pub-7306936664602087\"\r\n     data-ad-slot=\"5429724765\"\r\n     data-ad-format=\"auto\"\r\n     data-full-width-responsive=\"true\"><\/ins>\r\n<script>\r\n     (adsbygoogle = window.adsbygoogle || []).push({});\r\n<\/script>\n<\/div>\n<div class=\"single_banner single_banner_right\">\n<a href=\"\" target=\"_blank\"><img decoding=\"async\" src=\"\" alt=\"\" title=\"\" \/><\/a>\n<\/div>\n<\/div>\n\n","protected":false},"excerpt":{"rendered":"VBA\u30de\u30af\u30ed\u304b\u3089\u30af\u30ea\u30c3\u30d7\u30dc\u30fc\u30c9\u3092\u64cd\u4f5c\u3059\u308b\u5834\u5408\u3001\u5b9a\u756a\u3068\u306a\u3063\u3066\u3044\u308b\u306e\u304cDataObject\u3092\u4f7f\u3063\u305f\u65b9\u6cd5\u3067\u3059\u3002 Public Sub Sample() With New DataObject .SetText &quot;\u3053\u3093 [&hellip;]","protected":false},"author":1,"featured_media":7120,"comment_status":"open","ping_status":"closed","sticky":false,"template":"","format":"standard","meta":{"_jetpack_memberships_contains_paid_content":false,"footnotes":"","jetpack_publicize_message":"[[VBA]DataObject\u3092\u4f7f\u3063\u305f\u30af\u30ea\u30c3\u30d7\u30dc\u30fc\u30c9\u64cd\u4f5c\u304c\u4e0a\u624b\u304f\u3044\u304b\u306a\u3044\u5834\u5408\u306e\u5bfe\u51e6\u6cd5]","jetpack_publicize_feature_enabled":true,"jetpack_social_post_already_shared":true,"jetpack_social_options":{"image_generator_settings":{"template":"highway","default_image_id":0,"font":"","enabled":false},"version":2}},"categories":[4,48,49,58],"tags":[],"class_list":["post-7537","post","type-post","status-publish","format-standard","has-post-thumbnail","hentry","category-office","category-excel-office","category-word-office","category-powerpoint"],"aioseo_notices":[],"jetpack_publicize_connections":[],"jetpack_featured_media_url":"https:\/\/www.ka-net.org\/blog\/wp-content\/uploads\/eyecatch-OfficeVBA.png","jetpack_shortlink":"https:\/\/wp.me\/p4UZZr-1Xz","jetpack_sharing_enabled":true,"_links":{"self":[{"href":"https:\/\/www.ka-net.org\/blog\/index.php?rest_route=\/wp\/v2\/posts\/7537","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=7537"}],"version-history":[{"count":1,"href":"https:\/\/www.ka-net.org\/blog\/index.php?rest_route=\/wp\/v2\/posts\/7537\/revisions"}],"predecessor-version":[{"id":7538,"href":"https:\/\/www.ka-net.org\/blog\/index.php?rest_route=\/wp\/v2\/posts\/7537\/revisions\/7538"}],"wp:featuredmedia":[{"embeddable":true,"href":"https:\/\/www.ka-net.org\/blog\/index.php?rest_route=\/wp\/v2\/media\/7120"}],"wp:attachment":[{"href":"https:\/\/www.ka-net.org\/blog\/index.php?rest_route=%2Fwp%2Fv2%2Fmedia&parent=7537"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/www.ka-net.org\/blog\/index.php?rest_route=%2Fwp%2Fv2%2Fcategories&post=7537"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/www.ka-net.org\/blog\/index.php?rest_route=%2Fwp%2Fv2%2Ftags&post=7537"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}