Office: (Office 2007) Bild aus Zwischenablage in Zelle einfügen

Hallo,

und welche Art von Button verwendest du Schaltfläche oder CommandButton?

 

Ja in die Zelle A1

 

Hallo,

was willst du mir damit sagen?

Ich hatte gefragt welche Art von Button du benutzen willst.

 

Habe noch eine Frage.

Er soll mir einen Fehler anzeigen wenn kein Bild in der Zwischenablage gespeichert ist nur (z.B Text) wie muss den dann der Code ausschauen?
Mit meinem Code bringt er mir immer den Fehler !


Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)


If Target.Address = "$G$2" Or Target.Address = "$G$14" Or Target.Address = "$I$14" Or Target.Address = "$K$14" Or Target.Address = "$G$25" Or Target.Address = "$I$25" Or Target.Address = "$K$25" Or Target.Address = "$G$36" Or Target.Address = "$I$36" Or Target.Address = "$K$36" Or Target.Address = "$G$47" Or Target.Address = "$I$47" Or Target.Address = "$K$47" Or Target.Address = "$G$58" Or Target.Address = "$I$58" Or Target.Address = "$K$58" Or Target.Address = "$G$69" Or Target.Address = "$I$69" Or Target.Address = "$K$69" Or Target.Address = "$G$80" Or Target.Address = "$I$80" Or Target.Address = "$K$80" Or Target.Address = "$G$91" Or Target.Address = "$I$91" Or Target.Address = "$K$91" Or Target.Address = "$G$102" Or Target.Address = "$I$102" Or Target.Address = "$K$102" Or Target.Address = "$G$113" Or Target.Address = "$I$113" Or Target.Address = "$K$113" Then


Dim objPicture As IPictureDisp


If objPicture Is Nothing Then
MsgBox "Zwischenablage enthält kein Bild!", vbCritical, "Error"
Exit Sub
End If

'Zwischenablage enthält Bild


If IsClipboardFormatAvailable(CF_BITMAP) 0 Or IsClipboardFormatAvailable(CF_ENHMETAFILE) 0 Then
Cancel = True


Call Paste(Destination:=Target)
With Selection.ShapeRange
.LockAspectRatio = msoFalse
.Height = Application.CentimetersToPoints(7.06)
.Width = Application.CentimetersToPoints(7.55)

End With



End If

End If


End Sub

 

Hallo,
hier hast Du aber ein bisschen was von meinem ersten Code und dem von Nepumuks letzem Code vermischt.
Probiers mal so, dass nur noch folgender Code im Codebereich deines Tabellenblatts steht:
Code: