ねもぷらす

ふぁいんでぃんぐねもの日記。プログラミングとか育児とか

任意の文字列をクリップボードにコピーする

Public Sub Clip (msg)
    Set uf=CreateObject("Forms.Form.1")
    Set tb=uf.Controls.Add("Forms.TextBox.1").Object
        tb.Text=msg
        tb.SelStart=0
        tb.SelLength=tb.TextLength
        tb.Copy
    Set tb=Nothing
    Set uf=Nothing
End Sub


Clip("今日の天気")