クリップボードに保存した画像をエクスプローラーとExcel両方に貼り付けられるようにしたい。

Question

前提・実現したいこと

WpfベースのXaml、VB.NETで作成したいるシステムで、
システム上に表示している画像をコピーし、
エクスプローラーとExcel両方に貼付けらるようにしたい

発生している問題・エラーメッセージ

現在エクスプローラーには貼付けができるのですが
Excelに貼り付けようとすると以下のメッセージが表示され、
画像を張り付けることができません。

「データを貼り付けできません。」

試したこと

そこでクリップボードの内容を確認すると以下の二つの要素が存在すると

FileName
FileNameW

Excelに貼り付けようとした際にエラーメッセージが表示されるらしく
要素をクリップボード上に設定されないようにしたいのですが

どうしたらよろしいでしょうか。

ご教授お願いします。

該当のソースコード

VB.NET

    Dim data As New DataObject()
    Dim ms As Stream = New MemoryStream(File.ReadAllBytes("画像ファイルパス"))
    Dim bmpimg As BitmapImage = New BitmapImage

    data.SetData(DataFormats.FileDrop, "画像ファイルパス")

    bmpimg.BeginInit()
    bmpimg.StreamSource = ms
    bmpimg.EndInit()
    data.SetImage(bmpimg)
    bmpimg.Freeze()

    Clipboard.SetDataObject(data, False)

補足情報

ExcelのバージョンはExcel2016になります。

ここにより詳細な情報を記載してください。

Answer 1

強引な方法ですが参考になれば。

SetImageを使用せず、System.Drawing.Bitmapで画像を読み込み、強制的にPNG化してクリップボードにセットしています。

PNG化しない方法もありそうですが、一つの考え方として。

Dim data As New DataObject()
Dim ms As Stream = New MemoryStream(File.ReadAllBytes(画像ファイルパス))

data.SetData(DataFormats.FileDrop, New String() {画像ファイルパス})

Using bmp As New System.Drawing.Bitmap(画像ファイルパス)
    Using pngMs As Stream = New MemoryStream()
        'PNGとしてpngMsに保存
        bmp.Save(pngMs, System.Drawing.Imaging.ImageFormat.Png)
        data.SetData("PNG", pngMs)
        Clipboard.SetDataObject(data, True)
    End Using
End Using

Comments

[shiina_yuki]

ご回答ありがとうございます。

いただいたソースを試してみたところ自分の環境では張り付けたオブジェクトが
「この画像は表示できません」と表示されるのみになってしまい貼り付けることができんせんでした。

Answer 2

EXCELの挙動上しょうがないのかなと思います（クリップボード内にファイルパスと画像が両方合った時に上手く貼れない仕様なのでしょう）。

EXCELで「形式を指定して貼り付け」でビットマップを選べば貼り付けることは出来ますが、たぶんこの案はボツになるでしょうね。

「画像をコピー」と「ファイルをコピー」とを別々の機能として提供してあげるぐらいしか無いのかなと思います。

ちなみに該当のソースコードではエクスプローラに貼り付けが出来ませんでした。
おそらく

data.SetData(DataFormats.FileDrop, "画像ファイルパス")

は

data.SetData(DataFormats.FileDrop, New String() {"画像ファイルパス"})

にする必要があるかと思います。

Comments

[shiina_yuki]

ご回答ありがとうごさいます。

やはり無理なんですかね。
現状としては回答していただいた通りにモード切替などで対応する方針になりそうです。

＞EXCELで「形式を指定して貼り付け」でビットマップを選べば貼り付けることは出来ますが、たぶんこの案はボツになるでしょうね。

その通りでして、すでにボツにされてしましました。

＞ちなみに該当のソースコードではエクスプローラに貼り付けが出来ませんでした。
＞おそらく
＞data.SetData(DataFormats.FileDrop, "画像ファイルパス")
＞は
＞data.SetData(DataFormats.FileDrop, New String() {"画像ファイルパス"})

ここの部分に関しては自分の記載ミスです申し訳ありません。

本来の実装では配列になっております。

Answer 3

今回の件はシステムの実装上ただの貼り付けは無理ということで
基本的には仕様削除の方針になりました。

ただ、どうしても貼り付けたい場合は、形式を選択して貼り付けをすれば貼り付けられるが
そこに関してはサポートをしないことになりました。

なのでtakabosoft様の回答をベストアンサーとさせていただきました。

お忙しい中ご回答いただきありがとうございました。