Put in the clipboard, from an VB program, an image with a tooltip and a hyperlink to paste them into a Word or PowerPoint doc.

Question

I tried to put
in the clipboard an image with an associated tooltip
and a hyperlink to paste them into a Word or PowerPoint doc.
I tried to do it with the usual Clipboard's methods SetData and GetData. It's easy to paste an image, text, rich text, html, but it does not appear to be able to associate metadata or hyperlink to an image.
Usally the tooltip
and the hyperlink are in the metadata
associated with the object.
I think it can be done with the CliboardData class and its Data and Metadata properties, working with the different items of the List of Objects, but I don't know how to tackle it.
Any suggestions?
Thank You

Answer 1

I tried to put
in the clipboard an image with an associated tooltip
and a hyperlink to paste them into a Word or PowerPoint doc.
I tried to do it with the usual Clipboard's methods SetData and GetData. It's easy to paste an image, text, rich text, html, but it does not appear to be able to associate metadata or hyperlink to an image.
Usally the tooltip
and the hyperlink are in the metadata
associated with the object.
I think it can be done with the CliboardData class and its Data and Metadata properties, working with the different items of the List of Objects, but I don't know how to tackle it.
Any suggestions?
Thank You
Does word or powerpoint associate a tooltip and hyperlink to an image and then allow that image with those associations to be copied to another open word or powerpoint document? If not then your probably wasting your time.
This code can "listen" for items copied to the clipboard. Needs a RichTextBox on a Form.
Option Strict On
Imports System.Runtime.InteropServices
Public Class Form1
' System.Windows.Forms.DataFormats class http://msdn.microsoft.com/en-us/library/system.windows.forms.dataformats(v=vs.110).aspx
Declare Function AddClipboardFormatListener Lib "user32.dll" (hWnd As IntPtr) As <MarshalAs(UnmanagedType.Bool)> Boolean
Declare Function RemoveClipboardFormatListener Lib "user32.dll" (hWnd As IntPtr) As <MarshalAs(UnmanagedType.Bool)> Boolean
Dim DataFormats As New Dictionary(Of String, String)
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
Me.CenterToScreen()
DataFormats.Add("Bitmap", "Specifies a Windows bitmap format. This static field is read-only.")
DataFormats.Add("CommaSeparatedValue", "Specifies a comma-separated value (CSV) format which is a common interchange format used by spreadsheets. This format is not used directly by Windows Forms. This static field is read-only.")
DataFormats.Add("Dib", "Specifies the Windows device-independent bitmap (DIB) format. This static field is read-only.")
DataFormats.Add("Dif", "Specifies the Windows Data Interchange Format (DIF) which Windows Forms does not directly use. This static field is read-only.")
DataFormats.Add("EnhancedMetafile", "Specifies the Windows enhanced metafile format. This static field is read-only.")
DataFormats.Add("FileDrop", "Specifies the Windows file drop format which Windows Forms does not directly use. This static field is read-only.")
DataFormats.Add("Html", "Specifies text in the HTML Clipboard format. This static field is read-only.")
DataFormats.Add("Locale", "Specifies the Windows culture format which Windows Forms does not directly use. This static field is read-only.")
DataFormats.Add("MetafilePict", "Specifies the Windows metafile format which Windows Forms does not directly use. This static field is read-only.")
DataFormats.Add("OemText", "Specifies the standard Windows original equipment manufacturer (OEM) text format. This static field is read-only.")
DataFormats.Add("Palette", "Specifies the Windows palette format. This static field is read-only.")
DataFormats.Add("PenData", "Specifies the Windows pen data format which consists of pen strokes for handwriting software; Windows Forms does not use this format. This static field is read-only.")
DataFormats.Add("Riff", "Specifies the Resource Interchange File Format (RIFF) audio format which Windows Forms does not directly use. This static field is read-only.")
DataFormats.Add("Rtf", "Specifies text consisting of Rich Text Format (RTF) data. This static field is read-only.")
DataFormats.Add("Serializable", "Specifies a format that encapsulates any type of Windows Forms object. This static field is read-only.")
DataFormats.Add("StringFormat", "Specifies the Windows Forms string class format which Windows Forms uses to store string objects. This static field is read-only.")
DataFormats.Add("SymbolicLink", "Specifies the Windows symbolic link format which Windows Forms does not directly use. This static field is read-only.")
DataFormats.Add("Text", "Specifies the standard ANSI text format. This static field is read-only.")
DataFormats.Add("Tiff", "Specifies the Tagged Image File Format (TIFF) which Windows Forms does not directly use. This static field is read-only.")
DataFormats.Add("UnicodeText", "Specifies the standard Windows Unicode text format. This static field is read-only.")
DataFormats.Add("WaveAudio", "Specifies the wave audio format which Windows Forms does not directly use. This static field is read-only.")
AddClipboardFormatListener(Me.Handle)
End Sub
Private Sub Form1_FormClosing(sender As Object, e As FormClosingEventArgs) Handles Me.FormClosing
RemoveClipboardFormatListener(Me.Handle)
End Sub
Protected Overrides Sub WndProc(ByRef m As Message)
If m.ToString.Contains("msg=0x31d") Then
Invoke(New ClipboardListenerDelegate(AddressOf ClipboardListener))
End If
MyBase.WndProc(m)
End Sub
Private Delegate Sub ClipboardListenerDelegate()
Private Sub ClipboardListener()
If InvokeRequired Then
Invoke(New ClipboardListenerDelegate(AddressOf ClipboardListener))
Else
RichTextBox1.Clear()
For Each Item In DataFormats.Keys
If Clipboard.ContainsData(Item) = True Then
RichTextBox1.AppendText(Item & " .. " & DataFormats(Item) & vbCrLf)
End If
Next
End If
End Sub
End Class
La vida loca