VBA Kopiere Bild von Arbeitsblatt zu Benutzerformular

Question

Gibt es eine Möglichkeit, Bild von Arbeitsblatt zu Benutzerbildsteuerung zu kopieren?
Ich habe eine Form auf einem Arbeitsblatt mit Bild. Und wenn ich wählen -> kopieren (Strg + C) diese Form, gehen Sie zu der UserForm1 Design ->image1 Eigenschaften Ich kann Strg + V in der Bildeigenschaft von image1 tun und das Bild wird aus der Zwischenablage in image1 Steuerelement eingefügt.
Wie kann ich dies mithilfe von VBA in Laufzeit erreichen?
versuchte ich UserForm1.Image1.Picture = ActiveSheet.Shapes("Picture 1").Picture Und viele ähnliche bot keiner von ihnen arbeiten
ich in der Regel „Objekt diese Eigenschaft oder diese Methode nicht unterstützt“ oder „Konflikt“ Typen

Answer 1

Vor einiger Zeit für eine Lösung von ich suchte Dasselbe Problem. Ich habe keine Lösung gefunden, aber ich fand einen großen Workaround:

1. Machen Sie ein separates Formular mit vielen Bildern darin. Nennen Sie es user_form_pics.

2. Dann wird die folgende auf dem Formular aufrufen:

Me.Image1.Picture = user_form_pics.img_name11.Picture

Dies ist, wie es im Konstruktor zu verwenden:

Private Sub UserForm_Initialize() 
    Me.Image1.Picture = user_form_pics.img_name11.Picture 
End Sub 

Es funktioniert! Jetzt ist Ihre Form das Bild der user_form_pics.img_name11

bearbeiten hat: Wenn Sie benötigen Chart Bild zu speichern, das Verfahren ist folgendes:

Option Explicit 

Public Sub TestMe() 

    Dim chtChart As Chart 
    Dim strPath  As String 

    Set chtChart = ActiveSheet.ChartObjects(1).Chart 
    strPath = ThisWorkbook.Path & "\myChart.bmp" 

    chtChart.Export (strPath) 

    UserForm1.Show vbModeless 
    UserForm1.Image1.Picture = LoadPicture(strPath) 

End Sub