Paste、PutInClipboard、SetText メソッドの例

次の例では、TextBox から DataObject、DataObject からクリップボード、クリップボードから別の TextBox へのデータ移動を示します。

PutInClipboard メソッドは、DataObject からクリップボードにデータを転送します。 SetText メソッドと Paste メソッドも使用されます。

この例を使用するには、以下のサンプル コードをフォームの宣言部分にコピーします。 フォームに次が含まれていることを確認してください。

• 2 つのテキスト ボックス ( TextBox ) コントロール (TextBox1 と TextBox2)
• CommandButton1 と命名された CommandButton

Dim MyData As DataObject 
 
Private Sub CommandButton1_Click() 
 Set MyData = New DataObject 
 
 MyData.SetText TextBox1.Text 
 MyData.PutInClipboard 
 
 TextBox2.Paste 
End Sub 
 
Private Sub UserForm_Initialize() 
 TextBox1.Text = "Move this data to a " _ 
 & "DataObject, to the Clipboard, then to " _ 
 & "TextBox2!" 
End Sub

サポートとフィードバック

Office VBA またはこの説明書に関するご質問やフィードバックがありますか？ サポートの受け方およびフィードバックをお寄せいただく方法のガイダンスについては、Office VBA のサポートおよびフィードバックを参照してください。