Einfügen von Bild in VBA

Question

Ich versuche, ein Bild aus einem Benutzerformular in das Excel-Blatt einzufügen, aber wenn ein Bild nicht ausgewählt ist, wenn ich die Übergabeschaltfläche im Formular drücken, sagt Laufzeitfehler '424': Objekt erforderlich . Wie kann ich dieses Problem lösen? Das Folgende ist für die Durchsuchen-Schaltfläche.

Und das folgende ist der Code, der das Bild der spezifischen Zelle zuweist.

Cells(emptyrow, 10).Select 
With xlApp.ActiveSheet.Pictures.Insert(picname) 'it is this line the debugger always points to when I submit the form without a picture 
    With .ShapeRange 
     .LockAspectRatio = msoTrue 
     .Height = 150 
    End With 
    .Left = xlApp.ActiveSheet.Cells(emptyrow, 10).Left 
    .Top = xlApp.ActiveSheet.Cells(emptyrow, 10).Top 
    .Placement = 1 
    .PrintObject = True 
End With 

Answer 1

Dies sollte für das Bild Userform und Einfügen arbeiten, ist die wichtigste Änderung, dass wir die Office.FileDialog für das Window Picker und trennen die Auswahl des Bildes und Einstellung, statt mit dem Bild Objekt, das wir verwenden Sie einfach den Pfad Dim . Sie müssen die _Click-Namen anpassen.

Public PicPath As String 'this is where we'll store the picture path 

Private Sub Browse_Click() 'getting the picture path 

Dim fDialog As Office.FileDialog 
Set fDialog = Application.FileDialog(msoFileDialogFilePicker) 

With fDialog 

    .AllowMultiSelect = False 
    .ButtonName = "Submit" 
    .Title = "Select an image file" 
    .Filters.Add "Image", "*.gif;*.jpg;*.jpeg", 1 

    If .Show = -1 Then 
     PicPath = .SelectedItems(1) 
     'getting picture full path to use when submit click 
    End If 

    If PicPath = "" Then Unload Me 

End With 

End Sub 

Private Sub Submit_Click()'setting picture in active cell 

    If Not PicPath = "" Then 
     CellAddress = ActiveCell.Address 
     With ActiveSheet.Pictures.Insert(PicPath) 
      With .ShapeRange 
       .LockAspectRatio = msoTrue 
       .Height = 150 
      End With 
      .Left = ActiveSheet.Range(CellAddress).Left 
      .Top = ActiveSheet.Range(CellAddress).Top 
      .Placement = 1 
      .PrintObject = True 
     End With 
     picselectedbool = True 
    Else 
     msgbox ("Please select a picture") 
    End If 

    If picselectedbool Then 
     Unload Me 
    End If 

End Sub