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

名前

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

本文 >どのような形式のデータが渡されているのかを確認してみください。 ただ今確認いたしました。 →ディレクトリ内のファイルをそのままコピーした場合… File True TXT False RTF False BMP False DIB False WMF False EMF False →ワードパッド内の画像をコピーした場合… File False TXT False RTF True BMP False DIB False WMF True EMF True 以上の結果より、ワードパッド内の画像をコピーすると、RTF形式で画像がコピーされるため、同じ形式に対応しているリッチテキストに表示できることが分かりました。 そこで、ワードパッドを介さずにRTF形式でクリップボードに画像データを取得する事は可能でしょうか。もしくは、vbCFFilesの属性で、リッチテキストに画像を表示させることはできるのでしょうか。 以下は関係ありませんが先ほどまで試していた方法です。MSペイントが勝手に開いてしまいかっこ悪く、 実行時エラー438 オブジェクトは、このプロパティまたはメソッドをサポートしていません。 というエラーのため、オブジェクトにセットする際に強制エラー処理しなければならないため、他の方法を探していました。↓ Private Sub Command1_Click() Dim ImgPath As String '画像ファイルフルパス Dim Oobj As OLEObject 'OLEオブジェクト ipath = App.Path & "\test.bmp" 'テストファイルセット On Error Resume Next '必須!! 438 エラーになっちゃう!! obj = Rt1.OLEObjects.Add(, , ipath) '一応画像は表示できるが、ペイントが開いてしまう Err.Clear: On Error GoTo 0 'エラー消去 End Sub また他の方法を探してみまして、夜にでも報告いたします。