リッチテキストボックスで画像が張り付かない (ID:102462)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 >魔界の仮面弁士さん いろいろありがとうございます。 試行錯誤の結果クリップボードからの貼り付け(Getdata)ができないため、クリップボードへ取得したデータを(ctrl + v) にて貼り付けるようにしました（と思ったら魔界の仮面弁士さんの返信が来ていたため、もう一度考えます…）。 魔界の仮面弁士さまが書いてくださったコードでどのような属性で取得されるのか確認しましたところ、こちらはBitmap属性（デバイスに依存しない属性でもありました）となっておりました。 今日はいろいろ勉強になりました。不明点はまだありますが、また調べていきたいと思います。 以下失敗コードです… ① Private Sub Command1_Click() Dim Imgpath As String Call Rt1.LoadFile(Imgpath) '文字化けして画像は表示されません End Sub ② Private Sub Command1_Click() Dim Imgpath As String Imgpath = App.Path & "\test.bmp" Clipboard.Clear Clipboard.SetData LoadPicture(Imgpath) Rt1 = Clipboard.GetData '毎回違う数値が画面に表示されてしまう（画像は表示されない） Debug.Print "----------------" Debug.Print "File", Clipboard.GetFormat(vbCFFiles) 'File False Debug.Print "TXT", Clipboard.GetFormat(vbCFText) 'TXT False Debug.Print "RTF", Clipboard.GetFormat(vbCFRTF) 'RTF False Debug.Print "BMP", Clipboard.GetFormat(vbCFBitmap) 'BMP True Debug.Print "DIB", Clipboard.GetFormat(vbCFDIB) 'DIB True Debug.Print "WMF", Clipboard.GetFormat(vbCFMetafile) 'WMF False Debug.Print "EMF", Clipboard.GetFormat(vbCFEMetafile) 'EMF False '以上から、クリップボード自体には画像データが入っていたため、クリップボードからの出力は 'ctrl + c キーで行うこととしました。 End Sub ③こちらで行くことにしました Private Sub Command1_Click() Dim Imgpath As String Imgpath = App.Path & "\test.bmp" Clipboard.Clear Clipboard.SetData LoadPicture(Imgpath) End Sub 返信が来ていたのも気づかずに書き込もうと思っていたため、中途半端な解決策となってしまいました。 教えていただいたことをよく調べて、実践していきたいと思います。 とりあえず、解決とさせていただきます。 ありがとうございました。