質問をすることでしか得られない、回答やアドバイスがある。

15分調べてもわからないことは、質問しよう!

ただいまの
回答率

90.33%

  • VB.NET

    966questions

    Microsoft Visual Basic .NETのことで、Microsoft Visual Basic(VB6)の後継。 .NET環境向けのプログラムを開発することができます。 現在のVB.NETでは、.NET Frameworkを利用して開発を行うことが可能です。

  • WPF

    736questions

    Windows Presentation Foundation (WPF) は、魅力的な外観のユーザー エクスペリエンスを持つ Windows クライアント アプリケーションを作成するための次世代プレゼンテーション システムです

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

解決済

回答 3

投稿 編集

  • 評価
  • クリップ 1
  • VIEW 553

shiina_yuki

score 3

 前提・実現したいこと

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になります。

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

  • 気になる質問をクリップする

    クリップした質問は、後からいつでもマイページで確認できます。

    またクリップした質問に回答があった際、通知やメールを受け取ることができます。

    クリップを取り消します

  • 良い質問の評価を上げる

    以下のような質問は評価を上げましょう

    • 質問内容が明確
    • 自分も答えを知りたい
    • 質問者以外のユーザにも役立つ

    評価が高い質問は、TOPページの「注目」タブのフィードに表示されやすくなります。

    質問の評価を上げたことを取り消します

  • 評価を下げられる数の上限に達しました

    評価を下げることができません

    • 1日5回まで評価を下げられます
    • 1日に1ユーザに対して2回まで評価を下げられます

    質問の評価を下げる

    teratailでは下記のような質問を「具体的に困っていることがない質問」、「サイトポリシーに違反する質問」と定義し、推奨していません。

    • プログラミングに関係のない質問
    • やってほしいことだけを記載した丸投げの質問
    • 問題・課題が含まれていない質問
    • 意図的に内容が抹消された質問
    • 広告と受け取られるような投稿

    評価が下がると、TOPページの「アクティブ」「注目」タブのフィードに表示されにくくなります。

    質問の評価を下げたことを取り消します

    この機能は開放されていません

    評価を下げる条件を満たしてません

    評価を下げる理由を選択してください

    詳細な説明はこちら

    上記に当てはまらず、質問内容が明確になっていない質問には「情報の追加・修正依頼」機能からコメントをしてください。

    質問の評価を下げる機能の利用条件

    この機能を利用するためには、以下の事項を行う必要があります。

回答 3

+2

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

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

投稿

  • 回答の評価を上げる

    以下のような回答は評価を上げましょう

    • 正しい回答
    • わかりやすい回答
    • ためになる回答

    評価が高い回答ほどページの上位に表示されます。

  • 回答の評価を下げる

    下記のような回答は推奨されていません。

    • 間違っている回答
    • 質問の回答になっていない投稿
    • スパムや攻撃的な表現を用いた投稿

    評価を下げる際はその理由を明確に伝え、適切な回答に修正してもらいましょう。

  • 2018/06/22 10:26

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

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

    キャンセル

checkベストアンサー

+1

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

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

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

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

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

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

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

投稿

  • 回答の評価を上げる

    以下のような回答は評価を上げましょう

    • 正しい回答
    • わかりやすい回答
    • ためになる回答

    評価が高い回答ほどページの上位に表示されます。

  • 回答の評価を下げる

    下記のような回答は推奨されていません。

    • 間違っている回答
    • 質問の回答になっていない投稿
    • スパムや攻撃的な表現を用いた投稿

    評価を下げる際はその理由を明確に伝え、適切な回答に修正してもらいましょう。

  • 2018/06/21 14:32

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

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

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

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

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

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

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

    キャンセル

0

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

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

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

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

投稿

  • 回答の評価を上げる

    以下のような回答は評価を上げましょう

    • 正しい回答
    • わかりやすい回答
    • ためになる回答

    評価が高い回答ほどページの上位に表示されます。

  • 回答の評価を下げる

    下記のような回答は推奨されていません。

    • 間違っている回答
    • 質問の回答になっていない投稿
    • スパムや攻撃的な表現を用いた投稿

    評価を下げる際はその理由を明確に伝え、適切な回答に修正してもらいましょう。

15分調べてもわからないことは、teratailで質問しよう!

  • ただいまの回答率 90.33%
  • 質問をまとめることで、思考を整理して素早く解決
  • テンプレート機能で、簡単に質問をまとめられる

同じタグがついた質問を見る

  • VB.NET

    966questions

    Microsoft Visual Basic .NETのことで、Microsoft Visual Basic(VB6)の後継。 .NET環境向けのプログラムを開発することができます。 現在のVB.NETでは、.NET Frameworkを利用して開発を行うことが可能です。

  • WPF

    736questions

    Windows Presentation Foundation (WPF) は、魅力的な外観のユーザー エクスペリエンスを持つ Windows クライアント アプリケーションを作成するための次世代プレゼンテーション システムです

  • トップ
  • VB.NETに関する質問
  • クリップボードに保存した画像をエクスプローラーとExcel両方に貼り付けられるようにしたい。