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

Hallo Habe folgendes Problem

Wenn ich auf die Zelle A1 klicke soll mir Excel ein Bild aus der Zwischenablage in die Zelle A1 einfügen.
Das Bild soll dabei genau an die Größe und Position der Zelle A1 angepasst eingefügt werden.

Wenn kein Bild in der Zwischenablage gespeichert ist nur Text oder so... dann soll er einen Fehler ausweisen.


Kann mir da wer helfen

:)

 

Bilder sind niemals in der Zelle, die sind immer darüber.
Mal nur als Information. Kein Ansatz für Dein Problem.

 

Hallo,

das THema kam vor einiger Zeit schon einmal und ist nicht ganz trival.

Mein Archiv sagt folgendes:

PHP:

         Dim objData As New MSForms.DataObject

Picture:

http://stackoverflow.com/questions/8684920/paste-an-image-from-clipboard-to-a-cell-in-excel
http://www.vbforums.com/showthread.php?608372-RESOLVED-Save-picture-to-file-using-Clipboard-GetData-or-controlRange

und besonders:

http://www.*************************448977_0_0_asc.php

###
evt. fehlen Dims (Fehler?)

If My.Computer.Clipboard.ContainsImage() Then
Dim grabpicture = My.Computer.Clipboard.GetImage()
PictureBox1.Image = grabpicture
End If


 

Hallo,
(ohne die Links aus dem vorangegangenen Beitrag nachverfolgt zu haben)
hatte mal einen schönen Code von Nepumuk gespeichert, der eine Grafik aus der Zwischenablage auf einer Userform dargestellt hat.
Ein bisschen abgewandelt (was das Einfügen in eine Zelle angeht) siehts nun so aus, teste mal:
(im Codebereich deines Worksheets)
Code:

(im Codebereich eines Moduls)
Code:

 

Hallo,

Danke erstmals für die schnelle Antwort

Das einfügen des Bildes aus der Zwischenablage funktionier soweit.
Die Anpassung der Bildgröße an die Zellengröße funktioniert noch nicht.
Wäre Es denkbar das Bild aus der Zwischenablage mit einer bestimmten Größe 4cm breit und 4 cm hoch einzufügen ?
Zudem sollte die Aktion nicht bei ersten klick auf A1 sondern erst bei Doppelklick das Bild eingefügt werden.

Gruß

 

Hallo,

folgender Code in das Modul der Tabelle:

Option Explicit

Private Declare Function IsClipboardFormatAvailable Lib "user32.dll" ( _
ByVal wFormat As Integer) As Long

Private Const CF_BITMAP As Long = 2
Private Const CF_ENHMETAFILE As Long = 14

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If IsClipboardFormatAvailable(CF_BITMAP) <> 0 Or IsClipboardFormatAvailable(CF_ENHMETAFILE) <> 0 Then
Cancel = True
Call Paste(Destination:=Target)
With Shapes(Shapes.Count)
.LockAspectRatio = msoFalse
.Height = Application.CentimetersToPoints(4)
.Width = Application.CentimetersToPoints(4)
End With
End If
End Sub

 

Hallo,

Das doppelklicken funktioniert aber das einfügen des Bildes in der Größe funktioniert noch nicht.
Habe den neuen Code in der Tabelle 1 ersetzt .

Gruß

 

Hallo,

bei mir werden die Bilde auf 4x4 cm skaliert. Wenn das bei dir nicht so ist, dann lade mal eine Mustermappe hoch.

 

Hier meine Excel Datei

 

Hallo,

Excel ist manchmal schon verwunderlich.

Teste mal:

Option Explicit

Private Declare Function IsClipboardFormatAvailable Lib "user32.dll" ( _
ByVal wFormat As Long) As Long

Private Const CF_BITMAP As Long = 2
Private Const CF_ENHMETAFILE As Long = 14

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
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(4)
.Width = Application.CentimetersToPoints(4)
End With
End If
End Sub

 

Jetzt passt es,

Was muss ich noch tun das er nur beim Doppelklick auf A1 und B2 die Aktion ausführt aktuell fügt er das Bild bei jeder Zeile ein die ich doppelklicke.

Best Danke nochmals

 

Hallo,

so:

Option Explicit

Private Declare Function IsClipboardFormatAvailable Lib "user32.dll" ( _
ByVal wFormat As Long) As Long

Private Const CF_BITMAP As Long = 2
Private Const CF_ENHMETAFILE As Long = 14

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Address = "$A$1" Or Target.Address = "$B$2" Then
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(4)
.Width = Application.CentimetersToPoints(4)
End With
End If
End If
End Sub

 

Jetzt habe ich noch eine letzte Frage

Wenn kein Bild in der Zwischenablage ist soll ein Fehler aufscheinen.

Zusätzliche Variante

Wenn ich nicht per Doppelklick sondern auf klick eines Butten das Makro ausführen möchte.

 

Hallo,

und in welche Zelle soll beim Button-Klick das Bild eingefügt werden?

 

In die Zelle A1