|
いつも勉強させてもらっています。
Microsoft Forms 2.0 Object Libraryを参照設定するのに、
Userformをブックに挿入すると、自動的に参照設定されるので、
ダミーのUserformをブックに挿入した状態で、
Dim obj As New DataObject
として、使っていますが、ダミーのUserformをブックに挿入しい状態で、
Dim obj As Object
Set obj = CreateObject("〜")
として使いたいのですが、〜の書き方が分りません。
もし書くことができるのなら、どのように書けばよいのでしょうか。
例として、次のコードが動くようにしたいのですか。
PutInClipboard メソッドのヘルプの使用例を変形させたものですが、
Sub test()
Dim d As String
'Set obj = New DataObject
'を
Dim obj As Object
Set obj = CreateObject("〜")
'のようにしたいのですが。
d = "データ"
obj.SetText d
obj.PutInClipboard
Range("A1").Paste
End Sub
|
|