スキルアップ・問題解決なら、モーグにおまかせ！

●概要●
構文  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 !」の文字列が送られます。テキストエディタなどにペースト操作して、文字列を確かめてみましょう。