即効テクニック |
●概要● 構文 expression.SetText(StoreData, format) expression.PutInClipboard 設定項目 内容 expression DataObjectオブジェクト StoreData DataObjectオブジェクトに格納するデータを指定[省略不可] format 引数で指定したデータ形式を表す整数値または 文字列を指定[省略可能] DataObjectを使用してクリップボードに文字列を送ります。DataObjectを使用するには「Microsoft Forms 2.0 Object Library」への参照が必要です。Visual Basic Editorのメニューから[ツール]→[参照設定]コマンドを選択し[参照設定]ダイアログボックスで「Microsoft Forms 2.0 Object Library」にチェックを入れて、[OK]ボタンをクリックし、参照設定を行います。「参照可能なライブラリ ファイル」のリストにない場合は、[参照設定]ダイアログボックスで[参照]ボタンをクリックして「C:\WINNT(または Windows)\system32\FM20.DLL」を選択します。 次のサンプルでは、SetTextメソッドを使用して文字列をDateObjectオブジェクトに格納し、PutInClipboardメソッドを使用してデータをクリップボードに送ります。 ●サンプル● 'クリップボードに文字列を送る Sub SetClipBoardSample() Dim myDO As DataObject Dim myStr As String 'クリップボードに送る文字列 myStr = "Hello Access 2002 VBA !" 'DataObjectオブジェクトのインスタンスの生成 Set myDO = New DataObject '文字列のセット myDO.SetText myStr 'クリップボードに転送 myDO.PutInClipboard End Sub ●実行結果● クリップボードに「Hello Access 2002 VBA !」の文字列が送られます。テキストエディタなどにペースト操作して、文字列を確かめてみましょう。