0

Excel2003 VBA テキストボックスへのテキストのペースト 他のソフトからコピーしたテキストを、右クリックで表示した『貼り付け』でユーザーフォーム上のテキストボックスにペーストしたいのですが、なかなかうまくいきません。
右クリックで『貼り付け』メニューを表示することは出来ましたが、ペーストしようとすると『実行時エラー91 オブジェクト変数またはWithブロック変数が設定されていません。』とエラーになります。
どこが間違っているのか、お教えいただけたら幸いです。

ユーザーフォームのコード：
Dim Menu1 As Variant
Dim CB1 As DataObject
Dim CBF As Variant

Private Sub TextBox1_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
If Button = 2 Then
CBF = Application.ClipboardFormats
If CBF(1) = True Then
MsgBox ("クリップボードは空です。")
End
Else
CB1.GetFromClipboard
CBD = CB1.GetText

Menu1.ShowPopup
End If
End If
End Sub

Private Sub UserForm_Initialize()
Set Menu1 = CommandBars.Add(Position:=msoBarPopup, temporary:=True)
With Menu1
With .Controls.Add
.Caption = "貼り付け"
.OnAction = "貼り付け"
End With
End With
End Sub


標準モジュールのコード：
Sub 貼り付け()
TextBox1.Text = CBD
End Sub

質問者が選んだベストソリューション

Yahoo!知恵袋 4759日前