Microsoft Excel

Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema CheckBox
BildScreenshot zu CheckBox CheckBox-Seite mit Beispielarbeitsmappe aufrufen
Informationen und Beispiele zum Thema CommandButton
BildScreenshot zu CommandButton CommandButton-Seite mit Beispielarbeitsmappe aufrufen
Informationen und Beispiele zum Thema Userform
BildScreenshot zu Userform Userform-Seite mit Beispielarbeitsmappe aufrufen
Informationen und Beispiele zum Thema Image
BildScreenshot zu Image Image-Seite mit Beispielarbeitsmappe aufrufen
Informationen und Beispiele zum Thema Label
BildScreenshot zu Label Label-Seite mit Beispielarbeitsmappe aufrufen
Informationen und Beispiele zum Thema TextBox
BildScreenshot zu TextBox TextBox-Seite mit Beispielarbeitsmappe aufrufen

Bild aus Userform in Zelle einfügen


Betrifft: Bild aus Userform in Zelle einfügen von: feuerharry
Geschrieben am: 28.02.2017 15:45:41

Hy brauche bitte eure Hilfe

Habe nach Auswahl (Combobox) von einen externen Ordner ein Bild(jpg) in die Userform(image) zum Anzeigen gebracht.
Nun möchte ich das Bild in der zugehörigen Zeile einfügen.
Habe einen Code von Nepumuk (860to864: Bild aus Userform in Zelle) gefunden.
Dieser Code tragt das Bild nur in der aktiverten Zelle ein, nicht in die gewünschte Zelle.
Bin für jede Hilfe dankbar.
Beispiel:
https://www.herber.de/bbs/user/111832.txt
https://www.herber.de/bbs/user/111833.xlsx

  

Betrifft: AW: Bild aus Userform in Zelle einfügen von: Mullit
Geschrieben am: 28.02.2017 16:15:53

Hallo,

na, das geht doch locker:

'//Betrifft: AW: Bild aus Userform in Zelle 
'//von: Nepumuk 
'//Geschrieben am: 09.04.2007 23:55:03 
'//-------------------------------------------------- 
Option Explicit

Private Declare Function CopyImage Lib "user32.dll" ( _
    ByVal handle As Long, _
    ByVal imageType As Long, _
    ByVal newWidth As Long, _
    ByVal newHeight As Long, _
    ByVal lFlags As Long) As Long
Private Declare Function FindWindow Lib "user32.dll" Alias "FindWindowA" ( _
    ByVal lpClassName As String, _
    ByVal lpWindowName As String) As Long
Private Declare Function OpenClipboard Lib "user32.dll" ( _
    ByVal hwnd As Long) As Long
Private Declare Function EmptyClipboard Lib "user32.dll" () As Long
Private Declare Function CloseClipboard Lib "user32.dll" () As Long
Private Declare Function SetClipboardData Lib "user32.dll" ( _
    ByVal wFormat As Long, _
    ByVal hMem As Long) As Long
Private Declare Function DeleteObject Lib "gdi32.dll" ( _
    ByVal hObject As Long) As Long

Private Const IMAGE_BITMAP = 0&
Private Const LR_COPYRETURNORG = &H4
Private Const GC_CLASSNAMEMSEXCEL = "XLMAIN"
Private Const CF_BITMAP = 2&

Private Sub CommandButton1_Click()
    Dim lngTempPicture As Long
    lngTempPicture = CopyImage(Me.Image1.Picture, _
        IMAGE_BITMAP, 0, 0, LR_COPYRETURNORG)
    If lngTempPicture <> 0 Then
        OpenClipboard FindWindow(GC_CLASSNAMEMSEXCEL, Application.Caption)
        EmptyClipboard
        SetClipboardData CF_BITMAP, lngTempPicture
        CloseClipboard
        With ActiveSheet
            Call .Paste(Destination:=.Cells(1, 1)) '// Deine Zelle anpassen... 
        End With
        DeleteObject lngTempPicture
    End If
End Sub




VBA/HTML - CodeConverter für Office-Foren
AddIn für Excel/Word 2000-2010 - komplett in VBA geschrieben von Lukas Mosimann
Projektbetreuung durch mumpel



Code erstellt und getestet in Office 12

Gruß, Mullit


  

Betrifft: AW: Bild aus Userform in Zelle einfügen von: feuerharry
Geschrieben am: 28.02.2017 16:33:45

Hy
Danke für dein Interesse
Leider nicht zufriedenstellend
Möchte wenn ich Maus auswähle in Zelle C4, bei Wurm C6 usw.....

https://www.herber.de/bbs/user/111833.xlsx


  

Betrifft: AW: Bild aus Userform in Zelle einfügen von: Mullit
Geschrieben am: 28.02.2017 17:17:42

Hallo,

ja dammich noch mal, wenn Du schon von Nepumuk den Code pfannenfertig vorgesetzt bekommst, brauchst doch selbst nur noch mit ner Select-Fallunterscheidung ran.

Und wenn Du schon ne Form am Start hast, würde es mich äußerst zufriedenstellen, wenn Du sie gleich mit hochlädst und ich mir nicht alles aus den Finger saugen muß....

'//Betrifft: AW: Bild aus Userform in Zelle 
'//von: Nepumuk 
'//Geschrieben am: 09.04.2007 23:55:03 
'//-------------------------------------------------- 
Option Explicit

Private Declare Function CopyImage Lib "user32.dll" ( _
    ByVal handle As Long, _
    ByVal imageType As Long, _
    ByVal newWidth As Long, _
    ByVal newHeight As Long, _
    ByVal lFlags As Long) As Long
Private Declare Function FindWindow Lib "user32.dll" Alias "FindWindowA" ( _
    ByVal lpClassName As String, _
    ByVal lpWindowName As String) As Long
Private Declare Function OpenClipboard Lib "user32.dll" ( _
    ByVal hwnd As Long) As Long
Private Declare Function EmptyClipboard Lib "user32.dll" () As Long
Private Declare Function CloseClipboard Lib "user32.dll" () As Long
Private Declare Function SetClipboardData Lib "user32.dll" ( _
    ByVal wFormat As Long, _
    ByVal hMem As Long) As Long
Private Declare Function DeleteObject Lib "gdi32.dll" ( _
    ByVal hObject As Long) As Long

Private Const IMAGE_BITMAP = 0&
Private Const LR_COPYRETURNORG = &H4
Private Const GC_CLASSNAMEMSEXCEL = "XLMAIN"
Private Const CF_BITMAP = 2&

Private Sub CommandButton1_Click()
    Dim lngTempPicture As Long
    lngTempPicture = CopyImage(Me.Image1.Picture, _
        IMAGE_BITMAP, 0, 0, LR_COPYRETURNORG)
    If lngTempPicture <> 0 Then
        OpenClipboard FindWindow(GC_CLASSNAMEMSEXCEL, Application.Caption)
        EmptyClipboard
        SetClipboardData CF_BITMAP, lngTempPicture
        CloseClipboard
        With ActiveSheet
            Select Case TextBox1.Value
                Case Is = "Hund": Call .Paste(Destination:=.Cells(2, 3))
                Case Is = "Katz": Call .Paste(Destination:=.Cells(3, 3))
                Case Is = "Maus": Call .Paste(Destination:=.Cells(4, 3))
                Case Is = "Vogel": Call .Paste(Destination:=.Cells(5, 3))
                Case Is = "feuerharry": Call .Paste(Destination:=.Cells(6, 3))
            End Select
        End With
        DeleteObject lngTempPicture
    End If
End Sub




VBA/HTML - CodeConverter für Office-Foren
AddIn für Excel/Word 2000-2010 - komplett in VBA geschrieben von Lukas Mosimann
Projektbetreuung durch mumpel



Code erstellt und getestet in Office 12

Gruß, Mullit


  

Betrifft: AW: Bild aus Userform in Zelle einfügen von: feuerharry
Geschrieben am: 28.02.2017 18:03:22

Hy Danke nomal
Ist schon etwas besser, Habe aber über 100 jpg Bilder (Namensverzeichnis) und es kommen immer welche dazu und weg.
Geht das nicht über eine schleife, so das er sich den Bildnamen sucht in Spalte B und das Bild in Spalte J in der selben Zeile einfügt .


  

Betrifft: AW: Bild aus Userform in Zelle einfügen von: Mullit
Geschrieben am: 28.02.2017 18:15:51

Hallo,

....yo, geht...

Gruß, Mullit


  

Betrifft: AW: Bild aus Userform in Zelle einfügen von: feuerharry
Geschrieben am: 28.02.2017 19:17:46

Hy Mullit
Lade dir eine test-Datei hoch.
https://www.herber.de/bbs/user/111843.xlsm

Danke im Voraus feuerharry


  

Betrifft: AW: Bild aus Userform in Zelle einfügen von: feuerharry
Geschrieben am: 01.03.2017 09:03:30

Hy Danke nomal
Ist schon etwas besser, Habe aber über 100 jpg Bilder (Namensverzeichnis) und es kommen immer welche dazu und weg.
Geht das nicht über eine schleife, so das er sich den Bildnamen sucht in Spalte B und das Bild in Spalte J in der selben Zeile einfügt. So das Combobox bei Auswahl die Zelle in der Tabelle markiert
Lade eine test-Datei hoch.
https://www.herber.de/bbs/user/111843.xlsm
Danke im Voraus feuerharry


  

Betrifft: AW: Bild aus Userform in Zelle einfügen von: Mullit
Geschrieben am: 01.03.2017 15:18:45

Hallo,

was sehen meine entzündeten Augen, eine Testdatei, der Glaube an das Gute im Menschen ist bei mir wieder da, aber da benötigst Du nix anderes mehr, Du hast schon alles:

  1. die Combobox liest Deine Viecher-Namen ein ---> check ✔

  2. die Bilder werden bei Dir im Change-Event über die LoadPicture-Methode zugewiesen ---> check ✔

  3. die Select Case Anweisung in der 2. Code-Variante von Nepumuk weist Dein Viehzeug den verschiedenen Zellen zu ---> check ✔
...Die mußt Du in der Paste-Anweisung ggf. noch selbst anpassen und die TextBox durch die ComboBox ersetzen, das mußt Du irgendwie alleine gebacken kriegen...

Gruß, Mullit


  

Betrifft: AW: Bild aus Userform in Zelle einfügen von: Mullit
Geschrieben am: 01.03.2017 16:24:32

....tja, der Glaube ist wieder dahin....

http://www.office-loesung.de/p/viewtopic.php?f=166&t=733532

Gruß, Mullit


Beiträge aus den Excel-Beispielen zum Thema "Bild aus Userform in Zelle einfügen"